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

zombe

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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.
 

Pièces jointes

  • Exemple pour zombe.xlsm
    20.2 KB · Affichages: 43

Fo_rum

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

Bonsoir,

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

Pièces jointes

  • BoutonBascule.xlsm
    21.9 KB · Affichages: 46
  • BoutonBascule.xlsm
    21.9 KB · Affichages: 54
  • BoutonBascule.xlsm
    21.9 KB · Affichages: 52

zombe

XLDnaute Occasionnel
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
 

Discussions similaires

Statistiques des forums

Discussions
298 812
Messages
1 971 979
Membres
203 569
dernier inscrit
junior88