Supprimer contenu cellule si ne contient pas au moins AZ

Bonjour,

Je suis encore en galère...

J'utilise ce code:

Dim J As Long

For J = 2 To Range("B" & Rows.Count).End(xlUp).Row
If UCase(Range("B" & J)) <> "AZ" Then
Range("B" & J).ClearContents
End If
Next J
End Sub

Seulement il me prend exactement AZ. Or je souhaiterai que cela fonctionne avec par exemple

AZ 23.

J'ai essayé d'intégrer le find:=xlpart mais sans succès.

Auriez vous une solution?

Merci

Cordialement,

Innuendo67

Bonjour,

Si tu essayais comme ça ?

If UCase(Range("B" & J)) <> "*AZ*" Then

Bonjour Raja.

J'avais déjà essayé mais vu que c'est entre guillemets

Il recherche *AZ* et AZ et autre chose.

Merci de l'intérêt porté à mon post.

Cordialement,

Innuendo67


Et pas AZ et autre chose

Re,

Essaye ce code suivant :

Sub test()
    Dim J As Long
    For J = 2 To Range("B" & Rows.Count).End(xlUp).Row
        If Not UCase(Range("B" & J)) Like "*AZ*" Then
            Range("B" & J).ClearContents
        End If
    Next J
End Sub

Merci Raja!

Impeccable!

Rechercher des sujets similaires à "supprimer contenu contient pas"