XL 2010 Macro VBA Excel (Doublon,SansAccents,Maj,Min,Nompropre,Espaces superflus)

[Virginie17d]

 

[_Thierry]

Re Vivi
Ben je ne fais rien, mais je les traite quand même si tu regardes l'algo, j'ai pas mis la planète mais quelques limitrophes de la France en EU...

Bonjour Patrick, alors parti pour le "VBAI_Patiti"

0033.7.23.45.56.67 = 9 après le 33, 9 c'est bon pour la France
https://en.wikipedia.org/wiki/Telephone_numbers_in_Europe

Bon courage Pat !
@+Thierry

 

[patricktoulon]

donc sur la base de ça

123455667
123455667
01 23 45 56 67
01.23.45.56.67
1 23 45 56 67
1.23.45.56.67
33123455667
0033 1 23 45 56 67
0033.1.23.45.56.67
623455667
623455667
06 23 45 56 67
06.23.45.56.67
6 23 45 56 67
6.23.45.56.67
3,36E+10
0033 6 23 45 56 67
0033.6.23.45.56.67
723455667
723455667
07 23 45 56 67
07.23.45.56.67
7 23 45 56 67
7.23.45.56.67
3,37E+10
0033 7 23 45 56 67
0033.7.23.45.56.67

je fait ça

