XL 2016 supprimer ligne suivant nombre caractère VBA

vinceda · 18 Mars 2021

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 · 18 Mars 2021

Bonjour Vinceda,
un essai en PJ avec :

VB:

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 · 18 Mars 2021

Bonjour vinceda, Sylvanu

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

VB:

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 · 18 Mars 2021

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

sylvanu · 18 Mars 2021

Re,
Attention à cette ligne :

VB:

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

préférez

Code:

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.

XL 2016 supprimer ligne suivant nombre caractère VBA

vinceda

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Fred0o

XLDnaute Barbatruc

vinceda

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Discussions similaires

XL 2016 supprimer ligne suivant nombre caractère VBA

vinceda

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Fred0o

XLDnaute Barbatruc

vinceda

XLDnaute Junior

​

sylvanu

XLDnaute Barbatruc

Discussions similaires