Microsoft 365 Ajouter et masquer une colonne en VBA

Bizarre

XLDnaute Nouveau
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
 

Pièces jointes

  • Exemple 1-V1.xlsm
    42.7 KB · Affichages: 5
Solution
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

XLDnaute Barbatruc
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
 

Pièces jointes

  • Exemple 1-V1.xlsm
    52.7 KB · Affichages: 6

Discussions similaires

Réponses
2
Affichages
239