OVH Cloud OVH Cloud

Supprimer lignes avec condition

2 réponses
Avatar
JB
Bonsoir,

J'ai une base de données sous excel qui comporte des données de A à L ( nom
, prénom, etc.)

En L il y a des numéro de telephone

Le pb s'est que certains numeros sont mal formaté, incomplet, ou avec des
données textes (xxx).

Ces données ont été récupérées par extraction dans une base de données (SAP)
(format .txt)

Je souhaiterai que tout les lignes dont :
- le contenu est < ou > a 10 chiffres
- ne comporte pas que de chiffres
- ne commence pas par 01ou 02 ou 03 ou 04 ou 05
- tout ce qui n'est pas un N° de Tel fixe
soient supprimées


Est ce possible si oui comment ?

merci

2 réponses

Avatar
Claude Mani
Bonsoir,

Oui c'est possible.

Mais je demande une petite précision.

Qu'est-ce que vous entendez par un numéro de téléphone fixe ? A quoi est-ce
qu'il va être reconnu ?

Meilleures salutations.

Claude Mani

"JB" a écrit dans le message de news:
3f0b2aaa$0$26623$
Bonsoir,

J'ai une base de données sous excel qui comporte des données de A à L (
nom

, prénom, etc.)

En L il y a des numéro de telephone

Le pb s'est que certains numeros sont mal formaté, incomplet, ou avec des
données textes (xxx).

Ces données ont été récupérées par extraction dans une base de données
(SAP)

(format .txt)

Je souhaiterai que tout les lignes dont :
- le contenu est < ou > a 10 chiffres
- ne comporte pas que de chiffres
- ne commence pas par 01ou 02 ou 03 ou 04 ou 05
- tout ce qui n'est pas un N° de Tel fixe
soient supprimées


Est ce possible si oui comment ?

merci




Avatar
AV
Sub zz_Sup_Tél()
Application.ScreenUpdating = False
derl = [A65536].End(3).Row
For x = derl To 1 Step -1
If Evaluate("if(" & "L" & x & "="""",false,isnumber(" & "L" & x &
"*1)*(left(" & "L" & x & ",2)*1<6)*len(" & "L" & x & "))") = False Then
Range("A" & x & ":L" & x).Delete Shift:=xlUp
Next
End Sub

Attention : l'instruction "If Evaluate.....Delete Shift:=xlUp" est sur une seule
ligne !

AV

"JB" a écrit dans le message news:
3f0b2aaa$0$26623$
Bonsoir,

J'ai une base de données sous excel qui comporte des données de A à L ( nom
, prénom, etc.)

En L il y a des numéro de telephone

Le pb s'est que certains numeros sont mal formaté, incomplet, ou avec des
données textes (xxx).

Ces données ont été récupérées par extraction dans une base de données (SAP)
(format .txt)

Je souhaiterai que tout les lignes dont :
- le contenu est < ou > a 10 chiffres
- ne comporte pas que de chiffres
- ne commence pas par 01ou 02 ou 03 ou 04 ou 05
- tout ce qui n'est pas un N° de Tel fixe
soient supprimées


Est ce possible si oui comment ?

merci