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

patricktoulon à dit:

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 😉

Cliquez pour agrandir...

patricktoulon à dit:

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

Cliquez pour agrandir...

patricktoulon à dit:

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

Cliquez pour agrandir...

patricktoulon à dit:

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

Cliquez pour agrandir...

patricktoulon à dit:

et voila pour fixes et mobiles

VB:

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 😉

Cliquez pour agrandir...