Bouton Bascule

[bin]

Bonjour à tous...
J'aimerais créer trois bouton-image bascules:

Pour commencé j'ai créé trois bouton et j'y ai mis les codes suivant: (exemple de l'image 1)

Private Sub ToggleButton1_Click()
ToggleButton2.Value = False
ToggleButton3.Value = False
End Sub

Avec ça j'espérais que : en cliquant sur l'image 1, les deux autres soient désactivés puis en cliquant sur 2, 1 et 3 soient désactivé...
Le problème c que 1 et 3 sont bien désactivé mais 2 n'est pas enfoncé...

SI vous comprenez ma question pouvez vous m'aider?

D'avance merci...

Bin le IEU

 

[Martin]

Bonjours Bin

Tu y etait presque…
Il faut rajouter le nom de feuille ou se trouve les bouttons et
True correspond a button enfoncé
False correspond a button non enfoncé

Private Sub ToggleButton1_Click()
Sheets(“nom de ta feuille”).ToggleButton2.Value = True
Sheets(“nom de ta feuille”).ToggleButton3.Value = True
End Sub

Bonne chance, Martin

 

[Sirberthoult]

Re : Re: Bouton Bascule

Bonjour le forum,

je fais un peut de nécrophilie mais j'ai le même soucis et je ne pense pas que la réponse apportée soit bonne ...

j'ai 2 boutons bascules dans un userform et je veux que, quand l'un est enfoncé l'autre se libère ...

j'utilise:

Private Sub Disponible_Click()
Me.Occupé = False
End Sub

Private Sub Occupé_Click()
Me.Disponible = False
End Sub

mais si mon bouton "Occupé" est enfoncé et que je click sur "Disponible", le bouton "Occupé" se libère bien mais le bouton "Disponible" reste libérer aussi (il est juste sélectionné)... il ne s'est pas enfoncé avec le click ...cela m'oblige a re-clicker sur "Disponible" pour l'enfoncer ...

si quelqu'un à la solution ...

merci d'avance...

 

[Gelinotte]

Re : Bouton Bascule

Bonjour,

Est-ce un effet comme ceci que tu recherches ?

Private Sub ToggleButton1_Click()
   If ToggleButton1 = True Then
      ToggleButton2 = False
   Else
      ToggleButton1 = False
      ToggleButton2 = True
   End If
End Sub

Private Sub ToggleButton2_Click()
   If ToggleButton2 = True Then
      ToggleButton1 = False
   Else
      ToggleButton2 = False
      ToggleButton1 = True
   End If
End Sub

G

 

[Sirberthoult]

Re : Bouton Bascule

Super !! ça marche comme je voulais !!

merci encore!!

 

[job75]

Re : Bouton Bascule

Bonjour,

Dans le code de l'USF :

Private Sub ToggleButton1_Click()
ToggleButton2 = Not ToggleButton1
End Sub

Private Sub ToggleButton2_Click()
ToggleButton1 = Not ToggleButton2
End Sub

Vous pouvez de plus dans l'USF initialiser les propriétés Value des 2 boutons :

ToggleButton1 => False ToggleButton2 => True

A+

 

[job75]

Re : Bouton Bascule

Re,

Si l'on veut que le clic sur un bouton enfoncé soit sans effet :

Dim flag As Boolean 'tout en haut, mémorise la variable

Private Sub ToggleButton1_Click()
If flag Then Exit Sub
flag = True
ToggleButton1 = True
ToggleButton2 = False
flag = False
End Sub

Private Sub ToggleButton2_Click()
If flag Then Exit Sub
flag = True
ToggleButton2 = True
ToggleButton1 = False
flag = False
End Sub

Edit : ah mais je n'avais pas vu Gelinotte, salut Gelinotte 🙂

A+