XL 2016 supprimer ligne suivant nombre caractère VBA

[vinceda]

Bonjour à tous ,

dans un de mes fichiers je souhaite supprimer des lignes suivant le nombre de caractères dans une cellule par VBA.
Dans un fichier, sur mes lignes, j'ai des informations qui ressemblent à des doublons mais dans la colonne E, je dois avoir au moins 2 caractères.... les lignes n'ayant qu'un seul caractère doivent être supprimées

Malgré mes recherche, je n'ai pas trouver de code qui puisse faire le job.

Je vous met dans un fichier joint un petit exemple.
Je vous remercie par avance pour votre aide

 

[sylvanu]

Bonjour Vinceda,
un essai en PJ avec :

Sub Supprime()
Application.ScreenUpdating = False
For L = Range("A65500").End(xlUp).Row To 2 Step -1
    If Len(Cells(L, "E")) < 2 Then Cells(L, 1).EntireRow.Delete
Next L
End Sub

 

[Fred0o]

Bonjour vinceda, Sylvanu

Voici une macro que j'ai testee. A essayer :

Sub Suppr_Mono_Caract()
    For i = [E65536].End(xlUp).Row To 2 Step -1
        If Len(Cells(i, 5)) < 2 Then Cells(i, 5).EntireRow.Delete shift:=xlUp
    Next
End Sub

 

[vinceda]

Bonjour Sylvanu, Fred0o
Vos codes marchent parfaitement !!!!
je vous remercie pour votre réactivité !!!!!

​

 

[sylvanu]

Re,
Attention à cette ligne :

For i = [E65536].End(xlUp).Row To 2 Step -1

préférez

For i = [A65536].End(xlUp).Row To 2 Step -1

Car justement si les dernières cellules du code étaient vides alors les lignes ne seraient pas supprimées.