Complément à mon code merci!!

[rosfr11]

Bonjour à tous,

Est-ce quelqu'un pourrais me compléter ce code qui masquent les colonnes de G à I. Le but etant de garder visible la colonne H?

Merci!

Case "Masquer colonnes G,H,I"
For i = 7 To 9
Worksheets(1).Columns(i).Hidden = True
Next i

 

[pierrejean]

Re : Complément à mon code merci!!

bonjour rosfr11
A tester

Case "Masquer colonnes G,H,I"
For i = 7 To 9
if i<>8 then 
 Worksheets(1).Columns(i).Hidden = True
else
 Worksheets(1).Columns(i).Hidden = falseend if 
Next i

 

[rosfr11]

Re : Complément à mon code merci!!

Merci mais le code
Worksheets(1).Columns(i).Hidden = falseend if

semble causer une erreur

 

[rosfr11]

Re : Complément à mon code merci!!

Désolé c'est moi qui n'est pas séparer le endif,

Ca fonctionne correctement, Un gros merci!