nom des differents objets présents dans ma feuille

[le CH'TI160]

bonsoir le "Forum"
ma question et celle ci comment récupérer dans un Combobox les noms des différents boutons (quelque soit leur type) présents dans ma feuille active
ActiveSheet.Shapes (???????????).name ???????????????
Merci d'avance
A+++
Jean Marie

 

[Lord Nelson]

Salut Jean-Marie,

Comme ceci, par exemple :

Private Sub CommandButton4_Click()
Dim CTL As Shape
ComboBox1.Clear
For Each CTL In Shapes
If Left(CTL.Name, 13) = "CommandButton" Then
ComboBox1.AddItem CTL.Name
End If
Next
If ComboBox1.ListCount > 0 Then
ComboBox1.ListIndex = 0
End If
End Sub

A+
LN

 

[le CH'TI160]

Salut "L'AMIRAL" LN
Bonjour le "FORUM"
je te remercie pour ton aide
j'adapte ,Je persevere
A+++
Jean Marie