Microsoft 365 Ajouter et masquer une colonne en VBA

Bizarre · 22 Janvier 2022

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 · 22 Janvier 2022

Toujours peu clair mais bon voyez si ceci convient :

VB:

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

job75 · 22 Janvier 2022

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 · 22 Janvier 2022

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 · 22 Janvier 2022

Toujours peu clair mais bon voyez si ceci convient :

VB:

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 · 24 Janvier 2022

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

Microsoft 365 Ajouter et masquer une colonne en VBA

Bizarre

XLDnaute Nouveau

Pièces jointes

job75

job75

XLDnaute Barbatruc

Bizarre

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Bizarre

XLDnaute Nouveau

Discussions similaires