Lorsque nous avons besoin de copier et de coller des données dans Microsoft Excel, nous disposons de différents outils de raccourci et de ruban dans Excel. VBA Macro disposent également d'une telle facilité plutôt que des options de classeur. Nous discuterons de l'option VBA Collage spécial valeurs et formats dans Excel.

Télécharger le cahier d'exercices

Téléchargez ce cahier d'exercices pour vous entraîner pendant que vous lisez cet article.

Valeurs et formats utilisant PasteSpecial.xlsm

9 exemples pour copier des valeurs et des formats avec la fonction Collage spécial dans Excel VBA

Dans cet article, nous aborderons 9 méthodes avec Macros VBA pour Collage spécial les valeurs et le format dans Excel.

Nous allons considérer l'ensemble de données ci-dessous à cette fin.

1. appliquer InputBox dans VBA Paste Special pour copier les valeurs et les formats

Nous utiliserons l'option InputBox dans cet exemple pour Collage spécial .

Étape 1 :

• Allez à la Développeur onglet.
• Cliquez sur Macro d'enregistrement .
• Définir Excel_Coller_spécial_1 comme le Nom de la macro .
• Ensuite, appuyez sur OK .

Étape 2 :

• Maintenant, cliquez sur le Macros commandement.
• Sélectionnez le Macro puis appuyez sur Entrez dans le monde .

Étape 3 :

• Copiez et collez le code suivant sur le module de commande.

 Sub Excel_Paste_Special_1() Dim Copy_Cell As Range, Paste_Cell As Range xTitleId = "Salary_Sheet" Set Copy_Cell = Application.Selection Set Copy_Cell = Application.InputBox("Select Range to Copy :", xTitleId, Copy_Cell.Address, Type:=8) Set Paste_Cell = Application.InputBox("Paste to any blank cell :", xTitleId, Type:=8) Copy_Cell.Copy Paste_Cell.Parent.Activate Paste_Cell.PasteSpecialxlPasteValuesAndNumberFormats Paste_Cell.PasteSpecial xlPasteFormats Application.CutCopyMode = False End Sub 

Étape 4 :

• Appuyez sur F5 pour exécuter le code.
• Une nouvelle boîte de dialogue apparaît. Sélectionnez la plage de sources dans cette boîte.
• Ensuite, appuyez sur OK .

Étape 5 :

• Une autre boîte de dialogue apparaît. Choisissez une plage vierge où coller les cellules copiées.

Maintenant, regardez l'ensemble des données.

Toutes les données sont copiées avec des valeurs et des formats utilisant l'attribut VBA Collage spécial .

Lire la suite : Comment appliquer VBA PasteSpecial et conserver le formatage de la source dans Excel

Insérer une plage de cellules avec des valeurs et des formats à l'aide de xlPasteAllUsingSourceTheme dans VBA Collage spécial

Nous allons insérer la plage de cellules directement sur le VBA dans cette section.

Étape 1 :

• Appuyez sur Alt+F11 pour entrer dans le module de commande.
• Mettez le code suivant sur le module de commande.

 Sub Excel_Paste_Special_2() Range("B4:C9").Copy Range("E4").PasteSpecial xlPasteAllUsingSourceTheme End Sub 

Étape 2 :

• Maintenant, appuyez sur F5 pour exécuter le code.

Ce site xlPasteAllUsingSourceTheme copie le duplicata exact des données sources.

Lire la suite : Excel VBA : copier la valeur d'une cellule et la coller dans une autre cellule

3. utiliser une variable VBA pour insérer une plage de valeurs et de formats à l'aide de la fonction de collage spécial.

Nous allons montrer l'utilisation des variables dans le VBA Collage spécial code ici.

Étape 1 :

• Tout d'abord, entrez dans le module de commande en appuyant sur Alt+F11 .
• Écrivez le code ci-dessous dans le module de commande.

 Sub Excel_Paste_Special_3() Dim source_rng As Range, paste_rng As Range Set source_rng = Range("B4:C9") Set paste_rng = Range("E4") source_rng.Copy paste_rng.PasteSpecial Paste:=xlPasteAllUsingSourceTheme End Sub 

Étape 2 :

• Appuyez sur F5 et exécuter le code.

Lire la suite : Excel VBA : Copier une plage dans un autre classeur

4. utiliser xlPasteValues et xlPasteFormats pour copier les valeurs et les formats dans une autre feuille en gardant les formats inchangés.

Les méthodes ci-dessus ont été utilisées pour copier et coller des données dans la même feuille. Nous allons maintenant montrer comment utiliser la fonction de copie de la feuille. VBA Collage spécial pour différentes feuilles.

Étape 1 :

• Entrez dans le module de commande en cliquant sur Alt+F11 et copier le code suivant dessus.

 Private Sub Excel_Paste_Special_4() Application.ScreenUpdating = False Dim source_rng As Worksheet Dim paste_rng As Worksheet Set source_rng = Worksheets( "Data_Set") Set paste_rng = Worksheets( "Different_Sheet") Set Destination = paste_rng.Range( "B2") source_rng.Range( "B2:C9").Copy Destination.PasteSpecial Paste:=xlPasteValues Destination.PasteSpecial Paste:=xlPasteFormatsApplication.CutCopyMode = False Application.ScreenUpdating = True End Sub 

