Masquer des lignes et/ou colonnes sur ordre

D 7 janvier 2011 H 11:39 A Patrice MOREL

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

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

Une version antérieure au 11/01/2011 était sur cette page. Le code a été modifié pour plus de souplesse visuelle dans le déclenchement de l’évènement.

Dans la même rubrique

17 janvier – Bogue en RechercheV avec des parenthèses

12 mai 2021 – Un lien entre les cellules

12 novembre 2019 – Formatages divers

4 janvier 2018 – Incrémentation de lignes avec un classeur lié.

3 août 2017 – Nom de fichier dans une cellule

Rechercher

Traducteur

Masquer des lignes et/ou colonnes sur ordre

Dans la même rubrique

Rechercher

Traducteur

Les plus lus

5 articles au hasard

Les plus populaires