Masquer des lignes et/ou colonnes sur ordre

Article mis en ligne le 7 janvier 2011

dernière modification le 17 janvier 2011

par Patrice MOREL

Ci-après une exemple à télécharger.

Excel 2003

Office 2003 - Excel

Testé

Code VBA à appliquer (Boucle) sur un évènement (liste déroulante par exemple...) :

Sub Masquer()

  Dim I As Long
  
  I = 1

  'Boucle le masquage des lignes comportant "Masquer"
  'et affiche les lignes comportant "Afficher" dans la première colonne jusqu'à la ligne 93
  Do While I < 93
    If Cells(I, 1).Value = "Masquer" Then
      Cells(I, 1).EntireRow.Hidden = True
    Else
      Cells(I, 1).EntireRow.Hidden = False
    End If
    I = I + 1
  Loop

End Sub

Masquage et affichage pour les colonnes :
Note : Pour connaître le N° de colonne aller dans la barre des menus Outils/ Options/Onglet Général et cocher Style de référence L1C1.
A la place des lettres en colonne, il y a alors des chiffres !

Dim I As Long
  
  I = 1

  'Boucle le masquage des colonnes comportant "Masquer" jusqu'à la colonne 57
  Do While I < 57
    If Cells(1, I).Value = "Masquer" Then
      Cells(1, I).EntireColumn.Hidden = True
    End If
    I = I + 1
  Loop

End Sub
Sub AfficherColonnes()

  Dim I As Long
  
  I = 1

  'Boucle l'affichage des colonnes comportant "Masquer" jusqu'à la colonne 57

  Do While I < 57
    If Cells(1, I).Value = "Masquer" Then
      Cells(1, I).EntireColumn.Hidden = False
    End If
    I = I + 1
  Loop