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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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.
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

Re-Bjr Cousinhub 🙂
lol des neurones c'est koi ça ... J'ai oublié 😛 🤪
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...
🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour