[XL-2003] les boutons de commande dans un "frame"

[abouhossam]

bjr à tous
j'ai developpez une macro dont le but est : d'envoyer le nom du bouton lorseque je click sur ce dernier.
j'ai un "frame" dans un userform et 10 boutons de commande dans ce "frame".

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub F1_Click()
Dim ctrl As Control
For Each ctrl In UF1.F1.Controls
    If TypeOf ctrl Is MSForms.CommandButton Then
        If ctrl.GroupName = "F1" Then
        MsgBox ctrl.Caption
        Exit For
        End If
    End If
Next
End Sub

la macro ne me donne rien.
merci de m'aider SVP.

[jfontaine]

Bonjour,

Il me semble que la propriété Groupname est propre aux OptionButton.

il est étonnant que cela ne plante pas

[abouhossam]

merci jfontaine
si ce que tu dis est vrai, comment je peux faire que je reçoi un message "bouton.caption" quand je click sur un bouton ?
sans faire un macro à chaque bouton bien sûr.
merci à vous

[jfontaine]

Je te conseillerais de t'orienter vers un module de classe

http://excel.developpez.com/faq/inde...ntroductionPOO

[abouhossam]

merci à toi
mais j'ai rien trouvé.
est ce qu'on peut avoir de solution si on met les boutons dans Userform et enlevé le "frame" ?
merci.

[Ormonth]

Bonjour,

Envoyé par jfontaine

Bonjour,

Il me semble que la propriété Groupname est propre aux OptionButton.

il est étonnant que cela ne plante pas

@abouhossam cette propriété n'existe pas pour les CommandButton, tu dis que ta macro ne te retourne rien, hors elle devrait retourner un message d'erreur
Il serait rassurant de commencer par là et que tu nous dises ce qu'il en est pour aller plus loin...

Quand à savoir ce qui existe, la fenêtre Explorateur d'objets de l'éditeur VBA est là pour nous renseigner :

OrmonthData.jpg

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier