Supprimer des lignes en fonctins du nombre de caractères

Bonjour,

Je voudrais faire la chose suivante à travers une macro :

Dans une colonne supprimer les lignes qui contiennent plus de 25 caractères (un espace étant considéré comme un caractère).

Quelqu'un a t'il une solution ?

Merci

François

Bonjour

Et une macro pour la 12 ! une

Colonne à tester : A

Code à placer dans un module et à affecter à un bouton

Option Explicit

Sub SupprimeLignes()
Dim J As Long

  For J = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Len(Range("A" & J)) > 24 Then Rows(J).Delete
  Next J
End Sub

Banzai64 a écrit :

Bonjour

Et une macro pour la 12 ! une

Colonne à tester : A

Code à placer dans un module et à affecter à un bouton

Option Explicit

Sub SupprimeLignes()
Dim J As Long

  For J = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Len(Range("A" & J)) > 24 Then Rows(J).Delete
  Next J
End Sub

Ça marche, impeccable !

Merci bien

François