Bonjour,
J'ai un code qui permet de créer un bouton de commande sur la Feuil active. J'aimerai modifier ce code afin qu'il génère ce bouton de commande sur l'ensemble des Feuils du classeur.
J'ai un début de piste avec :
Ma maitrise des boucles étant ce qu'elle est, je vous demande un coup de pouce sur le sujet.
Code fonctionnel que j'utilise pour insérer le bouton dans la Feuil active
En PJ un fichier d'exemple avec mon code.
Une fois le code fonctionnel je le placerai dans une procédure évènementiel Workbook_open.
Merci d'avance pour votre aide sur le sujet.
Bonne journée
J'ai un code qui permet de créer un bouton de commande sur la Feuil active. J'aimerai modifier ce code afin qu'il génère ce bouton de commande sur l'ensemble des Feuils du classeur.
J'ai un début de piste avec :
VB:
For i = 1 To Sheets.Count
' ****code****
Set objBut = Sheets(i).Buttons.Add(PosG, PosH, Longueur, Hauteur)Ma maitrise des boucles étant ce qu'elle est, je vous demande un coup de pouce sur le sujet.
Code fonctionnel que j'utilise pour insérer le bouton dans la Feuil active
Code:
Sub InsererDesBoutons()
Dim objBut As Object
Dim i As Integer
LigDeb = 2
With Range("B" & LigDeb)
PosG = .Left
PosH = .Top
End With
Hauteur = 50
Longueur = 150
ActiveSheet.Unprotect Password:="sandman"
ActiveWorkbook.Unprotect Password:="sandman"
With ActiveSheet.Buttons.Add(PosG, PosH, Longueur, Hauteur)
.OnAction = "ArrêtProtec" 'Nom d'un sub
.Caption = "Déprotéger Feuil"
End With
End SubEn PJ un fichier d'exemple avec mon code.
Une fois le code fonctionnel je le placerai dans une procédure évènementiel Workbook_open.
Merci d'avance pour votre aide sur le sujet.
Bonne journée