Nombre de caractere

Bonjour à tous.

Je me permet de vous solliciter encore une fois de plus afin d’obtenir votre aide svp

J’ai en colonne À une série de chiffres contenant pour là plupart 12 caractère et d’autre moins alors ce que je souhaiterai c’est supprimer toutes les lignes qui ne contiennent pas 12 caractères

S’il vous plaît en van

Merci

ton fichier n'est pas apparent

cordialement

voici l'exemple

7classeur1.xlsx (9.82 Ko)

Bonjour,

A tester :

Sub Test()

    Dim Plage As Range
    Dim I As Long

    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With

    For I = Plage.Count To 1 Step -1

        If Len(Plage(I, 1).Value) < 12 Then Plage(I, 1).Delete

    Next I

End Sub
Rechercher des sujets similaires à "nombre caractere"