Masque des colonnes selon certains critères sans les filtres

Bonjour à tous,

Dans une base de donnée, je souhaiterais afficher les lignes et uniquement celle-ci ayant la valeur "Dossier" qui se trouve dans la colonne (D) (et donc masquer toutes les autres lignes) en plus je souhaiterais que la ligne numéro 99 soit également affichée sans tenir compte de la valeur de la cellule qui se trouve en D99.
Pourriez vous m'aider dans l'écriture des lignes de commandes?

D'avance merci,

Cordialement

Bonjour,

Je pense que vous devriez déjà filtrer ce qui vous intéresse comme ceci :

Code:

---

1 2 3 4 5 6

Sub Filtre()   Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=4, Criteria1:="=Dossier", Operator:=xlAnd End Sub

---

ensuite copier le résultat ou copier les N°s de lignes. Puis enlever les filtres et faire apparaître les N°s de lignes précédemment copiés + la ligne 99.

Cela pourrait être une idée

Bonjour,

Pour copier les éléments qui ont étés filtrés, je propose ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Filtre()   Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter Field:=4, Criteria1:="=Dossier", Operator:=xlAnd Feuil1.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy   Worksheets("Feuil2").Activate Range("A1").Select ActiveSheet.Paste   End Sub

---

Ici j'ai copié collé les lignes filtrées dans une seconde feuille mais tu peux très bien les repositonner sur la première feuille avec la ligne 99

Bonjour

Et merci de vos réponses. Ce n'est pas exactement ce que je souhaitais. Sur une même feuille j'ai une base de donnée et je souhaite afficher ou masquer des lignes en fonction d'une valeur choisie dans les cellules de la colonne B.
Avec en plus la ligne 99 affichée systématiquement. Je ne souhaite pas passer par les filtres du menu "Données"
J'aurais donc plusieurs macros qui me feront apparaître des lignes selon une valeur choisie.
La base de données est de 99 ligne et le nombres de macro sera de 22

J'espère avoir été plus précis dans ma demande. En ce moment j'ai fait ces macros avec l'enregistreur. Mais ça me pose problème lorsque je modifie mon nombre de lignes.

Bonjour,

voici une solution pour masquer les lignes autres que celles qui contiennent "Dossier" en colonne D et autre que la ligne 99.

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Explicit Sub Masquer() Dim ws As Worksheet Dim DerLig As Long, i As Long Set ws = ThisWorkbook.ActiveSheet DerLig = ws.UsedRange.Rows.Count For i = 1 To DerLig If ws.Range("D" & i) <> "Dossier" And i <> 99 Then ws.Range("D" & i).EntireRow.Hidden = True Next i End Sub

---

Cordialement.

Bonjour

Et merci, c'est exactement cela.

Cordialement