XL 2016 macro pour filtrer

user1969 · 6 Octobre 2021

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 · 11 Octobre 2021

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)

XL 2016 macro pour filtrer

user1969

XLDnaute Nouveau

MP59

XLDnaute Occasionnel

Discussions similaires