Macro extaire numéro tél
Résolu
nonossov
Messages postés
638
Statut
Membre
-
yg_be Messages postés 24281 Statut Contributeur -
yg_be Messages postés 24281 Statut Contributeur -
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
- Jitbit macro recorder - Télécharger - Confidentialité
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
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.