Sub test()
    For Each cel In Range("A1:A27").Cells
        x = CStr(cel): x = Replace(Replace(Replace(Replace(Replace(x, " ", ""), ".", ""), "-", ""), ",", ""), "+", "")
        If Len(x) >= 9 Then
            x = Right(x, 9)
            If Left(x, 2) = "33" Then x = Mid(x, 3)
            cel.Offset(, 1) = x & " bizarre"
            Select Case Left(Val(x), 1)

            Case 6, 7: cel.Offset(, 1) = "0033-" & x
            Case 1, 2, 4, 5, 8: cel.Offset(, 1) = Format(Val(x), """0033-""@-@@@@@@@")

            End Select
        End If
    Next
End Sub

 

[patricktoulon]

déconne pas Thierry ne me laisse pas tomber fait pas le C.. ne me laisse pas tout seul c'est une fille
tu sais les migraines que ça représente

 

[Virginie17d]

ne me laisse pas tout seul c'est une fille
tu sais les migraines que ça représente

Je ne sais pas si je dois bien le prendre ? tu me fais beaucoup de peine :-(

 

[patricktoulon]

 

[Virginie17d]

Sub test() For Each cel In Range("A1:A27").Cells x = CStr(cel): x = Replace(Replace(Replace(Replace(Replace(x, " ", ""), ".", ""), "-", ""), ",", ""), "+", "") If Len(x) >= 9 Then x = Right(x, 9) If Left(x, 2) = "33" Then x = Mid(x, 3) cel.Offset(, 1) = x & " bizarre" Select Case Left(Val(x), 1) Case 6, 7: cel.Offset(, 1) = "0033-" & x Case 1, 2, 4, 5, 8: cel.Offset(, 1) = Format(Val(x), """0033-""@-@@@@@@@") End Select End If Next End Sub

Je remplace tout le module par ca?
et j'ai du modifier le commum qui avait ZZZ mais je n'y arrive pas

 

[_Thierry]

Re Bonsoir Patrick

C'est pas mal, et donc pour l'international ? Car là il les transforme en FR, c'est un peu dangereux

Phone	Result	Comment
123456789​	0033-1-23456789
33123456789​	0033-1-23456789
33123456789​	0033-1-23456789
01.23.45.67.89	0033-1-23456789
01 23 45 67 89	0033-1-23456789
512345678​	0033-5-12345678
03.45.44.23.45	345442345 bizarre
21234556567​	0033-2-34556567
596345667​	0033-5-96345667
0037793939393	0033-793939393	Monaco !!
37793939393	0033-793939393	Monaco !!
623456789​	0033-623456789
33623456789​	0033-623456789
1144273730​	0033-1-44273730
07.23.45.67.89	0033-723456789
08 23 45 67 89	0033-8-23456789
612345678​	0033-612345678
07.45.44.23.45	0033-745442345
21234556567​	0033-2-34556567
696345667​	0033-696345667
377-666666666	0033-666666666	Monaco !!
613012237​	0033-613012237
00262-298710	0033-2-62298710	Mayotte !!
622228072​	0033-622228072
06-77012822	0033-677012822
00331-44273677	0033-1-44273677

@+Thierry

 

[patricktoulon]

non pour être sérieux il va t’être difficile voir impossible de maîtriser toutes les country avec tout les format bizarre que l'on peut imaginer
Thierry t'a fait un truc sympa
par contre ce que tu peut faire dans ton fichier dans le worksheet-change du thisworlbook du xlam mettre les replace il se feront automatiquement Thierry confirmera ou infirmera

 

[Virginie17d]

non pour être sérieux il va t’être difficile voir impossible de maîtriser toutes les country avec tout les format bizarre que l'on peut imaginer
Thierry t'a fait un truc sympa
par contre ce que tu peut faire dans ton fichier dans le worksheet-change du thisworlbook du xlam mettre les replace il se feront automatiquement Thierry confirmera ou infirmera

si j'arrive déjà à remplacer " " & "." par "" ca serait déjà pas mal, mais je pense effictivement qu'on doit rester sur l'existant

 

[eriiic]

Re,

tu ne peux pas faire ça Patrick :

        If Len(x) >= 9 Then
            x = Right(x, 9)
            If Left(x, 2) = "33" Then x = Mid(x, 3)

Qu'est-ce qui te dit que tu n'auras pas le 3 34 56 78 90 ?
Le code international (s'il est présent) sont les chiffres précédents les 9 derniers (pour la france)
eric

 

[_Thierry]

Vivi fais attention tu vas rentrer dans le Top 100 WorldWide do,t je parlais !!!!

Je remplace tout le module par ca?
et j'ai du modifier le commum qui avait ZZZ mais je n'y arrive pas

Si tu as fait ça !!! Arf LoL


Patrick, euh oui dans l'absolu pour :

par contre ce que tu peut faire dans ton fichier dans le worksheet-change du thisworlbook du xlam mettre les replace il se feront automatiquement Thierry confirmera ou infirmera

Mais la semaine prochaine, Vici ouvre un classeur sur les Compte en Banques des RIB de ses clients, puis elle change de feuille et PAF ! tous les IBAN ou autre chose ont subi des replaces...

Les XLAM d'accord, avec un Ribbon et des bouton où l'utilsateur est "conscient" de ce qu'il fait, mais Danger quand même sur les Triggers des évènenements WorkSheet, Workbook, etc... (sutout que l'uilisateur risque de ne pas y porter attention et sauvera sont classeur un peu "niaké" !

Donc pas très chaud pour ma part... Donc je confirme, mais je n'adhère pas... sinon ce sont les autres classeurs qui ''infirmeront'' à l'hôpital des XLS ! LoL

@+Thierry

 

[patricktoulon]

bonsoir eriiiic
relis le code
les numeros sont nettoyés avant test right 9

 

[patricktoulon]

Thierry in simple msgbox activer ceci ou cela ou pas
if reponse=vbyes
et on se sert des callback "get" pour enabed les bouton ou pas
à l'ouverture d'un fichier c'est un moindre mal

 

[_Thierry]

Bonsoir @eriiiic

Chacun peu contribuer !!! LoL Patrick à mis une belle pierre à l'édifice...

Voici un passe-temps ci-joint, celui qui n'a plus de FALSE gagne .........
...........
...............
....................Le droit de revenir sur XLD !

Vivi STP confirme qu'on a tous les cas de Figures ! (Monaco c'est pour moi !)

@+Thierry

 

[_Thierry]

Thierry in simple msgbox activer ceci ou cela ou pas
if reponse=vbyes
et on se sert des callback "get" pour enabed les bouton ou pas
à l'ouverture d'un fichier c'est un moindre mal

Si Virginie est d'accord alors, "la cliente est Reine" moi je n'utiliserai pas ce travail pour moi, c'est juste pour me remettre un peu dans le monde VBA, je suis trop niveau boulot dans TSQL et le C/al et maintenant le AL... Ca me distrait

@+Thierry