Minuscule et Majuscule

[jack]

Bonjour
Une ligne de code est la suivante :
Sheets('test').Range('A65536').End(xlUp).Offset(1, 0).Value = UCase(TextBox2.Value)
UCASE(textbox2.value) permet d'afficher sur une feuille le texte en majuscule mais quel code faut il associer pour avoir la majuscule sur la première lettre et les minuscules sur les autres

Ex le résultat doit être le suivant :

La folie des grandeurs
Terminator
Destination finale 2

Merci pour votre aide

 

[Eric C]

Bonjour le forum
Bonjour jack

Essaies ceci :

Sheets('test').Range('A65536').End(xlUp).Offset(1, 0).Value = Application.Proper(TextBox2)

Bonne fin de journée à toutes & à tous 😉

Message édité par: Eric C, à: 28/03/2006 19:29

 

[pat1545.]

Salut,

Option Explicit
Sub FirstMaju()
Dim L As Integer, Maju, Maju2
L = Len(ActiveCell)
Maju = UCase(Left(ActiveCell, 1)) & Right(ActiveCell, L - 1)
Maju2 = Application.Proper(ActiveCell)
MsgBox (Maju & ' ' & Maju2)
End Sub

si le reste est en minuscule, sinon; il faut:
lcase(right(.....))

Bye

 

[Jack]

Bonsoir

Merci beaucoup Eric

La réponse ne correspond pas à la demande mais malgré tout cela cela me va très bien
Le résultat est La Folie Des Grandeurs c'est à dire le texte avec une majucule à chaque mot mais visuellement cela me plait

Slts

Merci et bonne soirée

Jack

 

[Hervé]

bonsoir jack, eric, pat 🙂

un code permettant d'avoir une majuscule à chaque mot (pas compatible xl97) :

Dim tablo As Variant
Dim i As Byte

tablo = Split(TextBox2, ' ')
For i = 0 To UBound(tablo)
        tablo(i) = Application.Proper(tablo(i))
Next i
Range('a65536').End(xlUp)(2) = Join(tablo)

salut

 

[Jack]

Bonsoir Hervé Eric Pat et le forum

Merci à vous tous pour vos idées
Je vais suivre celle d'Eric et mettre les autres sous le coude pour d'autres applications

Merci pour tout

Slts
Jack