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

patricktoulon · 3 Mai 2020

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

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

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

patricktoulon · 3 Mai 2020

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

Virginie17d · 3 Mai 2020

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

J'ai du le louper, pardon

patricktoulon · 3 Mai 2020

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

Virginie17d · 3 Mai 2020

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

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

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

patricktoulon · 3 Mai 2020

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

patricktoulon · 3 Mai 2020

deja pour les telephone fixes

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(cell.Value, " ", "")), "@@@@""-""@""-""@@@@@@@@"): Next
End Function

patricktoulon · 3 Mai 2020

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

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

Virginie17d · 3 Mai 2020

patricktoulon à dit:
re
tu ne vois rien?
a bon tu es en 32 ou 64 toi

64 BIT

patricktoulon · 3 Mai 2020

OK vais verifier si le rel est bien standalone

Virginie17d · 3 Mai 2020

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

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

patricktoulon · 3 Mai 2020

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

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

Virginie17d

XLDnaute Occasionnel

Pièces jointes

patricktoulon

patricktoulon

XLDnaute Barbatruc

Virginie17d

XLDnaute Occasionnel

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Virginie17d

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Virginie17d

XLDnaute Occasionnel

Virginie17d

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Virginie17d

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Virginie17d

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Discussions similaires