Discussion :

[francois_nice]

Bonjour
j'utilise les macro Vba pour mon plaisir et pour automatiser quelques filtres
je bloque pour utiliser la même macro avec des conditions différentes
j'aimerai afficher mes client "Actif" ou "Inactif" ou tous les clients
j'ai cherché sur internet mais je ne dois pas poser la bonne question

mes filtres par exemple

If Workbooks(ClsAllClient).Sheets("Clients").Range("F" & i).Value = "En Parc" Then....... pour avoir les clients en Parc
If Workbooks(ClsAllClient).Sheets("Clients").Range("F" & i).Value <> "En Parc" Then..... pour avoir les clients hors Parc
et une autre procédure sans filtre ............................................................................pour avoir tous les clients


Actuellement je copie ma procédure dans une autre procédure en changeant seulement le If
ou une procédure avec un If et un elseif et un else mais ça reviens au même je recopie mon traitement 3 fois a l’identique
mais c'est compliqué a entretenir, à chaque modif je dois repasser sur toute les procédures
Je ne sais pas si j'ai été clair
je vous remercie
François

[mat955]

Bonjour,

Pour afficher toutes les données d'une feuille (= enlever les filtres), il faut utiliser la méthode ShowAllDatas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Sheets("Feuil1").FilterMode Then ActiveSheet.ShowAllData

Le test sur le FilterMode sert à tester si les données sont filtrées, car si ce n'est pas le cas, ShowAllDatas renvoie une erreur.