Forme visible ou masquer

Bonjour,

J'ai fouiné partout en vain.

Alors si vous pouvez m'aider.

Grand Merci d'avance.

Sur feuille j'ai trois formes "une rouge une jaune et une bleu" à l'aide d'un checkBox quand je masque la bleu et la rouge la jaune doit rester visible et vis versa.

J'ai comme code ceci pour deux qui marche trés bien , mais je n'arrive pas pour trois?

Private Sub CheckBox1_Click()
 CheckBox1.Caption = IIf(CheckBox1, "Bleu", "Rouge")
    ActiveSheet.Shapes("Interdiction 4").Visible = IIf(CheckBox1 = True, False, True)
    ActiveSheet.Shapes("Interdiction 5").Visible = IIf(CheckBox1 = False, False, True)

  End Sub

Je vous remercie de votre aide

Amicalement

Max

Re,

Etant pas possible avec CheckBox puisque deux possibilite ou True ou False

Je recherche un code avec des obtiopn boutton

Merci d'avance

@+

Max

Bonjour,

Avec des options tu ne pourras pas faire ce que tu veux.

Mettre 3 CheckBox irait mieux.

A+

Exemple

Private Sub CheckBox1_Click()
    ActiveSheet.Shapes("Interdiction 3").Visible = CheckBox1
End Sub
Private Sub CheckBox2_Click()
    ActiveSheet.Shapes("Interdiction 4").Visible = CheckBox2
End Sub
Private Sub CheckBox3_Click()
    ActiveSheet.Shapes("Interdiction 5").Visible = CheckBox3
End Sub

Edit :

Mais avec le CheckBox tu peu avoir 3 états... True, False et Null

Ca pourrait peut-être te convenir.

Bonjour Lermite

je te remercie, tu me dit qu'il est possible avec le CheckBox d' avoir 3 états... True, False et Null

Pourrez-tu me dire comment faire ?

Merci d'avance et bonne journée

Max

Clic droit sur le CheckBox ->> Propriétés ->> mettre la propriété TriStade = True

Mais alors tu dois tester avec l’évènement Change., le 3èm état ne fonctionne pas avec le Clic.

Le code pour la sélection...

Private Sub CheckBox1_Change()
    If IsNull(CheckBox1.Value) Then
        CheckBox1.Caption = "Valeur 1"
    ElseIf Not CheckBox1 Then
        CheckBox1.Caption = "Valeur 2"
    ElseIf CheckBox1 Then
        CheckBox1.Caption = "Valeur 3"
    End If
End Sub

Re,

Ou la c'est trop compliquer pour moi sa.....!

Mais non, voir mon édit du poste précédant.

Re,

J'ai bien essayer mais rien je te joint mon fichier auquel j'ai essayer

Re,

Je suis arrivé a sa! si tu peut regarder et essayer de le rendre directe?

Je veut dire il affiche le premier apres le deuxieme et apres il efface le premier peut on faire mieux ?

@+

Max

A voir...

Re

Nickel

Je te remercie et te souhaite une bonne aprés midi

Max