Discussion :

[pelerin98]

Bonjour,

La question est dans l'intitulé. En fait est-il possible, si j'ai 3 valeurs à saisir, de définir que la première est en majuscules et les 2 autres en minuscules ?

Merci et bonne journée

[Jean-Philippe André]

Salut,

la valeur vbProperCase te conviendra avec ceci :
https://msdn.microsoft.com/fr-fr/lib.../gg264628.aspx

[pelerin98]

Bonjour Jean-Philippe André,

Merci de ta réponse mais je crois m'être mal exprimé :
Lorsque l'Usf est affiché (après "Load UsfMachin" "UsfMachin.Show") je voudrais pouvoir commander le mode d'affichage des infos saisies au clavier qui apparaissent dans chacune des fenêtres de saisie.
Par exemple :
Zone1.Value en minuscules si string
Zone2.Value en majuscules systématiquement
Zone3.Value en minuscules systématiquement

Est-ce possible ?

[Invité]

Bonjour,

Une solution possible en ajoutant ces événements sur vos TextBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub TextBox1Minuscule_Change()
        TextBox1Minuscule = LCase(TextBox1Minuscule)
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub TextBox2Et3Majuscule_Change()
        TextBox2Et3Majuscule = UCase(TextBox2Et3Majuscule)
End Sub

Cordialement.

[patricktoulon]

Bonjour
comme ta question au final n'est pas tres claire

je te propose d'essayer ceci: dans un classeur vierge dans le quel tu ajoutera un userform avec 4 textboxs

met cela dans le module du userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub TextBox1_Change()
TextBox1 = LCase(TextBox1) 'minuscule systématiquement pas besoins pour les numérique
End Sub
Private Sub TextBox2_Change()
TextBox2 = UCase(TextBox2) 'majuscule systématiquement
End Sub
Private Sub TextBox3_Change()
TextBox3 = LCase(TextBox3) 'minuscule systématiquement
End Sub
 
 
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
minmaj = UBound(Split(TextBox4, " "))
lettre = IIf(minmaj > 0 And minmaj < 2, UCase(Chr(KeyAscii)), Chr(KeyAscii))
KeyAscii = 0
 TextBox4 = TextBox4 & lettre
End Sub

les 3 premiers textboxs sont respectivement en min pour le premier et 3 eme ,le second est en maj

comme ta question n'était pas très claire

je t'en met un 4 eme
'celui la est un peu particulier
'on decoupe le texte en X zones representer par un espace entre chaque mots
'le 2 d mots (zone2) sera en majuscule le 1er et le 3eme et plus seront en minuscule

et donc son premier mot sera en min son 2 eme sera en maj et le reste en min
voila
A+

[pelerin98]

Merci à vous deux, votre proposition solutionne parfaitement mon problème.

Cordiales salutations et Bon week end