Nombre de caractere

Y compris Power BI, Power Query et toute autre question en lien avec Excel
D
Dehbi
Membre habitué
Membre habitué
Messages : 90
Inscrit le : 30 décembre 2017
Version d'Excel : 2010

Message par Dehbi » 5 avril 2019, 17:48

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
s
sikorskys93
Membre habitué
Membre habitué
Messages : 76
Inscrit le : 11 décembre 2018
Version d'Excel : 2010

Message par sikorskys93 » 5 avril 2019, 17:51

ton fichier n'est pas apparent

cordialement
D
Dehbi
Membre habitué
Membre habitué
Messages : 90
Inscrit le : 30 décembre 2017
Version d'Excel : 2010

Message par Dehbi » 5 avril 2019, 22:57

voici l'exemple
Classeur1.xlsx
(9.82 Kio) Téléchargé 6 fois
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 3'556
Appréciations reçues : 249
Inscrit le : 26 janvier 2011
Version d'Excel : 2007

Message par Theze » 6 avril 2019, 06:57

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
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message