COmmandButton.Value

[errog]

Bonjour à tous,
Je voudrais récupérer la valeur ( False ou True ) d'un bouton de commande
Comme je n'y arrive pas j'ai fait l'essai suivant avec un CommandButton1 placé dans l'USF1 :

Private Sub CommandButton1_Click()
retour = UserForm1.CommandButton1
If retour  Then 
Unload UserForm1
MsgBox ("BRAVO")
End Sub

Je ne comprends pas pourquoi il ne m'affiche pas "BRAVO" quand je clique sur le bouton1 dans l'USF1, autrement dit CommandButton1.Value reste FALSE.😕😕
Merci

 

[Eric 45]

Re : COmmandButton.Value

Bonjour à tous
Bonjour errog

Tu peux essayer cela :

Private Sub CommandButton1_Click()
Unload Me
MsgBox "coucou" 'si tu préfères BRAVO, tu as le droit
End Sub

Eric

 

[errog]

Re : COmmandButton.Value

Bonsoir,
Le problème n'est pas de décharger l'USF mais de pouvoir récupérer dans la routine principale une information sur le fait que le bouton1 a été cliqué
( a défaut je place un autre booléen dans le Sub CommandButton1 mais ça alourdit l'écriture )
Donc je repose ma question autrement puis je récupérer la valeur du commandbutton1 dans la routine principale ( si je prends UserForm1.CommandButton1.Value, j'ai systématiquement False que ce bouton ait été cliqué ou non)
Merci

 

[gilbert_RGI]

Re : COmmandButton.Value

Bonsoir

ça peut-être ceci

Private Sub CommandButton1_Click()
If Me.CommandButton1.Caption = "A été cliqué" Then
'procédure
Me.CommandButton1.Caption = "n'a pas été cliqué"
Else
'procédure
Me.CommandButton1.Caption = "A été cliqué"
End If
End Sub

Cdlt

RGI

 

[Excel_lent]

Re : COmmandButton.Value

Salut à tous et aux autres,

Pourquoi pas avec un Togglebutton ?

Private Sub ToggleButton1_Click()
  If ToggleButton1 = False Then
    MsgBox "Bravo"
  Else
    MsgBox "une fois"
  End If
End Sub

 

[gilbert_RGI]

Re : COmmandButton.Value

😀 Pourquoi pas 😀