XL 2016 macro pour filtrer

user1969

XLDnaute Nouveau
Bonjour,
Je suis débutante en vba et j'aurais besoin de votre aide. Je souhaite filtrer une liste de groupe de mots et afficher les cellules qui ne contiennent pas : toto,titi,tata. Le problème est que ma macro ne fait le filtre que sur le dernier mot "tata"
La voila:

Sub Filtre()
With Worksheets("Feuil1")
If .FilterMode = True Then .ShowAllData
Range("A1").AutoFilter 1, Field:=1, Criteria1:=Array("<>*toto*", "<>*titi*", "<>*tata*")
End With
End Sub

Merci d'avance
 

MP59

XLDnaute Occasionnel
Bonsoir,
fonctionne avec t?T? où ? = n'importe quel caractère unique. Probablement que la réalité de ton fichier sera plus complexe.

VB:
Sub Filtre()
    With Worksheets("Feuil1")
        If .FilterMode = True Then .ShowAllData
        Range("A1").AutoFilter 1, Field:=1, Criteria1:=Array("<>*t?t?*")
    End With
End Sub

l'exclusion semble être limitée à 2 conditions (1 condition avec * ou ? peut faire plusieurs mots)
1633981597228.png
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG