Tri avec contenants ?

Bonjour J’ai cette formule qui tri les « Bonjour »

J’aimerai qu’elle trie aussi des contenants du genre « BonjourA ou Bonjour8, Bonjour Madame » ou autres tous ce qui contient le mot "Bonjour".

Merci à vous pour votre aide.

Sheets("Politesse").Range("A2:H2000").ClearContents

With WsSource

If .AutoFilterMode = True Then .ShowAllData

NbLg = .Range("A" & Rows.Count).End(xlUp).Row

.Range("A1:H" & NbLg).AutoFilter Field:=3, Criteria1:="=*Bonjour*"

If Application.Subtotal(3, .Columns("A")) > 1 Then

.Range("A2:H" & NbLg).SpecialCells(xlCellTypeVisible).Copy Destination:=WsDestin.Range("A2")

.Range("A2:H" & NbLg).SpecialCells(xlCellTypeVisible).EntireRow.Delete

End If

.Range("A1:H" & NbLg).AutoFilter

End With

Personne ne sait ou même une idée ?

Salut,

Etant donnée que je suis sur un soucis de trie je vien t'aider si cela peut être utile.

Je te propose de faire un Données : Filtre : Ensuite Filtre textuel et ensuite contenant : Bonjour

Cordialement,

Bonjour DJFA, bonjour le forum,

A tout hasard, à tester...

.Range("A1:H" & NbLg).AutoFilter Field:=3, Criteria1:="*Bonjour*"

ou (sans les ")

.Range("A1:H" & NbLg).AutoFilter Field:=3, Criteria1:=*Bonjour*

ou

.Range("A1:H" & NbLg).AutoFilter Field:=3, Criteria1:="*" & Bonjour & "*"

Cordialement,

xorsankukai

Ça fonctionne avec le deuxième, merci.