Macro extaire numéro tél
Résolu
nonossov
Messages postés
610
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Macro extaire numéro tél
- Numero prive - Guide
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
- 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
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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.