Besoin d'aide pour une formule je l'espere simple ;)

[johnx102]

Bonjour a tous , j'ai un fichier exel contenant plus de 18000 ligne, ce sont les numero de tel de mes contacts.
Il y a juste 2 collonnes , la premiere avec les nom, la deuxieme avec le numero .
Seulement, certain numero de tel sont erronnée, Ils ont moins de 10 chiffres ....Y aurait-il une formules qui me permettrai de supprimez la ligne si la colonne B ne contient pas 10 caractere ??? Cela me permettrai de nettoyer mon fichier contact sans devoir esxaminer les 18000 contact ...

Je vous remercie d'avance pour votre aide ..

A bientot J'espere 😉

 

[ERIC S]

Re : Besoin d'aide pour une formule je l'espere simple 😉

Bonjour

il faudrait joindre un bout de fichier : il y a une différence entre l'affichage et la réalité.

Si tes numéros de tel sont des chiffres au format spécial téléphone, tu verras que dans les cellules il y a 10 chiffres (le premier 0 est affiché) alors que dans la barre de formule il n'apparait pas.

Si tes numéros sont format texte, c'est différent

 

[tototiti2008]

Re : Besoin d'aide pour une formule je l'espere simple 😉

Bonjour johnx102,

bienvenue sur XLD,

enregistre ton classeur avant

en C1, tu mets

=nbcar(b1)

tu recopies vers le bas jusqu'en bas de ta liste
tu fait un filtre automatique sur les 3 colonnes et tu filtre la colonne C sur les valeurs inférieures à 10
tu sélectionnes les résultats et tu supprimes les lignes affichées
enlève le filtre pour vérifier

Edit : Bonjour Eric, très bonne remarque 🙂

 

[PrinceCorwin]

Re : Besoin d'aide pour une formule je l'espere simple 😉

Bonjour,

Une petite précision.
Y a-t-il des numéros de téléphone ayant plus que 10 caractères ?
Y a-t-il la gestion des pays '+33.... ou +41...

Connais-tu les noms de tout tes contacts ? 😉

@Plus

 

[johnx102]

Re : Besoin d'aide pour une formule je l'espere simple 😉

Merci d'avance de vous pencher sur mon probleme .
Il n'y a pas de numero speciaux , juste des 014985.... a 10 chiffres ....

 

[Robert]

Re : Besoin d'aide pour une formule je l'espere simple 😉

Bonjour John et bienvenu, bonjour le forum,

Par formule je ne sais pas faire. Je te propose deux solutions par macro.
• La solution Soft : la première macro colore de rouge les lignes concernées. Tu vérifies (uniquement les lignes en rouge) et eventuellement tu corriges. Puis tu supprimes avec la seconde macro :

Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim x As Long 'déclare la variable x (incrément)
dl = Cells(Application.Rows.Count, 2).End(xlUp) 'définit la dernière ligne de la colonne B
For x = 1 To dl 'boucle de la première à la dernière ligne
    If Len(Cells(x, 2)) < 10 Then Rows(x).Interior.ColorIndex = 3 'si le nombre de caractères de la cellule en colonne B est inférieur à 10, colore la ligne de rouge
Next x 'prochaine ligne de la boucle
End Sub

Sub Macro2()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim x As Long 'déclare la variable x (incrément)
dl = Cells(Application.Rows.Count, 2).End(xlUp) 'définit la dernière ligne de la colonne B
For x = dl To 1 Step -1 'boucle inversée de la dernière à la première ligne
    If Cells(x, 1).Interior.ColorIndex = 3 Then Rows(x).Delete shitf:=xlShiftUp 'si la ligne est rouge, supprime la ligne
Next x 'prochaine ligne de la boucle
End Sub

• la solution Radicale qui supprime sans te permettre de vérifier :

Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim x As Long 'déclare la variable x (incrément)
dl = Cells(Application.Rows.Count, 2).End(xlUp) 'définit la dernière ligne de la colonne B
For x = dl To 1 Step -1 'boucle inversée de la dernière à la première ligne
    If Len(Cells(x, 2)) < 10 Then Rows(x).Delete shitf:=xlShiftUp 'si le nombre de caractères de la cellule en colonne B est inférieur à 10, supprime la ligne
Next x 'prochaine ligne de la boucle
End Sub

[Édition]
Oooops vachement en retard moi ! Bojour Éric, Tototiti et Prince...

 

[PrinceCorwin]

Re : Besoin d'aide pour une formule je l'espere simple 😉

helLo
Bonjour tototiti,

Comme je suggerait tototiti, en manuel ca le fait bien. Si c'est juste pour faire le ménage !

Bonne journée

Edit : Bonjour Robert

 

[ERIC S]

Re : Besoin d'aide pour une formule je l'espere simple 😉

Re à tous

la phrase importante de tototiti2008 est : enregistre ton classeur avant

FAIS UNE SAUVEGARDE 🙄

je maintiens ma remarque : chiffres ou texte ?

 

[johnx102]

Re : Besoin d'aide pour une formule je l'espere simple 😉

Il y a que de chiffre en ce qui concerne les numeros ...
La je suis en train de tester la manip donner par tototiti ...
J'avais essayer la macro donner par robert , mais cela fait planter mon exel ...

 

[johnx102]

Re : Besoin d'aide pour une formule je l'espere simple 😉

J'ai bien le nombre de numero maintnant a coté des tels ...
Comment faire le filtre automatique sur les 3 colonnes pour supprimer les ligne ou la valeur est en dessous de 10 ?

 

[PrinceCorwin]

Re : Besoin d'aide pour une formule je l'espere simple 😉

re bonjour,

suivre les indications données plus haut par tototiti...
Je ne peux expliquer mieux que ce qu'il à déjà expliquer brillemment...

 

[johnx102]

Re : Besoin d'aide pour une formule je l'espere simple 😉

C'est bon j'ai trouvé, merci A vous tous pour votre aide précieuse ....