Discussion :

[Campomoro2A]

Bonjour

Dans une macro, je veux masquer 2 colonnes. J'utilise le code suivant, qui marche bien :

' Masque les colonnes Compte Comptable et Libellé Compte
Columns("I:J").Select
Selection.EntireColumn.Hidden = True

Mais si j'ajoute une colonne dans mon tableau, la macro ne va pas être actualisée automatiquement pour devenir :
' Masque les colonnes Compte Comptable et Libellé Compte
Columns("J:K").Select
Selection.EntireColumn.Hidden = True

J'ai nommé mes colonnes (ex : Col_Compte & Col_Lib_Compte)
Mais alors l'instruction Columns("Col_Compte:Col_Lib_Compte").Select ne fonctionne pas.

Pourriez-vous me dire comment je dois coder mon instruction.

Merci

[BENNASR]

Bonjour
proposition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim F As Worksheet
Dim DerCol As Long
Set F = Sheets("feuil1")
Application.ScreenUpdating = False
F.Columns.EntireColumn.Hidden = False
    DerCol = F.Cells(1, F.Cells.Columns.Count).End(xlToLeft).Column
    For C = 1 To DerCol
    If F.Cells(1, C) = "A" Or F.Cells(1, C) = "B" Then F.Columns(C).Hidden = True
   Next C
   Application.ScreenUpdating = True
End Sub

[Franc]

Bonjour, il ne faut pas utiliser Columns mais Range. Petite info en passant, les .Select sont inutiles pour manipuler les cellules.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub MasquerColonnesNomées()
 
    Range("Col_Compte").EntireColumn.Hidden = True
    Range("Col_Lib_Compte").EntireColumn.Hidden = True
 
End Sub

[Campomoro2A]

Bonjour, il ne faut pas utiliser Columns mais Range. Petite info en passant, les .Select sont inutiles pour manipuler les cellules.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub MasquerColonnesNomées()
 
    Range("Col_Compte").EntireColumn.Hidden = True
    Range("Col_Lib_Compte").EntireColumn.Hidden = True
 
End Sub

Merci de cette réponse rapide. Ca marche !!!

[Raccourcix]

Bonjour
Pour manipuler des données (comptable ou autre) il est préférable d'utiliser des tableaux structurés avec des titres plutôt que de nommer les colonnes J:J

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Range("Tableau1[Col_Compte]").EntireColumn.Hidden = True

et pour plusieurs colonnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Union(Range("Tableau1[Col_Compte]"), Range("Tableau1[Col_Lib_Compte]")).EntireColumn.Hidden = True

Stéphane