masquer les lignes non vides

[pascal21]

bonjour le forum
je souhaiterais masquer les lignes dont la colonne A est renseignée a partir de la ligne 5
je trouve plein de choses pour masquer les lignes vides mais j'ai rien vu sur les lignes non vides
et pendant que l'on y ai je souhaiterais laisser les lignes avec la valeur "lyon" par exemple, affichées
c'est pour un classeur utilisé par plusieur utilisateurs et je ne souhaite pas que les autres puissent voir ce que met leur "voisin"
merci de votre aide

 

[Calvus]

Bonjour Pascal21, le forum,

masquer les lignes dont la colonne A n'est pas renseignée a partir de la ligne 5

masquer les lignes vides mais j'ai rien vu sur les lignes non vides

Il y a comme une contradiction non ? 🙄

A+

 

[pascal21]

oui je corrige de suite merci

 

[job75]

Bonjour pascal21, Calvus,

je trouve plein de choses pour masquer les lignes vides mais j'ai rien vu sur les lignes non vides

Réfléchissez 5 secondes : dans les 2 cas la méthode est identique !

Il suffit dans un cas d'afficher/masquer ce que l'on masque/affiche dans l'autre cas.

A+

 

[job75]

Re,

En supposant qu'en ligne 4 toutes les colonnes du tableau aient un titre* on peut utiliser le filtre avancé :

Sub Masquer()
With ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell)
  With ActiveSheet.[A4].Resize(.Row, .Column)
    .Cells(2, .Columns.Count + 1).FormulaR1C1 = "=(RC1="""")+(RC1=""lyon"")"
    .AdvancedFilter xlFilterInPlace, .Cells(1, .Columns.Count + 1).Resize(2)
    .Cells(2, .Columns.Count + 1) = ""
  End With
End With
End Sub

Sub Afficher()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub

* en fait chez moi le filtre fonctionne même sans titres.

A+