PROBLEME: Filtrer les données en fonction d'une valeur de cellule

[GIL]

Bonjour,

J’ai essayé de filtrer des données à l’aide d’un exemple trouvé sur internet :

Excel VBA Autofilter: A Complete Guide with Examples

Cependant j’ai deux problèmes notés en rouge dans mon tableau joint :

Filtre-VBA.xlsm

Pouvez-vous m’aider à les résoudre s’il vous plait ? J’ai essayé tout e que j’ai pu.

Merci par avance

Cordialement

[Cow18]

non avec cet outil on ne peut pas afficher plus que 8 lignes, j’ai ajouté un ActiveX, qui a plus de fonctionnalités.
La protection, on peut donner les macros l’accès presque illimité avec Userinterfaceonly=true (voir ThisWorkbook)
MEnoi5h8JFu_Filtre-VBA.xlsm (30,1 Ko)

[GIL]

Bonjour,

Je vous remercie infiniment, c’est exactement ce que je souhaitais.
Toujours très rapide dans vos réponses.

Félicitions

Bien cordialement

[GIL]

Bonjour,

J’ai appliqué vos consignes sur un autre fichier Excel, seulement, j’ai un souci avec certains tris qui ne fonctionnent pas, (LEP – LDD – CSL)

J’ai tout vérifié suivant mes compétences, mais je n’arrive pas à trouver la solution.

Pouvez-vous m’aider s’il vous plait ?

Je vous remercie par avance

Bien cordialement

Vous trouverez mon fichier sur ce lien :

https://www.cjoint.com/c/MEvu7JLHZKu
Compte 12.xlsm (834,8 Ko)

[Cow18]

pour la feuille LDD, je l’ai déjà fait.
La cellule H11 est vide et cela cause le problème donc j’ai ajouté un espace " " dans cette cellule, donc elle ressemble vide mais elle ne l’est pas. Puis un petit modif de la macro pour ne pas montrer cette fleche et pour filtrer que la colonne H …
MEvu7JLHZKu_Compte-12.xlsm (800,8 Ko)

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = "$H$6" Then
          If Range("H6") = "All" Then
               Range("H11").AutoFilter
          Else
               Range("H11").Resize(1000).AutoFilter Field:=1, Criteria1:=Range("H6"), VisibleDropDown:=False
          End If
     End If
End Sub

[GIL]

Bonjour,

Une fois de plus tout est nickel

Grand merci

Très cordialement

[Jacquinot_WILL-FREAD]

Bonjour,
La solution doit être sur les codes de @Cow18, non ?
Cordialement