Convertion de caractères

[bartomax]

Bonjour,

Est-il possible de gerer des conversions de caractère de manière automatique avec Excel.
Par exemple, dans une case je mets Maxime Barthelme.
Et automatiquement (grace à une formule), il marque dans les cases à côté
MBARTHEL (8 caractères)
Barthelme (nom normal)
BARTHELME (nom majuscule).

S'il n'est pas possible de faire tout ca, est-il au moins possible de faire passer les minuscules en majuscules?

 

[hoerwind]

Re : Convertion de caractères

Bonjour,

A1 : le nom
B1 : =GAUCHE(A1)&MAJUSCULE(STXT(A1;CHERCHE(" ";A1)+1;7))
C1 : =STXT(A1;CHERCHE(" ";A1)+1;30)
D1 : =MAJUSCULE(STXT(A1;CHERCHE(" ";A1)+1;30))

Il y a toutefois problème lorsque le prénom est du type composé sans - (trait d'union)

 

[bartomax]

Re : Convertion de caractères

Merci beaucoup pour cette réponse qui m'aide beaucoup et m'évite de nombreuses heure de recopie 😀

 

[CISCO]

Re : Convertion de caractères

Bonjour à tous

Cf. en pièce jointe.

@ plus

P.S : Bonjour Hoerwind

 

[Staple1600]

Re : Convertion de caractères

Bonsoir à tous

Pour varier les plaisirs 😉

Sub cree_EX()
Dim f
f = Array("Maxime Barthelme", "=caract(RC1,1)", "=caract(RC1,0,1)", "=caract(RC1,0,0)")
Range("A1:D1") = f
End Sub

Function caract(r As Range, a As Boolean, Optional b As Boolean)
Dim t$, tt$: t = Split(r)(0): tt = Split(r)(1)
caract = IIf(a, UCase(Left(t, 1) & tt), IIf(b, StrConv(tt, 3), UCase(tt)))
End Function

Lancer la macro cree_EX pour voir le résultat.

PS: à utiliser en cas de désœuvrement (ou d'overdose du Tour de France)
car les solutions par formule sont à privilégier (à mon sens)