Masquer colonne avec incrémentation

[Jeremy992]

Bonjour le forum,

Voila j'ai une petite question !

Grâce a un bouton, j'aimerai masquer la colonne C et étiré d'une colonne, la colonne G.

Bon jusque la rien de compliquer, seulement voila j'aimerais qu'a chaque fois que j'appuie sur ce "bouton" ça me masquer les suivantes, par exemple:

Je re-appuyer,
Masque la cellule D et étire la colonne H d'une colonne.

Finalement c'est toujours la 3ème colonne visible et la dernière remplie.


Je vous joint un petit exemple 😉

Merciii !

 

[Jeremy992]

Re : Masquer colonne avec incrémentation

Je crois que je touche au but !!

J'ai donc le code suivant qui me permet de selectionner la 3ème colonne, de la masquer, mais je n'arrive pas a selectionner la dernière colonne (la colonne en entier), je selectionne seulement la 1er cellule de la dernière colonne, or je voudrais selectionner directement toute la colonne... une idée??

Sub suppr_ligne_auto()
Dim i As Integer
     For i = 3 To 287
        If Columns(i).Hidden = False Then
             Columns(i).Hidden = True
             Exit For
        End If
     Next i

[B]Cells(1, Columns.Count).End(xlToLeft).Select[/B]

Selection.AutoFill Destination:=ActiveCell.Resize(1, 2), Type:=xlFillDefault

 

[Jeremy992]

Re : Masquer colonne avec incrémentation

Peut-être quelque chose comme:

Columns.End(xlToLeft).Select

Mais je ne sais pas comment l'écrire...