code checkbox ne fonctionne pas ?

[rudy dehaudt]

bonjour a vous,
pourriez vous corriger le code ci dessous, je ne trouve pas ou et l erreur ?

merci A+

Private Sub CheckBox1_Click()
CheckBox1.Value = False Then
Feuil1.Columns("G").EntireColumn.Hidden = True
CheckBox1.Value = True Then
Sheet1.Columns("G").EntireColumn.Hidden = False
End If
End If
End Sub

 

[sousou]

Re : code checkbox ne fonctionne pas ?

Private Sub CheckBox1_Click()
if CheckBox1.Value = False Then
Feuil1.Columns("G").EntireColumn.Hidden = True
else
Sheet1.Columns("G").EntireColumn.Hidden = False

End If
End Sub

 

[Robert]

Re : code checkbox ne fonctionne pas ?

Bonjour Rudy, bonjour le forum,

Essaie comme ça :

Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
     Feuil1.Columns("G").EntireColumn.Hidden = True
Else
     Sheet1.Columns("G").EntireColumn.Hidden = False
End If
End Sub

[Édition]
Bonjour Sousou on s'est croisé...

 

[Dranreb]

Re : code checkbox ne fonctionne pas ?

Bonjour.
De toute façon même avec le mots clés "If" manquants c'est incorrect.
Écrivez simplement:

Private Sub CheckBox1_Click()
Feuil1.Columns("G").EntireColumn.Hidden = Not CheckBox1.Value
End Sub

À supposer que le CodeName est Feuil1 partout et non Sheet1.
Cordialement


Bonjour les autres. Rrrha ! Pas

if CheckBox1.Value = False Then

mais

If Not CheckBox1.Value Then

À +

 

[rudy dehaudt]

Re : code checkbox ne fonctionne pas ?

super merci a tous.

A+