Ilino
XLDnaute Barbatruc
Bonjour Forum
ci dessous le code trouvé dans ce fameux Forum ( Grazie bénévole)
je souhaite inverser c-a-d commencer par le 1 er Texte minuscule( première lettre en Majuscule) et le reste du TEXTE Majuscule
Exemple : Ilino RAMO
GRAZIE
ci dessous le code trouvé dans ce fameux Forum ( Grazie bénévole)
je souhaite inverser c-a-d commencer par le 1 er Texte minuscule( première lettre en Majuscule) et le reste du TEXTE Majuscule
Exemple : Ilino RAMO
Code:
Private Sub ComboBox1_Change()
Application.EnableEvents = False
ComboBox1 = UCase(ComboBox1)
x = InStr(1, ComboBox1, Chr(32))
If x > 0 Then ComboBox1 = UCase(Mid(ComboBox1, 1, x)) & Application.Proper(Mid(ComboBox1, x + 1, Len(ComboBox1)))
Application.EnableEvents = True
End Sub
Dernière édition: