Minuscules et derniéres lettres

Bonjour,

Je demande à saisir en input box les 3 1éres lettres d'un prénom.

Etant donné que la forme saisie est par exemple Luc, soit la premiére lettre majuscule et les autres en minuscules,

voici mon code:

Sub test()

Dim debcol As String

'

'deblig = InputBox("3 premiéres lettres Models")

' deblig = UCase(deblig)

debcol = InputBox("3 premiéres lettres prenom")

' debcol = Left(UCase(debcol), 1) & Right((debcol), 2) fonctionne

' debcol = Left(UCase(debcol), 1) & Right(InStr(debcol, 2)) fonctionne pas

MsgBox debcol

End Sub

j'ai un probléme de ponctuation sur les 2 derniéres lettres.

merci

Fronck

Bonjour,

Sub test()
    Dim debcol As String
    debcol = InputBox("3 premiéres lettres prenom")
    debcol = StrConv(debcol, vbProperCase)
    MsgBox debcol
End Sub

Super Maréchal, çà fonctionne

par contre je comprends pas ce que fait "StrConv" par rapport à "vbProperCase".

merci

Fronck

Cette fonction convertit une chaîne selon le paramètre indiqué : vbProperCase, c'est initiale en majuscule et le reste en minuscules...

Bonjour,

voir : strConv

Bonjour,

=> StrConv convertie une chaîne de caractère

=>vbProperCase : le type de conversion a effectuer (lui il propose de mettre le 1er lettre de la chaîne en majuscule)

quelque exemple :

• VbStrConv.UpperCase : tout en mjuscule
• VbStrConv.LowerCase : tout en minuscule

https://msdn.microsoft.com/fr-fr/library/cd7w43ec(v=vs.90).aspx

edit : les gen sont trop rapide ici

merci à tous.