Variable "caption commandbutton"

[Résolu]
Signaler
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
-
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
-
Bonjour,

je souhaiterai nommer une variable en fonction du "commandbutton" sur lequel je clique

je souhaite par exemple que la variable R prenne la valeur R1 lorsque je clique sur le boutton commandbutton9 qui contient le texte R1

rq: le commandbutton en question fait appel à une procédure "essai2" qui contient la variable R.

Sub essai()
'If UserForm4.CommandButton9 = True Then
'i = 9
'End If
r = UserForm4.Controls("commandbutton" & i).Caption
MsgBox (r)
End Sub


Private Sub CommandButton9_Click()

Call essai2
End Sub


Merci pour votre aide

2 réponses

Messages postés
113
Date d'inscription
lundi 31 mars 2003
Statut
Membre
Dernière intervention
19 décembre 2011
2
Bonjour,

Private Sub CommandButton1_Click()
    
    essai2 Me.CommandButton1
    
End Sub

Sub essai2(ByVal monBouton As CommandButton)
Dim r As String

    r = monBouton.Caption
    MsgBox r
    
End Sub


Pac
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
1
MERCI pour la réponse !