Microsoft 365 Générer bouton commande sur l'ensemble des Feuils d'un classeur

[spike29]

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 :

 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

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 Sub

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

 

[spike29]

Je voulais indiquer vos deux derniers messages comme solution, car vous m'avez tous les deux donnés des propositions répondant largement à mon besoin.
Malheureusement, je le site ne me permet pas de nommer deux posts comme solution.
Mais je vous confirme que vos deux réponses me conviennent parfaitement.

Bonne fin de journée