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

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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....
:)
 

Pièces jointes

  • tel test.xlsm
    95.7 KB · Affichages: 4
Solution
Voyez le fichier joint avec cette fonction VBA :
VB:
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.

Cousinhub

XLDnaute Barbatruc
Bonjour,
Juste pour le fun, et parce que ça m'a fait travaillé le reste des neurones encore en activité...
Dans le fichier joint, j'extrais toutes les données par le biais de Power Query (Date du RdV, date de l'appel, Agenda (j'ai supposé que c'était le dernier "RAS"), Réseau, Nom et Téléphone)
Clic droit dans la requête, "Actualiser"
Le Tableau Structuré est nommé "T_RdV" et va de A1 à A6 dans ce fichier
Si le format de la colonne 1 est toujours de ce type, bien entendu...
Bonne apm
 

Pièces jointes

  • PQ_Tel_UaG.xlsm
    105.8 KB · Affichages: 2

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Re-Bjr Cousinhub :)
lol des neurones c'est koi ça ... J'ai oublié :p 🤪
Merci pour ton fichier mais je n'utilise pas Power Query. j'ai sans doute tord, je n'en ai jamais ressenti le besoin.
Tu as eu la gentillesse de travailler sur ma demande.
Je vais donc le tester et je le garderai précieusement car j'ai envie de connaître Power Query.
Je te remercie...
:)
 

Discussions similaires

Statistiques des forums

Discussions
312 215
Messages
2 086 329
Membres
103 182
dernier inscrit
moutassim.amine