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+
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+
ou simplement
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub TextBox1_Change() TextBox1.Value = UCase(TextBox1.Value) End Sub
Merci mercatog
A moitié pardonné donc car j'avais prévenu (lol !! )
je ne retrouvais plus le terme "Ucase"
Merci encore
A++
le code:
peut provoquer des actions bizarres
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub TextBox1_Change() TextBox1.Value = UCase(TextBox1.Value) End Sub
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:
bon courage
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager