Trouver le pays d'un numéro de téléphone
Bonsoir à tous,
Je manipule bcp de données téléphoniques et j'ai besoin de connaître le pays des numéros.
Dans une feuille je dispose de tous les indicatifs des pays.
Dans une autre feuille j'ai des numéros parfois au format Français (06 00 00 00 00) mais aussi dans des formats internationaux comme 00 33 6 00 00 00 00 ou +33 6 00 00 00 00. J aurai besoin dans la colone juste à côté de celle de numéro qu'apparaisse le pays d'origine de numéro.
Actuellement je fais cela â la main......
Je pense qu'il doit y avoir une solution,
Autre problème je souhaite rechercher tous les numéros de téléphone qui ont les 6 derniers chiffres identiques
Merci
Nota : je viens d'ajouter le fichier exemple
Salut Pascal,
même si cela a l'air évident et facile, peux-tu joindre ces deux feuilles (ou une partie) que l'on puisse jauger cela de visu?
A+
bonjour,
Je viens de mettre un fichier Excel pour exemple
Merci par avance de ton aide
Pascal
bonjour
a moins d'avoir mal vu ,je ne trouve aucune correspondance entre les 1ers chiffres de tes n° en exemple et ta liste d'indicatif meme en faisant abstraction des 1er ,2nd ... alors pour detecter un pays c'est impossible
quand au 6 derniers n° >>>Droite( lacel;6)
cordialement
Salut Pascal, Tulipe_4,
je ne serai pas aussi tranchant que Tulipe mais, effectivement, même si les n° de téléphone-exemples (vraiment trop peu nombreux) ne me permettent pas de prouver ce que je pressens, il arrivera des cas où, au mieux, nous devrons te proposer plusieurs choix.
Je regarde ça dès que je peux!
A+
Salut Pascal,
premier essai, à tester!
Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim wks1, wks2 As Worksheet
Dim tTab
'
If Target.Count > 1 Or Target = "" Then Exit Sub
'
Set wks1 = Worksheets("Numéros")
Set wks2 = Worksheets("Indicatifs")
iCol = 1
'
If Not Intersect(Target, Range("A:A")) Is Nothing Then
With wks2
iRow = .Cells(Rows.Count, 1).End(xlUp).Row
tTab = .Range("A1:B" & iRow)
End With
'
If Left(Target.Value, 2) = "00" Or Val(Left(Target, 1)) > 0 Then
sFlag = Target.Value
If Left(Target.Value, 2) = "00" Then sFlag = Right(Target.Value, Len(Target.Value) - 2)
For x = 1 To 3
iIdx = Val(Left(sFlag, x))
For y = 1 To UBound(tTab, 1)
If iIdx = tTab(y, 1) Then
iCol = iCol + 1
wks1.Cells(Target.Row, iCol) = tTab(y, 2)
End If
Next
Next
End If
End If
'
End SubA+
Bonjour
Je vais tester ce qui m'a été proposé.
Pour ce qui est dur este, je suis surpris.
Dans la première feuille j'ai des numéros qui commencent par 33 ou 51 voir 0033 ou 0051.
Dans la seconde feuille j ai l'indicatif de la France (33) et du pérou (51).
mon but c'est de passer de :
33612345678
0033612345678
51612345678
0051612345678
0612345678
à
0612345678 (France)
0612345678 (France)
51612345678 (Perou)
0051612345678 (Perou)
0612345678 (France)
voila en espérant avoir été plus clair.
Merci à tous encore pour votre aide
Pascal
Re
Pour : Droite( lacel;6) je tape cela où ? dans rechercher ?
Merci
Salut Pascal,
nouvelle version où je règle de façon radicale les derniers cas de ton répertoire d'indicatifs en rasant les espaces, parenthèses et tirets.
A tester, comme on dit!
A+
bonsoir,
Je dois pas être doué car j arrive pas à faire fonctionner je trouve pas la macro
Lol
Salut Pascal,
pas besoin d'être doué : suffit juste d'encoder ton n° de téléphone et de valider.
La macro se trouve dans le module de la feuille 'Numéros'.
A+
Bonjour
Encoder quoi ? j ai rien dans les macros ....
Pascal
bonsoir Curulis57, Pascal13009
Pascal clic avec bouton droit sur l'onglet de la feuille et sur visualiser le code pour le voir
Salut Pascal, Grisan,
tu encodes le n° de tél dans la colonne A, tu valides et la macro fait le travail... pas besoin d'être doué!
Cela dit, j'espère que cela t'ira car Excel m'est sorti de la tête depuis de longues semaines pour laisser la place aux activités d'été!
A+