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