Étape 2 :

• Appuyez sur F5 pour exécuter le code.

Nous pouvons voir que les données de l Data_Set est copié dans Feuille_différente .

Lire la suite : Comment utiliser VBA PasteSpecial pour les formules et les formats dans Excel (3 façons)

Lectures similaires

• Comment copier plusieurs cellules vers une autre feuille dans Excel (9 méthodes)
• Différence entre Collage et Collage spécial dans Excel
• Excel VBA pour copier les données d'un autre classeur sans l'ouvrir
• Comment copier et coller dans Excel en conservant la taille des cellules (7 exemples)
• Copier et coller les valeurs dans la ligne vide suivante avec Excel VBA (3 exemples)

5. utiliser xlPasteFormats pour coller les formats uniquement

Dans les méthodes précédentes, nous avons copié l'ensemble des données et les avons collées sans les modifier, mais dans cette section, nous allons copier uniquement le format des données.

Étape 1 :

• Allez dans le module de commande en appuyant sur Alt+F11 .
• Copiez et collez le code ci-dessous dans le module de commande.

 Sub Excel_Paste_Special_5() Range("B2:C9").Copy Range("E2").PasteSpecial xlPasteFormats End Sub 

Étape 2 :

• Maintenant, appuyez sur le F5 et exécuter le code.

Regardez l'ensemble de données. Seuls les formats sont copiés, aucune valeur n'est présente ici.

Lire la suite : Comment copier et coller dans Excel sans modifier le format ?

6. utiliser xlPasteValues pour coller uniquement les valeurs.

Nous pouvons copier les valeurs uniquement en utilisant le VBA Collage spécial .

Étape 1 :

• Appuyez sur Alt+F11 pour entrer dans le module de commande.
• Écrivez le code suivant sur le module de commande.

 Sub Excel_Paste_Special_6() Range("B4:C9").Copy Range("E4").PasteSpecial xlPasteValues End Sub 

Étape 2 :

• Cliquez sur F5 et exécuter le code.

Remarquez le jeu de données. Seules les valeurs sont copiées ici. Aucun format n'est copié dans cette méthode.

Lire la suite : Comment utiliser VBA pour coller uniquement des valeurs sans mise en forme dans Excel ?

7. copier et coller tout le contenu d'une seule cellule

Dans les sections précédentes, nous avons copié une plage de données. Ici, nous allons copier une seule cellule.

Étape 1 :

• Maintenant, appuyez sur Alt+F11 et entrez dans le module de commande.
• Tapez le code suivant sur le module.

 Sub Excel_Paste_Special_7() Range("B4").Copy Range("E4").PasteSpecial xlPasteAllUsingSourceTheme End Sub 

Étape 2 :

• Maintenant, appuyez sur le F5 pour exécuter le code.

Nous pouvons voir qu'une seule cellule est copiée ici, et non une plage.

Lire la suite : Formule pour copier et coller des valeurs dans Excel (5 exemples)

8. copier et coller tous les attributs d'une certaine colonne avec VBA

Comme une simple cellule, nous pouvons copier une seule colonne dans l'ensemble de données.

Étape 1 :

• Il suffit d'appuyer sur le bouton Alt+F11 pour entrer dans le module de commande.
• Ecrivez le code ci-dessous dans le module.

 Sub Excel_Paste_Special_8() Dim source_rng As Range, paste_rng As Range Set source_rng = Columns("C") Set paste_rng = Columns("E") source_rng.Copy paste_rng.PasteSpecial Paste:=xlPasteAllUsingSourceTheme End Sub 

Étape 2 :

• Exécutez le code en appuyant sur F5 .

Ici, nous pouvons voir que Colonne B est copié dans Colonne E .

Lire la suite : [Corrigé] : Le clic droit pour copier et coller ne fonctionne pas dans Excel (11 solutions)

9. copier et coller tous les attributs d'une ligne avec Excel VBA

De même, nous pouvons copier une seule ligne en utilisant la fonction Collage spécial .

Étape 1 :

• Cliquez sur Alt+F11 pour entrer dans le module de commande.
• Copiez le code suivant sur le module de commande.

 Sub Excel_Paste_Special_9() Dim source_rng As Range, paste_rng As Range Set source_rng = Rows("4") Set paste_rng = Rows("11") source_rng.Copy paste_rng.PasteSpecial Paste:=xlPasteAllUsingSourceTheme End Sub 

Étape 2 :

• Exécutez le code en appuyant sur F5 .

Ici, Rangée 4 est copié dans Rangée 11 .

Lire la suite : Comment copier plusieurs lignes dans Excel à l'aide d'une macro (4 exemples)

Conclusion

Dans cet article, nous avons expliqué 9 les méthodes de VBA Coller des valeurs et des formats spéciaux dans Excel. J'espère que cela répondra à vos besoins. Veuillez consulter notre site web. Exceldemy.com et donnez vos suggestions dans la boîte de commentaires.