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 ?")

[bigs3232]

waoh trop fort unparia merci et bien sur un grand merci à RyuAutodidacte toujours présent sur le forum pour aider

[RyuAutodidacte]

Bien joué Jacques

mais je ne comprends pas pourquoi utiliser replace

vbProperCase

3

Convertit la première lettre de chaque mot d’une chaîne en majuscule.

ici pour PCG-FR comme tout est attaché il ne considère pas FR à part et ce même si il y un tiret
donc le résultat sera : Pcg-fr

donc avec le replace je créé la séparation (PCG _ FR) pour faire la conversion des 1ère lettre de chaque mot en capital (Pcg _ Fr) puis je remet le tiret à l'état initial (Pcg-Fr)

Edit : sur l'un des post que j'avais traité, je m'étais retrouvé avec une erreur avec l'utilisation de :
WorksheetFunction
sans aucune raison apparente, depuis j'utilise toujours : Application

Il aurait été judicieux de rajouter dans la faq : Proper
ici : http://silkyroad.developpez.com/VBA/...nesCaracteres/

il est manquant à l'appel des manipulations de caractères

[patricktoulon]

re Bonjour a tous
ryu pourquoi replace tu un caractère par un autre ? ca marche aussi bien avec le même

et en effet worksheetfunction.proper semble fonctionner correctement alors que vbpropercase ne fonctionnerait pas avec les prénoms composés du genre "Jean-Marc"

je n'avais jamais remarqué ce détail
merci

[RyuAutodidacte]

Salut Patrick ,

de rien

[patricktoulon]

du coup vbpropercase a utiliser avec modération voir pas du tout ,c'est un coup dur pour le vieux vbiste que je suis

[RyuAutodidacte]

c'est comme tout, tout dépend du contexte,
si tu veux seulement que chaque 1è lettre soit en capital dans un mot/chaine de caractères qui se suit (sans espace),
c'est vbpropercase qu'il faudra utiliser dans le cas contraire c'est Proper

[bigs3232]

merci RyuAutodidacte.l'explication est tres claire , le code de unparia est tres bien