Comment créer un bouton de commande pour copier et coller des données dans Excel ?
Supposons que vous ayez besoin de copier fréquemment une plage de cellules vers un autre emplacement après avoir modifié les données. La méthode manuelle de copie et collage peut être fastidieuse et chronophage. Comment automatiser cette tâche de copie et collage ? Cet article va vous montrer comment utiliser un bouton de commande pour copier et coller des données en un seul clic.
Créer un bouton de commande pour copier et coller des données avec du code VBA
Créer un bouton de commande pour copier et coller des données avec du code VBA
Veuillez suivre les étapes ci-dessous pour copier et coller des données automatiquement en cliquant sur un bouton de commande.
1. Insérez un bouton de commande en cliquant sur Développeur > Insérer > Bouton de commande (Contrôle ActiveX). Voir la capture d'écran :
2. Dessinez un bouton de commande dans votre feuille de calcul et faites un clic droit dessus. Sélectionnez Afficher le code dans le menu contextuel.
3. Dans la fenêtre Microsoft Visual Basic for Applications qui apparaît, remplacez le code original dans la fenêtre Code par le code VBA ci-dessous.
Code VBA : Utiliser un bouton de commande pour copier et coller des données dans Excel
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim xSheet As Worksheet
Set xSheet = ActiveSheet
If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
xSheet.Range("A1:C17 ").Copy
xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Application.ScreenUpdating = True
End Sub
Remarque : Dans le code, CommandButton1 est le nom de votre bouton de commande inséré. A1:C17 est la plage que vous devez copier, et J1:L17 est la plage de destination où coller les données. Veuillez les modifier selon vos besoins.
4. Appuyez sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications. Désactivez ensuite le Mode Création sous l'onglet Développeur.
5. Maintenant, cliquez sur le bouton de commande, toutes les données de la plage A1:C17 seront copiées et collées dans la plage J1:L17 sans le formatage des cellules.

Découvrez la magie d'Excel avec Kutools AI
- Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
- Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
- Codage VBA : Écrivez et implémentez du code VBA sans effort.
- Interprétation des formules : Comprenez facilement des formules complexes.
- Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.
Articles connexes :
- Comment enregistrer et fermer le classeur actif sans invite à l'aide d'un bouton de commande dans Excel ?
- Comment toujours afficher un bouton de commande flottant sur une feuille de calcul dans Excel ?
- Comment mettre à jour ou insérer la date et l'heure (actuelles) à l'aide d'un bouton de commande dans Excel ?
- Comment utiliser un bouton de commande pour modifier une valeur de cellule spécifiée dans Excel ?
- Comment utiliser un bouton de commande pour enregistrer la feuille de calcul active en tant que fichier PDF dans Excel ?
- Comment insérer automatiquement une nouvelle ligne vide à l'aide d'un bouton de commande dans Excel ?
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office, et facilite grandement votre travail
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 %, et réduit des centaines de clics de souris pour vous chaque jour !