Discussion :

[bigs3232]

bonjour
j'ai des bouts de textes avec des mots séparés par espace et ou avec des tirets -

Vaio PCG-FR

et j'aimerais avoir chaque premier mot en majuscule.
j'aimerais savoir si on peut le faire en vba ou vba expression régulière
merci pour votre aide

Vaio Pcg-Fr

[patricktoulon]

bonsoir

vbpropername

[bigs3232]

je ne comprends pas trop votre réponse vbpropername

[RyuAutodidacte]

re,

Un Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print Replace(StrConv(Replace(Selection,"-", " _ "),3), " _ " , "-")

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print Replace(StrConv(Replace(Selection,"-", " _ "), vbProperCase), " _ " , "-")

vbProperCase = 3

autre exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Montext = "Vaio PCG-FR"
Debug.Print Replace(StrConv(Replace(Montext,"-", " _ "), vbProperCase), " _ " , "-")

[bigs3232]

merci RyuAutodidacte comme dhabitude
mais je ne comprends pas pourquoi utiliser replace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Replace(Selection,"-", " _ ")

est vraiment utile?

[unparia]

Bonjour à tous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox WorksheetFunction.Proper("couCou voilà-voiLA. et comme cela ?")