Sujet Précédent Sujet Suivant

Variable "caption commandbutton"

Résolu
titeuf136 Messages postés 91 Date d'inscription vendredi 15 janvier 2010 Statut Membre Dernière intervention 19 octobre 2012 - 23 mars 2010 à 14:05
titeuf136 Messages postés 91 Date d'inscription vendredi 15 janvier 2010 Statut Membre Dernière intervention 19 octobre 2012 - 23 mars 2010 à 15:03
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

Réponse 1 / 2
cs_pacadebord Messages postés 113 Date d'inscription lundi 31 mars 2003 Statut Membre Dernière intervention 19 décembre 2011 2
23 mars 2010 à 14:35
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
3
Réponse 2 / 2
titeuf136 Messages postés 91 Date d'inscription vendredi 15 janvier 2010 Statut Membre Dernière intervention 19 octobre 2012 1
23 mars 2010 à 15:03
MERCI pour la réponse !
0

Discussions similaires

Modification du Caption de plusieurs controls (CommandButton) dans une boucle en
Lfigureau -
dedenet2 -

7 réponses
Erreur 91 "Variable objet ou bloc with non définie" ???????
doomVB -
crenaud76 -

3 réponses
erreur 91 : variable non défini
Foggyboy -
Foggyboy -

2 réponses
Variable objet ou variable bloc with non défini
thulguer -
thulguer -

2 réponses
Créer CommandButton dans feuille Excel (VBA)
BeebopMcFly -
infoyassmedianet -

6 réponses
Rejoignez-nous