Ne prendre en compte que les cellules ayant un format téléphonique

[YANN-56]

Bonsoir à tous,

Je récupère dans des Labels d'un USF certaines ligne d'une page.

Mais je souhaiterais que dans certains de ces derniers ne soient enregistré
que les cellules ayant un format téléphonique plausible.

J'ai tenté, dans une boucle sur la colonne "B", avec:

If Cells(i, 2).Text.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##" Then

Ou même avec:

If Cells(i, 2).Value.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##" Then

Voire:

If Cells(i, 2). NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##" Then

Rien n'y fait!!! 😡

Si l'un ou l'une d'entre vous à une idée: 🙂

Je lui serais bien reconnaissant car je tourne en rond pour l'instant.

Yann

 

[Efgé]

Re : Ne prendre en compte que les cellules ayant un format téléphonique

Nonjour YANN-56
Peut être avec

If Cells(1, 1).Value Like ("## ## ## ## ##") Then MsgBox "Gagné"

Mais attention à la norme internationale de type +33 1 20 20 20 20
Cordialement

 

[YANN-56]

Re : Ne prendre en compte que les cellules ayant un format téléphonique

Bonsoir efgé, et à ceux qui passeront par ici,

Super Merci pour ton aide efficace!

J'ai modifié mon code selon ce que tu m'as montré; et tout fonctionne comme je le cherchais.

Je vois que tu es au bord des 2000.... La barbe va bientôt te pousser! 🙂 🙂 🙂

Au regard de la belle aide que tu viens de m'offrir, cela sera certainement bien mérité.

Amicalement.

Yann