Macro extaire numéro tél Résolu/Fermé

Question

Bonjour mes amis, 
je viens de trouver un fichier qui contient des numéros de faxe mais il faut détailler pour les voire, est ce qu'il est une possibilité de les extraire avec une macro, extraire juste les faxes, voire le fichier ci joint

https://www.cjoint.com/c/GEAkSQJe3Yg

Patrice33740 · Answer

Bonjour,

Pour simplement les extraire, pas besoin de VBA, un simple filtre suffit (puis un copier/coller) :
https://mon-partage.fr/f/MrSOHDY6/

Par contre s'il faut les rattacher à une entité c'est quasiment impossible même avec VBA : il n'y a aucune correspondance directe avec les autres informations

yg_be · Answer

bonjour, je suggère ceci:
tu crées une fonction faxourien:
Option Explicit
Function faxourien(entree As String) As String
Dim cara As String
Dim pos As Integer
For pos = 1 To Len(entree)
    cara = Mid(entree, pos, 1)
    If Not IsNumeric(cara) Then
        faxourien = ""
        Exit Function
    End If
Next pos
faxourien = entree
End Function
tu ajoutes dans une colonne libre, en ligne 1: =faxourien(A1)
tu étends cette formule vers le bas
tu auras donc la liste des numéros de fax dans la colonne choisie.

Macro extaire numéro tél

2 réponses

Discussions similaires