Discussion :

[cobra38]

Re bonjour à tous

Pouvez-vous m'indiquer comment dans USF je puis forcer l'ecriture
en majuscule d'une donnée ( texte ) saisie ( je sais j'ai honte !! lol )

Mille mercis par avance
A+

[mercatog]

Code :

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

1
2
3
Private Sub TextBox1_Change()
If UCase(TextBox1.Value) <> TextBox1.Value Then TextBox1.Value = UCase(TextBox1.Value)
End Sub

ou simplement

Code :

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

1
2
3
Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1.Value)
End Sub

[cobra38]

Merci mercatog

A moitié pardonné donc car j'avais prévenu (lol !! )
je ne retrouvais plus le terme "Ucase"


Merci encore
A++

[mnarchi]

le code:

Code :

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

1
2
3
Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1.Value)
End Sub

peut provoquer des actions bizarres
exemple si tu saisis, la conversion en majuscule est ok, par contre si tu veux corriger ce que tu as saisi, tu places le curseur là où tu veux corriger et là tu verras une belle bizarrerie si tu saisis au moins 2 caractères!

le code que je propose est alors le suivant:

Code :

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

1
2
3
4
5
6
7
8
Private Sub TextBox1_Change()
'trouve la position du curseur
x=TextBox1.Selstart
'écriture en majuscule
TextBox1.Value = UCase(TextBox1.Value)
'remet le curseur à sa place
TextBox1.Selstart=x
End Sub

bon courage