Microsoft 365 Ajouter et masquer une colonne en VBA

[Bizarre]

Bonjour,

Je souhaite ajouter une colonne et en masquer une autre par vba dans la feuille « TDB », pour ajouter la colonne je me suis servi de l’enregistreur de macro et cela fonctionne. J’aimerais en même temps que j’ajoute une colonne masquer la colonne deuxième colonne après la colonne active.

Exemple :

Dans TDB j’aimerais afficher que la colonne ajouter (2021 &2022) et masquer les autres colonnes avec en titre une année.

Je joins un fichier

 

[job75]

Bonjour Bizarre, le forum,

C'est le genre de problème où il est facile d'être clair alors pourquoi ne l'êtes-vous pas ?

A+

 

[Bizarre]

Bonjour ;

La colonne ajoutée va se mettre en I donc je voudrais que la colonne G se masque.

Colonne ajoutée = 2022 donc 2020 se masque et ainsi de suite.

 

[job75]

Toujours peu clair mais bon voyez si ceci convient :

Sub Ajout_Colonne()
Dim i%
With [TDB].ListObject.Range.Rows(1).Cells
    .Columns(.Count + 1).EntireColumn.Insert 'pour décaler le bouton vers la droite
    .Cells(1, .Count + 1) = Val(.Cells(1, .Count)) + 1 'incrémente
    .Columns(.Count).Resize(, 2).Hidden = False 'affiche, au cas où...
    For i = 1 To .Count - 1
        If .Cells(1, i) Like "####" Then .Columns(i).Hidden = True 'masque
    Next
End With
End Sub

 

[Bizarre]

Bonjour job75,
Le code fourni samedi par vos soins me convient parfaitement . Merci beaucoup un souci de moins