Pour éviter les erreurs ou pour augmenter votre vitesse dans Excel, vous pouvez créer un bouton qui vous permet de copier une cellule ou une plage de cellules. Ici, j’explique comment automatiser la copie d’une cellule ou de plusieurs cellules avec la possibilité d’afficher une boîte de message de ce qui est copié.
Nous allons commencer par localiser l’onglet développeur afin qu’un bouton puisse être créé.
Afficher l’onglet Développeur
Pour les machines utilisant Windows, vous pouvez apprendre à afficher l’onglet développeur avec le lien suivant ici.
Pour afficher l’onglet développeur sur un Mac, cliquez sur l’onglet Excel dans le menu. Ensuite, cliquez sur préférences.
Ensuite, cliquez sur le bouton de visualisation.
Cliquez sur la case à cocher à côté de l’onglet développeur dans la section du ruban en bas.
Ajout d’un bouton de commande
Pour les machines Windows, accédez au tableau des développeurs et cliquez sur l’option d’insertion. Cliquez sur le bouton de commande puis tracez la taille du bouton que vous souhaitez sur la feuille de calcul.
Pour un Mac, allez dans l’onglet développeur et cliquez sur l’icône du bouton. Ensuite, cliquez sur n’importe quelle cellule de la feuille de calcul. Nommez la macro sans espace et sélectionnez le nouveau bouton.
Exécution de la macro
Un module apparaîtra dans une nouvelle fenêtre. Copiez le code ci-dessous dans ce module et remplacez le nom après sub par le nom créé avant de cliquer sur nouveau dans la fenêtre d’attribution de macro.
Sub copycell() Range(« A1 »).Select Selection.Copy End Sub
Faites défiler pour continuer
Vous pouvez maintenant copier la cellule indiquée dans la macro affectée au bouton en cliquant sur le bouton. Si vous avez une plage ou plusieurs cellules à copier, remplacez simplement la référence de cellule par une référence de plage comme celle du code ci-dessous.
Sub copycell() Range(« A1:A2 »).Select Selection.Copy End Sub
Le nom du bouton peut être modifié dans Windows en cliquant dessus avec le bouton droit de la souris ou en maintenant la touche Ctrl + clic sur un Mac suivi d’un clic sur le texte du bouton.
Afficher une boîte de message des valeurs copiées
Si vous souhaitez qu’une boîte de message apparaisse avec les valeurs de cellule copiées, une autre ligne de code est requise. Habituellement, lorsque j’utilise un bouton de copie, le contenu de la cellule est créé avec une formule dynamique et masqué. Dans cette situation, je voudrais revoir ce qui a été copié dans le presse-papiers avec une boîte de message.
La nouvelle ligne de code de ligne est indiquée dans la macro ci-dessous qui affichera une boîte de message. Remplacez le nom de la feuille et la plage que vous souhaitez voir apparaître dans votre propre boîte de message. De plus, à la fin du code, vous pouvez donner à la boîte de message un titre personnalisé.
Sub copycell() Range(« A1:A2 »).Select Selection.Copy MsgBox Worksheets(« sheet1 »).Range(« A1″), , »Copié » End Sub
Conseils pour la boîte de message
Au lieu d’utiliser une référence de cellule pour le corps de la boîte de message, vous pouvez utiliser une chaîne de texte.
MsgBox « Le contenu a été copié », , « Copié »
Une référence de cellule peut également être utilisée dans le titre de la zone de texte.
MsgBox « Cette boîte », , Worksheets(« sheet1 »).Range(« A1 »)
Le symbole esperluette peut être utilisé pour ajouter des espaces et joindre des chaînes supplémentaires. Cela fonctionne également avec les références de cellule.
MsgBox « Cette boîte » & » » & » et cette boîte », , « Titre »
Pour exécuter plusieurs lignes de texte, utilisez vbNewLine avec des esperluettes avant et après entre vos références de cellule et les chaînes de texte.
& vbNouvelleLigne &
Enregistrement de ce classeur
Après avoir créé vos macros, assurez-vous d’enregistrer le classeur sous la forme d’un fichier .xlsm. Si cela n’est pas terminé, les boutons de macro ne fonctionneront pas la prochaine fois que le classeur sera ouvert.
Ce contenu est exact et fidèle au meilleur de la connaissance de l’auteur et ne vise pas à remplacer les conseils formels et individualisés d’un professionnel qualifié.
© 2022 Josué Crowder
