Utilisation de l'opérateur LIKE

[Quincy]

Bonjour à tous

Je souhaite supprimer des lignes dont le texte de l'une des colonnes ne commence pas par "Clos". J'ai utilisé l'opérateur LIKE et en fait il me faudrait un dans le genre Not Like, j'ai essayé le sigle <> qui ne marche pas.
Pouvez-vous m'aider à résougre mon problème. Merci.

 

[pierrejean]

Re : Utilisation de l'opérateur LIKE

bonjour Quincy

quelque chose comme

For n = 1 To Range("A65536").End(xlUp).Row Step -1
 If Left(Range("A" & n), 4) <> "Clos" Then Rows(n).Delete
Next n

 

[Staple1600]

Re : Utilisation de l'opérateur LIKE

Bonjour


Exemple pour traiter la colonne A

Sub test()
Dim i As Long
For i = [A65536].End(xlUp).Row To 1 Step -1
If Not Cells(i, 1).Value Like "Clos*" Then Cells(i, 1).EntireRow.Delete
Next i
End Sub

edit: bonjour pierrejean 😉

 

[Quincy]

Re : Utilisation de l'opérateur LIKE

Bonjour pierrejean

Je te remercie de ta réponse rapide. J'ai essayé avec <> "Clos*" et cela n'avait pas marché. Je vais tester avec la fonction LEFT.
Cordialement.

 

[Staple1600]

Re : Utilisation de l'opérateur LIKE

Re


Tu as essayé avec ma précédente réponse? 😉

 

[Quincy]

Re : Utilisation de l'opérateur LIKE

Re


Tu as essayé avec ma précédente réponse? 😉

Bonjour Staple1600

Désolé je n'avais pas vu ta réponse, trop affairé avec la solution de pierrejean qui marche d'ailleurs et que je remercie.

Je vais tester ce que tu me proposes et te repondrai dans un moment.
Merci à tous les deux.

 

[Quincy]

Re : Utilisation de l'opérateur LIKE

Re

Staple1600, ta solution me convient aussi, je vais voir laquelle je vais adopter.
Encore merci à tous les deux.

 

[deniooo]

Re : Utilisation de l'opérateur LIKE

Une autre méthode (encore !)

Sub Macro6()
    Dim cel As Long
    Dim plage As Long
    Dim i As Long
    i = 0
    plage = ActiveWorkbook.ActiveSheet.UsedRange.Columns("A").Cells.Count
    cel = 1
    Do Until cel > plage
        If (Cells(cel, 1).Value Like "Clos*") Then
            i = i + 1
        Else
            Cells(cel, 1).EntireRow.Delete
            cel = i
            plage = plage - 1
        End If
        cel = cel + 1
    Loop
End Sub