Macro pour insérer automatiquement un bouton dans une feuille, Excel VBA

Si vous souhaitez utiliser des boutons dans des feuilles qui vous permettent de démarrer rapidement des macros, vous avez toujours la possibilité de décider si vous souhaitez définir diverses options pour le bouton. Par exemple, vous pouvez insérer des boutons dont les macros stockées démarrent automatiquement lorsque vous déplacez la souris dessus. Une autre des nombreuses possibilités consiste à insérer le bouton avec une image ou avec une police différente.

Dans le premier exemple, le même bouton doit toujours être inséré à la même position sur chaque feuille de calcul du classeur. La macro pour cette tâche se trouve dans l’extrait .

Sub InsererDesBoutons ()

Dim objBut As Object

Dim i As Integer

 For i = 1 To Sheets.Count

  Set objBut = Sheets(i).Buttons.Add(90, 15, 93, 24)

  objBut.OnAction = "Info"

  objBut.Caption = " Cliquez ici s'il vous plait "

 Next i

End Sub

 

Tout d’abord, définissez une variable d’objet. Utilisez ensuite la méthode Count pour déterminer le nombre de feuilles dans le classeur. En fonction des feuilles du tableau, insérez un bouton sur chaque feuille à l’aide de la méthode Add. Les quatre arguments représentent la position du bouton dans le tableau dans l’unité de point de mesure. De gauche à droite, ils signifient: la distance du bord gauche, la distance du bord supérieur, la largeur et la hauteur du bouton. Avec la propriété OnAction, vous spécifiez le nom de la macro qui est exécutée dès que le bouton est cliqué. Avec la propriété Caption, vous déterminez l’étiquetage du bouton.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x