VBA - lettre en majuscule

camarchepas

XLDnaute Barbatruc

• 13 Juin 2010

• #2

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

 

Vote positif 0 Vote négatif

A

AlphaOne

XLDnaute Junior

• 13 Juin 2010

• #3

Re : VBA - lettre en majuscule

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Juin 2010

• #4

Re : VBA - lettre en majuscule

Bonjour

Voir de ce côté

Application.Proper

Code:

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

 

Dernière édition: 13 Juin 2010

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 13 Juin 2010

• #5

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Juin 2010

• #6

Re : VBA - lettre en majuscule

Re, bonjour camarchepas


ou alors possible aussi

Code:

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

 

Vote positif 0 Vote négatif

A

AlphaOne

XLDnaute Junior

• 13 Juin 2010

• #7

Re : VBA - lettre en majuscule

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

 

Vote positif 0 Vote négatif