Comment créer une commande à double fonction (ToggleButton1)

[zombe]

Salut le forum

Je souhaite créer une commande à double fonction.
Cette commande devra me permettre de réaliser des validation et pouvoir fermer mun usf.
Donc un 1er click permet de Valider et le deuxième click permet de Fermer.
J'ai déjà vu un sujet sur le ToggleButton1 mais je m'y connais pas trop.
Si la solution que je demande devra passer par le ToggleButton1, comment créer ce control car je ne l'ai pas dans ma boite à outil.
Merci à tous

 

[Papou-net]

Re : Comment créer une commande à double fonction (ToggleButton1)

Bonsoir zombe,

Tu peux tout aussi bien utiliser un commandbutton simple. Il suffit de modifier son caption à chaque clic, et d'orienter le traitement en fonction de son caption.

Sur l'exemple joint, j'utilise la 1ère lettre du caption pour aiguiller le déroulement de la macro. Il suffit de remplacer les deux msgbox par les lignes de code qui vont bien.

Espérant avoir aidé.

Cordialement.

 

[Fo_rum]

Re : Comment créer une commande à double fonction (ToggleButton1)

Bonsoir,

avec un Bouton Bascule

Private Sub ToggleButton1_Click()
  If ToggleButton1 Then
    Action1
  Else
    Action2
  End If
  ToggleButton1.Caption = IIf(ToggleButton1, 2, 1) 'pas nécessaire
End Sub

 

[zombe]

Re : Comment créer une commande à double fonction (ToggleButton1)

Salut Papou et Fo_rum

Merci pour vos solutions.
Des 2 cas tout fonctionne à merveil.
J'aimerai intégrer un autre paramètre : la différenciation des couleurs du bouton valider et Fermer.
Valider = couleur verte avec police noire et Fermer = couleur blanche avec police verte.
Merci