Boucle sur CommandButton

Hulk · 26 Novembre 2009

Bonsoir à tous !

Je coince sur cette boucle (décidemment les boucles et moi c'est pas ça 😀)

Code:

Private Sub Btn0_Click() 'Ce bouton est exclu !
    
    Dim ctl As Control
    
    For Each ctl In Worksheets
        If TypeName(ctl) = "CommandButton" Then
            i = i + 1
                ctl.Name = "Btn" & i
        End If
    Next ctl
    For Each ctl In Worksheets
        If TypeName(ctl) = "CommandButton" Then
            j = j + 1
            ctl.Caption = "Bouton " & j
        End If
    Next ctl

End Sub

Elles devraient normalement (du moins c'est ce que je souhaite) nommer tous les CommandButton de la feuille "Btn1", "Btn2", "Btn3"... et dans la caption "Bouton 1", "Bouton2", "Bouton 3"... mais rien à faire !

Le in WorkSheets, je l'ai changé par ActiveSheet, ActiveSheet.Controls, enfin bref pas mal d'essais en vain grr !

Quelqu'un aurait-il la gentillesse de m'aider svp ?

Merci pour votre aide !

Cdt, Hulk.

Robert · 27 Novembre 2009

Re : Boucle sur CommandButton

Bonsoir Hulk, bonsoir le forum,

Une solution :

Code:

Private Sub Btn0_Click() 'Ce bouton est exclu !
    
    Dim ctl As Shape
    
    For Each ctl In Sheets("Feuil1").Shapes
        If Left(ctl.Name, 13) = "CommandButton" Then
            i = i + 1
                ctl.Select
                ctl.Name = "btn" & i
                Selection.Object.Caption = "Bouton" & i
        End If
    Next ctl
End Sub

Je galère aussi dès qu'il s'agit de contrôles sur un onglet. C'est parce que je maîtrise très mal que je préfère passer par une UserForm. Je ne comprends pas d'ailleurs que leur codes soient si différents...

Hulk · 27 Novembre 2009

Re : Boucle sur CommandButton

Hello,

Super Robert, à vrai dire j'étais pas loin grr

Merci bien !

@+, Hulk.

EDIT : Merci aussi Carcharodon !

Hulk · 27 Novembre 2009

Re : Boucle sur CommandButton

Re,

Oui j'avais bien remarqué qu'il y avait pas de sélection, et j'avais fais quasi le même code que le tien, mais sans le If .Name <> "Btn0" et j'allais justement te dire si on ne pouvait pas supprimer cette ligne, mais maintenant je sais que non et pourquoi ça ne jouait pas avant pour moi sans ça !

Merci de vos lumières !

Cdt, Hulk.

Boucle sur CommandButton

Hulk

XLDnaute Barbatruc

Pièces jointes

Robert

XLDnaute Barbatruc

Hulk

XLDnaute Barbatruc

Hulk

XLDnaute Barbatruc

Discussions similaires

Boucle sur CommandButton

Hulk

XLDnaute Barbatruc

Pièces jointes

Robert

XLDnaute Barbatruc

Hulk

XLDnaute Barbatruc

Hulk

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency