code non exécuter

[namilik]

Bonsoir à tous
j'ai créé un code pour masquer la colonne F et G avec les cases d'option et les cases à cocher,mais le code n'est pas exécutable,avez-vous une solution
voir fichier joint
Merci d'avance [file name=masquercolonne_20060516202726.zip size=7206]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/masquercolonne_20060516202726.zip[/file]

 

[Bebere]

bonsoir Namilik
écrit ton code comme suit
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1).Value = '2' Then
Columns('F:G').EntireColumn.Hidden = True
Else
Columns('F:G').EntireColumn.Hidden = False
End If
Range('A1').Select
End Sub

à bientôt

 

[namilik]

Re
Merci bebere pour ta réponse,mais je veux masquer aussi les cases d'option et les cases à cocher en meme tempt avec la colonne F et G
Voir le fichier joint précedent
Merci d'avance

 

[Amydale]

Je ne suis pas sur que ce que tu veux faire soit tres judieux mais bon.

If suffit de rendre invisible tes cases à cocher

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1).Value = '2' Then
Columns('F:G').EntireColumn.Hidden = True
Shapes('CaCase_à_cocher').Visible = False
Else
Columns('F:G').EntireColumn.Hidden = False
Shapes('CaCase_à_cocher').Visible = true
End If
Range('A1').Select
End Sub