COmmandButton.Value

E

Eric 45

XLDnaute Occasionnel

• 26 Février 2008

• #2

Re : COmmandButton.Value

Bonjour à tous
Bonjour errog

Tu peux essayer cela :

Code:

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

Eric

 

Vote positif 0 Vote négatif

E

errog

Guest

• 26 Février 2008

• #3

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 26 Février 2008

• #4

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

 

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 26 Février 2008

• #5

Re : COmmandButton.Value

Salut à tous et aux autres,

Pourquoi pas avec un Togglebutton ?

Code:

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

 

Dernière édition: 26 Février 2008

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 26 Février 2008

• #6

Re : COmmandButton.Value

😀 Pourquoi pas 😀

 

Vote positif 0 Vote négatif