Macro extaire numéro tél
Résolu/Fermé
nonossov
Messages postés
611
Date d'inscription
lundi 29 décembre 2014
Statut
Membre
Dernière intervention
17 janvier 2020
-
26 mai 2017 à 12:45
yg_be Messages postés 22703 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 - 26 mai 2017 à 13:47
yg_be Messages postés 22703 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 - 26 mai 2017 à 13:47
A voir également:
- Macro extaire numéro tél
- Numero prive - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- A qui appartient ce numéro - Guide
2 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
26 mai 2017 à 13:47
26 mai 2017 à 13:47
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
22703
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 avril 2024
1 471
26 mai 2017 à 13:47
26 mai 2017 à 13:47
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.
