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

patricktoulon · 7 Mai 2020

re
a mince Bonjour Thierry je l'ai mis a jour avec la fonction eriiiic aussi

_Thierry · 5 Mai 2020

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 · 5 Mai 2020

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

VB:

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 · 5 Mai 2020

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 · 5 Mai 2020

patricktoulon à dit:
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 · 5 Mai 2020

Virginie17d · 5 Mai 2020

patricktoulon à dit:
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 · 5 Mai 2020

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 · 5 Mai 2020

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 · 5 Mai 2020

patricktoulon à dit:
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 · 5 Mai 2020

Re,

tu ne peux pas faire ça Patrick :

VB:

        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 · 5 Mai 2020

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

Virginie17d à dit:
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 :

patricktoulon à dit:
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 · 5 Mai 2020

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

patricktoulon · 5 Mai 2020

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 · 5 Mai 2020

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 · 5 Mai 2020

patricktoulon à dit:
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

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

Virginie17d

XLDnaute Occasionnel

Pièces jointes

patricktoulon

_Thierry

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Virginie17d

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Virginie17d

XLDnaute Occasionnel

_Thierry

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Virginie17d

XLDnaute Occasionnel

eriiic

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

Pièces jointes

_Thierry

XLDnaute Barbatruc

Discussions similaires