masquer les lignes non vides

pascal21

XLDnaute Barbatruc
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
 
Dernière édition:

job75

XLDnaute Barbatruc
Re,

En supposant qu'en ligne 4 toutes les colonnes du tableau aient un titre* on peut utiliser le filtre avancé :
Code:
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+
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 816
Messages
2 092 331
Membres
105 367
dernier inscrit
jych