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

[Virginie17d]

 

[patricktoulon]

re
ben pas tout les icons
je ne sais pas si les imagemso des autres application de la suite office sont dispo dans l'app excel
encore un truc a vérifier

 

[Virginie17d]

re
ben pas tout les icons
je ne sais pas si les imagemso des autres application de la suite office sont dispo dans l'app excel
encore un truc a vérifier

Es ce que ce fichier serait la solution ? "Icone Developpeur"

 

[patricktoulon]

c'est celui que j'ai donné plus tôt dans la discussion a Thierry

 

[Virginie17d]

c'est celui que j'ai donné plus tôt dans la discussion a Thierry

J'ai du le louper, pardon

 

[patricktoulon]

tiens je l'ai mis dans un fichier ton code du lien et ca a l'air de fonctionner

 

[Virginie17d]

Tu peux m'aider sur mes formats téléphones, je ne trouve pas la solution qui remplace mes formes de calculs Excel ?

123456789 ou 0123456789 ou 01 23 45 67 89 ou 01.23.45.67.89 devienne 0033-1-23456789
ET
612345678 ou 0623456789 ou 06 23 45 67 89 ou 06.23.45.67.89 devienne 0033-623456789

Sachant que le fixe est toujours dans la colonne O et le portable dans la colonne P et évidemment seul les cellules renseignées devront etre "checker"

 

[Virginie17d]

tiens je l'ai mis dans un fichier ton code du lien et ca a l'air de fonctionner

Je ne vois rien, est tu sur ?

 

[patricktoulon]

re
déjà il faut uniformiser tes 3 format differents avant de formater

 

[patricktoulon]

re
tu ne vois rien?
a bon tu es en 32 ou 64 toi

 

[patricktoulon]

deja pour les telephone fixes

Sub test()
ititelephonemaison Selection
End Sub

Function ititelephonemaison(rng As Range)
'format 0033-1-23456789
For Each cell In rng.Cells: cell.Value = Format("0033" & Val(Replace(cell.Value, " ", "")), "@@@@""-""@""-""@@@@@@@@"): Next
End Function

 

[patricktoulon]

et voila pour fixes et mobiles

Sub test()
ititelephonemaison Selection
End Sub

Function ititelephonemaison(rng As Range)
'format 0033-1-23456789
For Each cell In rng.Cells: cell.Value = Format("0033" & Val(Replace(Replace(cell.Value, " ", ""), ".", "")), "@@@@""-""@""-""@@@@@@@@"): Next
End Function


Sub test2()
ititelephonemobile Selection
End Sub
Function ititelephonemobile(rng As Range)
'format  0033-623456789
For Each cell In rng.Cells: cell.Value = Format("0033" & Val(Replace(Replace(cell.Value, " ", ""), ".", "")), "@@@@""-""@@@@@@@@@"): Next
End Function

il te reste plus qu'à ajouter 2 boutons dans ton customUI
TU SAIS FAIRE MAINTENANT

 

[Virginie17d]

re
tu ne vois rien?
a bon tu es en 32 ou 64 toi

64 BIT

 

[patricktoulon]

OK vais verifier si le rel est bien standalone

 

[Virginie17d]

et voila pour fixes et mobiles

Sub test()
ititelephonemaison Selection
End Sub

Function ititelephonemaison(rng As Range)
'format 0033-1-23456789
For Each cell In rng.Cells: cell.Value = Format("0033" & Val(Replace(Replace(cell.Value, " ", ""), ".", "")), "@@@@""-""@""-""@@@@@@@@"): Next
End Function


Sub test2()
ititelephonemobile Selection
End Sub
Function ititelephonemobile(rng As Range)
'format  0033-623456789
For Each cell In rng.Cells: cell.Value = Format("0033" & Val(Replace(Replace(cell.Value, " ", ""), ".", "")), "@@@@""-""@@@@@@@@@"): Next
End Function

Regarde la pièce jointe 1065404

il te reste plus qu'à ajouter 2 boutons dans ton customUI
TU SAIS FAIRE MAINTENANT

Tu est merveilleux, ca fonctionne a la perfection !!!! et oui pour customUI je commence à m'en sortir pas mal. Merci

 

[patricktoulon]

bon ben j'ai bien oublié le switch standalone je fait ca et reviens