Utilisation fonction triplestate d'une checkbox

Bonjour,

Voila je cherche à activer une Textbox quand la checkbox est activée où nulle.

Mon option triplestate est bien activé.

J'ai donc codé la formule suivante :

Private Sub UserForm_Activate()
'initialise textbox caché si checkbox vide
If CheckBox99.Value = False Then
TextBox99.Visible = False
Else
TextBox99.Visible = True
End If
End Sub

Private Sub CheckBox99_Click()
If CheckBox99.Value = Null Or CheckBox99.Value = True Then
TextBox99.Visible = True

ElseIf CheckBox99.Value = False Then
TextBox99.Visible = False
End If
End Sub

ça marche, sauf quand la checkbox est nulle ...

Par ailleurs je doit faire cette manipulation sur 3 textbox avec chacune leurs checkbox liée y aurais-t'il une manière de compiler cela sans faire 3 private sub ?

Merci pour le coup de pouce

Bonjour et bienvenu(e)

Quelle est l'utilité dans ce cas du TripleState ?

Pourquoi ne pas utiliser seulement True et False

De toute façon si tu veux avoir des réponses un fichier pour tester est indispensable

Bonjour,

Il semble que le passage à l'état Null ne déclenche pas cet événement Click.

Il faudrait que tu testes sur un autre événement :

Private Sub CheckBox1_AfterUpdate()
    If IsNull(CheckBox1.Value) Then
        TextBox1.Visible = True
    End If
End Sub
Private Sub CheckBox1_Click()
    TextBox1.Visible = CheckBox1.Value
End Sub

eric

PS: d'accord avec Banzaï. Marre de faire des fichiers de travail que le demandeur devrait fournir...

Merci beaucoup ça marche avec l'événement AfterUpdate.

Pour répondre a Banzai, c'est un userform de gestion des compétences de fournisseurs et la propriété Null du TripleState permet de mettre en évidence là où on peut avoir un doute le temps de trouver les renseignements.

Concernant le fichier test promis je le ferais la prochaine fois.

Bonne fin de journée