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

Modeste

XLDnaute Barbatruc

• 4 Janvier 2010

• #2

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

Bonsoir koukou40,

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

Code:

=MAJUSCULE("maman")

ou

Code:

=NOMPROPRE("maman")

... pourraient suffire, non ?

 

Vote positif 0 Vote négatif

koukou40

XLDnaute Occasionnel

• 4 Janvier 2010

• #3

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

Merci mais j'insiste...en VBA !

A+

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 4 Janvier 2010

• #4

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

re-bonsoir,

Aaah, si tu insistes, la majuscule donnerait:

Code:

[A11] = UCase("maman")

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

Code:

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

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

 

Dernière édition: 4 Janvier 2010

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 4 Janvier 2010

• #5

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!)

Code:

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

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 4 Janvier 2010

• #6

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)

Code:

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

... ou

Code:

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 !)

 

Vote positif 0 Vote négatif