Masque des colonnes selon certains critères sans les filtres [Résolu]

[CLAUDE19]

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

[francky74]

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

[francky74]

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

[CLAUDE19]

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.

[gFZT82]

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.

[CLAUDE19]

Bonjour

Et merci, c'est exactement cela.

Cordialement