pb de CheckBox invisible

[Toutou]

Bonjour,
un USF ('Choix1') a 3 bouttons le 2ème boutton mène à un autre usf ('FcheProd') qui a entre autre 3 checkbox. Voici le code du 2ème boutton:

Private Sub CommandButton2_Click()
FcheProd.palbois.Visible = False
FcheProd.palagglo.Visible = False

If FcheProd.Choixpal = True Then
palagglo.Visible = True
End If

If FcheProd.Choixpal = True Then
palbois.Visible = True
End If


Choix1.Hide
FcheProd.Show
End Sub

'ChoixPal' , 'Palbois' et 'Palagglo' sont des Checkbox.

Je voudrais ne faire apparaître 'Palbois' et 'Palagglo' que si
FcheProd.Choixpal = True .

Le code précedent fait disparaître les check box mais il ne REapparaissent pas quand FcheProd.Choixpal = True .

Ai-je bien placé mon code?
Quelqu'un pourrait-il corriger mes erreurs?

Merci d'avance,
@ +
Toutou

 

[benlo]

Allo,

Vite comme ça, essaie d'utiliser un If suivit d'un ElseIf...

Le premier If indique quoi faire dans la situation #1...

Le ElseIf indique quoi faire dans la situation #2...

Pas testé, juste une idée comme ça,

Exemple de code que j'ai utilisé :


Private Sub CheckBoxLettreSansErreur_Click()
' If CheckBoxLettreSansErreur.Value = True Then

CheckBoxDateRappel.Value = False
CheckBoxMentionRappel.Value = False

'si décoche la case remet les check box disponible

ElseIf CheckBoxLettreSansErreur.Value = False Then

CheckBoxDateRappel.Locked = False
CheckBoxMentionRappel.Locked = False
End If
End Sub

 

[Toutou]

Merci pour ton aide,
ça marche
a +
Toutou