Remplacement de caractere

[Manu70]

Bonjours a tous, bonjours le forum

Je vous expose ce que j'ai fait :

Au moyen d'une InputBox, je recupere un nom que je mets en majuscule par Ucase, jusque là, pas de probleme.

Petite question tres simple :

Je voudrait détecté si mes 2 premieres lettres de gauche sont "E ", et remplacé le "E" majuscule par un "e" minuscule, tout en gardant la suite de mon nom qui est en majuscule, et pouvoir avoir un truc du genre "e TOTO", sachant qu'au depart c'etait "E TOTO".

J'ai eu beau cherché dans les archives du forum, je n'ai pas trouvé, ou alors je suis passé a coté.

En vous remerciant par avance

 

[denis]

Bonjour Manu et le Forum
essais la fonction : If Left(tonmot,1) = "E" then tonmot= Lcase(tonmot,1) & Mid(tonmot,2,Len(tonmot))
je l'ai pas essayé mais c'est dans ce style
Bon courage et à +
Denis

 

[Manu70]

Merci denis de repondre a une heure aussi tardive.

Je débute en vba, mais j'ai programmé il y a qq années en basic et binaire, dans la logique, je pense que ta formule et la bonne, mais au moment du traitement il me dis :
Erreur de compilation :

Nombre d'arguments incorect ou affectation de propriété incorrecte.

en fait, on essai de transformé une variable par le contenu d'elle meme, il ne faudrait pas passé par une variable intermediare pour le traitement ?

il bloque sur LCase...

Si tu as une idée

Te souhaite bon courage....

 

[michel]

bonjour Manu , bonjour Denis

sur le meme principe que l'exemple de Denis tu peux tester

Dim tonMot As String
tonMot = InputBox("saisir un texte ")
tonMot = LCase(Left(tonMot, 1)) & UCase(Mid(tonMot, 2, Len(tonMot)))
MsgBox tonMot



bonne journée
MichelXld

 

[Manu70]

Bonjours le forum, michel et denis

Vos deux solutions fonctionnent, la tienne aussi denis (c'est moi qui avait fait une erreur de variable).

Encore merci pour votre aide et votre disponibilité (vu l'heure de mes posts !)

Je vous souhaite une bonne fin de journée