Masquer les 3 premieres colonnes

Bonjour

Sub Macro1()
Columns("B:D").Select
Selection.EntireColumn.Hidden = True
End Sub
________
Sub Macro2()
Columns("B:D").Select
Selection.EntireColumn.Hidden = False
End Sub
_________

Macro 1 pour les cacher, macro 2 pour les ressortir, le cas échéant.

pour faire cette macro par enregistrement
Ouvrir l'enregistreur:
Outil /Macro / Nouvelle macro
Sélectionner les colonnes et:Format / Colonne / masquer
pour retour à colonne visible:
copier coller la macro, remplacer True par False.
CRDLMNT

c est deja ce que j ai comme macro mais mon souci est que quand les colonnes B C et D son masqués,les 3 premieres colonnes apres la colonne A sont la E F et G .
c est pour ca que j aimerais masqués les 3 premieres colonnes visibles apres la colonne A

Effectivement, ça ne peut marcher qu'une fois, mais pour faire mieux,en supposant qu'il y ai une solution, il faudra attendre quelqu'un de plus au courant sur les macros, moi, je ne sais rien de plus.
Bonne chance
Avec mes regrets
CRDLMNT

Bonjour tt le monde

Pas sûr du tout d'avoir bien compris la demande....

Sub cacherles3colonnnesdapres()
col = 2
While Columns(col).Hidden = True
col = col + 1
Wend
For cptr = col To col + 2
Columns(cptr).Hidden = True
Next
End Sub


Michel

Timmy 2007,
voir message 4 plus haut
bonne chance