Macro extaire numéro tél
Résolu
nonossov
Messages postés
638
Statut
Membre
-
yg_be Messages postés 24281 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 24281 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Macro extaire numéro tél
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
- Numero prive - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Numero imei - Guide
- Connaitre son numero sfr ✓ - Forum SFR
2 réponses
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
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
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 585
bonjour, je suggère ceci:
tu crées une fonction faxourien:
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.
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.
