Macro supprimer ligne

[Niouf]

Bonjour le forum,

J'essaye cette macro afin de supprimer des lignes en fonction de differents criteres

Sub test()
    Dim x As Long, lastrow As Long
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    For x = lastrow To 1 Step -1
        If Left(Cells(x, 6), 1).Value = "L" Or Left(Cells(x, 6), 2) = "MT" Then
            Rows(x).Delete
        End If
    Next x
End Sub

Cette macro fonctionne sans les "Left".
Mais j'aimerai pouvoir l'utiliser avec, car actuellement je suis oblige de rajouter une colonne sur le tableur effectuant la fonction Left afin d'extraire la premiere lettre d'une cellule.

Mon code est il faux ?

Merci d'avance !

 

[Efgé]

Re : Macro supprimer ligne

Bonjour

Problème de syntaxe :
Remplace

Left(Cells(x, 6), 1).Value

Par

Left(Cells(x, 6).Value, 1)

Cordialement

 

[Niouf]

Re : Macro supprimer ligne

Bonjour Efge,

Exact, je n'ai plus d'erreur, merci.

Mais ca ne devait pas etre la seule, puisque le tri ne s'effectue pas de cette facon ...

Le fichier ci joint, si t'as le temps d'y jeter un coup d'oeil !

 

[mutzik]

Re : Macro supprimer ligne

bonjour,

je ne vois pas ou il est question d'un quelconque tri
la macro ne fait que supprimer les lignes
si tes données étaient triées avant, elles le seront encore après ...