Comment masquer/afficher une colonne/ligne via VBA ?

Propriété cachée VBA

Pour masquer/afficher une colonne ou une ligne dans Excel à l’aide de VBA, vous pouvez utiliser la propriété « Masqué ». Pour utiliser cette propriété, vous devez spécifier la colonne ou la ligne à l’aide de l’ objet plage , puis spécifier VRAI/FAUX.

  1. Spécifiez la colonne ou la ligne à l’aide de l’objet plage.
  2. Après cela, utilisez la propriété column/row entière pour faire référence à la ligne ou à la colonne entière.
  3. Ensuite, utilisez la propriété masquée.
  4. À la fin, spécifiez le vrai/faux.

Voici l’exemple à considérer :

vba-propriété cachée
Sub vba_hide_row_columns()
'hide the column A
Range("A:A").EntireColumn.Hidden = True
'hide the row 1
Range("1:1").EntireRow.Hidden = True
End Sub

Dans le code ci-dessus, nous avons utilisé la propriété hidden pour masquer les colonnes A et la ligne 1. Et voici le code pour les afficher.

Sub vba_hide_row_columns()
'unhide the column A
Range("A:A").EntireColumn.Hidden = False
'unhide the row 1
Range("1:1").EntireRow.Hidden = False
End Sub

Masquer/Afficher plusieurs lignes et colonnes VBA

Sub vba_hide_row_columns()
'hide the column A to c
Range("A:C").EntireColumn.Hidden = True
'hide the row 1 to 4
Range("1:4").EntireRow.Hidden = True
End Sub

Et de la même manière, si vous souhaitez afficher plusieurs lignes et colonnes.

Sub vba_hide_row_columns()
'hide the column A to c
Range("A:C").EntireColumn.Hidden = False
'hide the row 1 to 4
Range("1:4").EntireRow.Hidden = False
End Sub

Masquer toutes les colonnes et lignes

Sub vba_hide_row_columns()

'hide the column A
Columns.EntireColumn.Hidden = True

'hide the row 1
Rows.EntireRow.Hidden = True

End Sub
masquer-toutes-les-colonnes-et-les-lignes

Afficher toutes les colonnes et lignes

Sub vba_hide_row_columns()

'unhide all the columns
Columns.EntireColumn.Hidden = False

'unhide all the rows
Rows.EntireRow.Hidden = False

End Sub

Masquer/Afficher les colonnes et les lignes dans une autre feuille de calcul

Sub vba_hide_row_columns()

'hide all columns in the sheet 1
Worksheets("Sheet1").Columns.EntireColumn.Hidden = False

'hide all rows in the sheet 1
Worksheets("Sheet1").Rows.EntireRow.Hidden = False

End Sub

Ajouter un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *