VBA - lettre en majuscule

[AlphaOne]

Bjr à tous,
a partir de code suivant (userform), comment mette automatiquement la 1ère lettre du texte ("oui") en majuscule ?
@+

Private Sub TB_Equipe_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim NomEq As String
'
  With Me.TB_Equipe
    NomEq = .Text
    If NomEq <> "" Then
      If IsNumeric(Right(NomEq, 1)) Then
        .Text = IIf(Right(NomEq, 1) = "0", "oui", "Eq" & Right(NomEq, 1))
      End If
    End If
  End With
End Sub

 

[camarchepas]

Re : VBA - lettre en majuscule

Bonjour,

La réponse est trop simple ou la question peut être mal formulée :
Ajoutes les éléments en gras sur la ligne

.Text = IIf(Right(NomEq, 1) = "0", ucase("oui"), "Eq" & Right(NomEq, 1))

 

[AlphaOne]

Re : VBA - lettre en majuscule

Bjr et merci camarchepas,
malheureusement cela ne fonctionne pas !!
@+

 

[Staple1600]

Re : VBA - lettre en majuscule

Bonjour

Voir de ce côté

Application.Proper

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Application.Proper(TextBox1)
End Sub

 

[camarchepas]

Re : VBA - lettre en majuscule

RE moi ,

JE ne vois pas l'utilité du isnuméric dans ce cas là , voici donc le code pour remplacer un o miniscule par un Oui, je pense que c'est ce que tu veux faire ?

With Me.TextBox1
NomEq = .Text
If NomEq <> "" Then
.Text = IIf(Left(NomEq, 1) = "o", UCase(Left(NomEq, 1)) & Mid(NomEq, 2), NomEq)
End If
End With
End Sub

 

[Staple1600]

Re : VBA - lettre en majuscule

Re, bonjour camarchepas


ou alors possible aussi

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = StrConv(TextBox1, vbProperCase)
End Sub

 

[AlphaOne]

Re : VBA - lettre en majuscule

merci à vous deux,
la macro est nickel !!
@+