[VBA] 1ère lettre d'un nom ou mot en majuscule

[koukou40]

Bonsoir,

Je cherche en vain de pouvoir mettre la 1ère lettre d'un mot ou d'un nom en MAJUSCULE, par exemple : MAMAN ---> Maman

Une idée ?

Merci et bonne soirée.

 

[Modeste]

Re : [VBA] 1ère lettre d'un nom ou mot en majuscule

Bonsoir koukou40,

Pourquoi VBA, si les formules suffisent ? Dans ton cas,

=MAJUSCULE("maman")

ou

=NOMPROPRE("maman")

... pourraient suffire, non ?

 

[koukou40]

Re : [VBA] 1ère lettre d'un nom ou mot en majuscule

Merci mais j'insiste...en VBA !

A+

 

[Modeste]

Re : [VBA] 1ère lettre d'un nom ou mot en majuscule

re-bonsoir,

Aaah, si tu insistes, la majuscule donnerait:

[A11] = UCase("maman")

Edit: Désolé, j'ai lu ton message à l'envers! J'ignore si l'équivalent de NOMPROPRE() existe, mais

[A11] = UCase(Left("MAMAN", 1)) & LCase(Mid("MAMAN", 2, 9 ^ 9))

fonctionne ... Un peu long et tiré par les cheveux? Euh, oui je confirme!

 

[Modeste]

Re : [VBA] 1ère lettre d'un nom ou mot en majuscule

re et re-bonsoir,

Pour être complet (et me faire pardonner ), ceci fonctionne également (et est plus court!)

[A11] = Application.WorksheetFunction.Proper([E6])

 

[Modeste]

Re : [VBA] 1ère lettre d'un nom ou mot en majuscule

re,

Les dernières possibilités (pour convertir le texte qui se trouverait en A1, par exemple)

Cells(1, 1) = StrConv(Cells(1, 1), 3)

... ou

With Sheets("Feuil1")
.Range("A1").Value = StrConv(.Range("A1").Value, 3)
End With

Les 2 ont aussi été testées (pour éviter que je dise une ânerie de plus !)