Bouton à bascule OUI et NON

Version imprimable

20/05/2019, 09h42
nicomidas

3 pièce(s) jointe(s)

Bouton à bascule OUI et NON
Bonjour,

J'ai un bouton à bascule avec un petite bout de code mais j'ai un soucis.

Je veux, lorsque l'on clique sur le bouton, que le texte devienne OUI. Pour ça cela fonctionne parfaitement.

Mais! Lorsque l'on reclique sur le bouton, je veux que le texte devienne NON, or rien ne se passe...

J'aimerai aussi avoir le NON qui s'affiche avant de cliquer, avoir NON de base.

Pouvez-vous trouver l'erreur dans mon code?
Code:

1 2 3 4 5 6 7 8 9 Private Sub Bascule613_Click() If Bascule = True Then Bascule613.Caption = "NON" Bascule613.ForeColor = vbRed Else Bascule613.Caption = "OUI" Bascule613.ForeColor = vbBlack End If End Sub
Bouton de départ sans cliquer (j'aimerai que NON apparaisse de base):
Pièce jointe 476391

Bouton après clique souris:
Pièce jointe 476394

Bouton après un second clique souris (j'aimerai que NON apparaisse):
Pièce jointe 476397

J'ai mis mon code sur "Événement sur clic".

Merci.
20/05/2019, 09h54
Ric500

Bouton à bascule OUI et NON

Bonjour,

Essaie avec "After_Update".
20/05/2019, 10h03
nicomidas

Citation:

Envoyé par Ric500

Bonjour,

Essaie avec "After_Update".

Bonjour,

J'ai déjà essayé ça ne change rien :(

Une autre idée?

Merci.

salut

Code:

1
2
3
4
5
6
7
8
9
10
11
 
 
Private Sub Bascule613_Click()
   If Bascule613 = True Then
      Bascule613.Caption = "NON"
      Bascule613.ForeColor = vbRed
   Else
     Bascule613.Caption = "OUI"
     Bascule613.ForeColor = vbBlack
End If
End Sub

et comme ca ???

Incroyable ça fonctionne! Je ne savais pas qu'il fallait mettre une tabulation pour que le code fonctionne correctement! ça se joue à pas grand chose 8O

J'ai également dût intervertir le OUI et le NON.
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Bascule613_Click() If Bascule613 = True Then Bascule613.Caption = "OUI" Bascule613.ForeColor = vbRed Else Bascule613.Caption = "NON" Bascule613.ForeColor = vbBlack End If End Sub
Et sinon pour avoir le NON de base, j'ai mis en légende du bouton "NON", je sais pas si c'est très correct mais ça fonctionne. :ptdr:

J'ai bien mon NON de base, mon OUI lorsque le bouton est enfoncé et NON si on reclique dessus! 8-)

Merci à vous pour vos réponses! ;)

Nicolas

Salut

Code:

1
2
3
4
5
6
7
8
9
Private Sub Bascule613_Click()
  If Me!Bascule613 Then
    Bascule613.Caption = "NON"
    Bascule613.ForeColor = vbRed
  Else
    Bascule613.Caption = "OUI"
    Bascule613.ForeColor = vbBlack
  End If
End Sub

20/05/2019, 10h53
james68

Ton erreur etait là :

Code:

If Bascule = True Then

qu'il falait transsformé en

Code:

If me.Bascule613 = True Then

tout simplement.
++
21/05/2019, 09h03
nicomidas

Ah oui j'avais même pas vu! Mais est-ce que la mise en forme est importante dans un code? A part pour le côté visuel?

Merci!
21/05/2019, 09h08
james68

Citation:

Ah oui j'avais même pas vu! Mais est-ce que la mise en forme est importante dans un code? A part pour le côté visuel?

il est plus judicieux de mettre la mise en forme dans le code, c'est plus simple pour la lecture et le dépannage.
Apres cela participe dans ce cas uniquement a l'aspect visuel.
++