supprimer les lignes selon cellules

[JJ1]

Bonjour
j'ai une liste de lettres en colonne A avec un nombre en colonne B
Je voudrais supprimer toutes les lignes dont le nombre de lettres en colonne A est supérieur à 4?
(ici les lignes en orange dans mon petit ex)
comment puis je le faire?
merci de votre aide

 

[JYLL]

Re : supprimer les lignes selon cellules

Bonjour JJ1 et le Forum,

Voici une macro qui devrait résoudre ton problème.

Sub Efface_Lignes()
    For I = Range("A65536").End(xlUp).Row To 1 Step -1
        If Len(Cells(I, 1)) > 4 Then
            Rows(I).Select
            Selection.Delete Shift:=xlUp
        End If
    Next I
End Sub

Bon test.

 

[JJ1]

Re : supprimer les lignes selon cellules

Bonjour JYLL et merci pour ton code
je teste de suite
bon AM