XL 2021 Extraire et mettre en col G le premier N° trouvé si son premier chiffre est différent de 0

[Usine à gaz]

Bonjour à toutes et à tous 🙂

Je n'arrive pas à faire la bonne formule pour mon besoin :
En colonne A dans les textes, il y a des n° de tel.
Mon besoin (formule en Col G)
Extraire de la Col A et mettre en col G le premier N° trouvé si son premier chiffre est différent de 0
Résultat attendu en col I

Auriez-vous la bonne formule ?
En cas, je joins le petit fichier test.
Merci à toutes et à tous,
Je continue mes recherches....
🙂

 

[xUpsilon]

Bonjour,

Dans ton fichier exemple il y a quelques soucis :
- premier numéro trouvé : numéro de téléphone ou nombre quelconque ? Parce que sur la ligne 2 on dirait un numéro de téléphone, mais ligne 6 on dirait le nombre qui suit "CP"
- si son premier chiffre est différent de 0 : il faut renvoyer le numéro seulement si il ne commence pas par 0, ou il faut renvoyer le numéro sans le premier 0 ?

Bonne journée,

 

[Usine à gaz]

Bjr xUpsilon 🙂
Merci d'être là.
Je ne comprends pas ton interrogation
Par exemple :
ligne 2
Fiona : xxxxxxxxx - chalifert (77144) - IAD - Commune : - CP : - Tel1 : 0222222222 - Tel2 : 0 - Mail perso : - Mail Pro : - 12-06-23 19:15 : RendezVous pour le : 15 06 2023 09:00 - RAS
Le 1er n° est 0222222222
ligne 6
Fiona : xxxxxxxxx Thierry - Safti - Commune : - OutreMer Martinique - décalage horaire -6 h - CP : 562699999999 - Tel1 : 0699999999 - Tel2 : 0 - Mail perso : - Mail Pro : - 05-06-23 14:14 : RendezVous pour le : 15 06 2023 15:00 - RAS
Le 1er n° est 562699999999
🙂

 

[job75]

Bonjour Lionel, xUpsilon,

Ce n'est pas clair en effet.

En lignes 2 3 4 tu vas chercher des numéros de téléphone qui commencent par zéro.

Et en lignes 5 et 6 tu prends les numéros des CP...

A+

 

[Usine à gaz]

Bjr Gérard 🙂
"En lignes 2 3 4 tu vas chercher des numéros de téléphone qui commencent par zéro. Et en lignes 5 et 6 tu prends les numéros des CP..."
J'ai du encore mal m'expliquer 🙄

Je voudrais juste extraire le 1er n° trouvé :
Par exemple :
ligne 2
Fiona : xxxxxxxxx - chalifert (77144) - IAD - Commune : - CP : - Tel1 : 0222222222 - Tel2 : 0 - Mail perso : - Mail Pro : - 12-06-23 19:15 : RendezVous pour le : 15 06 2023 09:00 - RAS
Le 1er n° est 0222222222
ligne 6
Fiona : xxxxxxxxx Thierry - Safti - Commune : - OutreMer Martinique - décalage horaire -6 h - CP : 562699999999 - Tel1 : 0699999999 - Tel2 : 0 - Mail perso : - Mail Pro : - 05-06-23 14:14 : RendezVous pour le : 15 06 2023 15:00 - RAS
Le 1er n° est 562699999999
🙂

 

[job75]

Je voudrais juste extraire le 1er n° trouvé

D'accord, ce n'est plus le problème posé au post #1.

 

[Usine à gaz]

Si, me semble-t-il ?
Extraire et mettre en col G le premier N° trouvé si son premier chiffre est différent de 0
🙂

 

[TooFatBoy]

Bonjour,

Si, me semble-t-il ?

Je dirais que oui non.

Je dois mal vieillir car je t'ai compris dès #1... 😇


[edit]
Ah non, au temps pour moi : j'avais compris qu'il ne fallait regarder que tel1 et tel2, mais pas cp...
[/edit]

 

[Usine à gaz]

Bonjour,


Je dirais que oui non.

Je dois mal vieillir car je t'ai compris dès #1... 😇


[edit]
Ah non, au temps pour moi : j'avais compris qu'il ne fallait regarder que tel1 et tel2, mais pas cp...
[/edit]

Bjr à toi 🙂
tel1, tel2,cp sont bien contenus dans chaque cellule mais... C'est uniquement le 1er N° qu'il faudrait chercher et l'extraire si son premier chiffre est différent de 0
Mais je pense que ma demande n'est pas facile à réaliser,
🙂

 

[TooFatBoy]

Mais je pense que ma demande n'est pas facile à réaliser

Il suffit de 3 SI. Non ?
Et en plus tu es sous 365 (du moins, me semblait-il...) donc tu peux utiliser LET pour simplifier la formule.


@+

 

[Usine à gaz]

Il suffit de 3 SI. Non ?
Et en plus tu es sous 365 (du moins, me semblait-il...) donc tu peux utiliser LET pour simplifier la formule.


@+

"Il suffit de 3 SI. Non ?" j'ai tenté et bcp d'autres formules sans succès.
Je suis sous Office 2021
🙂

 

[job75]

Voyez le fichier joint avec cette fonction VBA :

Function Extrait(x As String) As Double
Dim i%, deb%, y$
For i = 1 To Len(x)
    If deb = 0 And IsNumeric(Mid(x, i, 1)) Then deb = i
    If deb > 0 And Not IsNumeric(Mid(x, i, 1)) Then
        If i - deb >= 10 Then
            y = Mid(x, deb, i - deb)
            If Left(y, 1) = "0" Then y = 33 & Mid(y, 2)
            Extrait = CDbl(y)
            Exit Function
        End If
        deb = 0
    End If
Next
End Function

Formule en G2 =Extrait(A2)

Salut TooFatBoy.

 

[Usine à gaz]

Re-Bjr Gérard 🙂
Il faut que je renouvelle mon stock de "MERCIS" 😉
Nickel ta fonction et elle va beaucoup me servir, comme tout ce que tu as la gentillesse de me donner avec autant de patience. (lol, on a du se connaître dans une autre vie) 😛

J'avais compris que par simple formule ce serait peut-être pas possible.

Ta fonction est super 🙂
Alors SUPER, SUPER MERCI
🙂

 

[Usine à gaz]

lol Mais j'y comprends rien dans la fonction 🤪
Toutefois : est-il utile que je comprenne ?
🙂

 

[job75]

Toutefois : est-il utile que je comprenne ?

Oui, surtout que mon code n'a rien de très compliqué.