Comment activer ou désactiver la touche Majuscule en VB ?
Je m'explique
A l'arrivée d'un TextBox dans un UserForm, j'aimerais qu'une fonction active
la touche majuscule et qu'à la sortie de ce textBox la touche majuscule soit
désactiver.
Deux autres questions
Comment obliger un utilisateur à rentrer dans un TextBox un format numérique
?
Comment obliger un utilisateur à rentrer dans un TextBox un montant en euros
(format 122,54 ?) en tapant juste 122.54 (point) ou 122,54 (virgule) ?
"David" <(Pas de Spam) a écrit dans le message de news:
Bonjour/soir
Comment activer ou désactiver la touche Majuscule en VB ?
Je m'explique
A l'arrivée d'un TextBox dans un UserForm, j'aimerais qu'une fonction active la touche majuscule et qu'à la sortie de ce textBox la touche majuscule soit désactiver.
Re-Question : Ne searit-il pas plus simple de transformer la saisie du
TextBox en majuscule à la sortie de celui-ci ? Dans ce cas, l'instruction est :
TextBox1.Text = UCase(TextBox1.Text)
A mettre à l'évènement 'Sur Sortie'
Deux autres questions
Comment obliger un utilisateur à rentrer dans un TextBox un format numérique ? Dans le Temps, j'ai eu à faire une boucle Qui teste :
... Do LeTexte = LeTextBox1.Text If Not IsNumeric(LeTexte) Then MsgBox "Il faut Saisir une valeur Numérique !", vbCritical, "Ecoute un peu ce qu'ont te dit" 'Remise à blanc du TextBox LeTextBox1.Text ="" Else 'Sinon La saisie est bonne Exit Do End If Loop While True ...
Comment obliger un utilisateur à rentrer dans un TextBox un montant en euros (format 122,54 ?) en tapant juste 122.54 (point) ou 122,54 (virgule) ?
Re Re Question : Pourquoi ne pas transformer la valeur à la sortie du
TextBox? Dans ce cas ce sera l'instruction : LeTextBox.Text = Format(LeTextBox.Text , "# ##0,00 ?")
Un grand merci pour vos réponses et votre aides
Bonne soirée
David
Voilà, j'espère avoir fait avancer le Schiimimlibilshcilimick
A+
Christophe
Bonsoir
"David" <(Pas de Spam)direction-ternoise@wanadoo.fr> a écrit dans le message
de news: u6UjyXdvEHA.3792@TK2MSFTNGP10.phx.gbl...
Bonjour/soir
Comment activer ou désactiver la touche Majuscule en VB ?
Je m'explique
A l'arrivée d'un TextBox dans un UserForm, j'aimerais qu'une fonction
active
la touche majuscule et qu'à la sortie de ce textBox la touche majuscule
soit
désactiver.
Re-Question : Ne searit-il pas plus simple de transformer la saisie du
TextBox en majuscule à la sortie de celui-ci ?
Dans ce cas, l'instruction est :
TextBox1.Text = UCase(TextBox1.Text)
A mettre à l'évènement 'Sur Sortie'
Deux autres questions
Comment obliger un utilisateur à rentrer dans un TextBox un format
numérique
?
Dans le Temps, j'ai eu à faire une boucle Qui teste :
...
Do
LeTexte = LeTextBox1.Text
If Not IsNumeric(LeTexte) Then
MsgBox "Il faut Saisir une valeur Numérique !", vbCritical, "Ecoute
un peu ce qu'ont te dit"
'Remise à blanc du TextBox
LeTextBox1.Text =""
Else
'Sinon La saisie est bonne
Exit Do
End If
Loop While True
...
Comment obliger un utilisateur à rentrer dans un TextBox un montant en
euros
(format 122,54 ?) en tapant juste 122.54 (point) ou 122,54 (virgule) ?
Re Re Question : Pourquoi ne pas transformer la valeur à la sortie du
TextBox?
Dans ce cas ce sera l'instruction :
LeTextBox.Text = Format(LeTextBox.Text , "# ##0,00 ?")
Un grand merci pour vos réponses et votre aides
Bonne soirée
David
Voilà, j'espère avoir fait avancer le Schiimimlibilshcilimick
"David" <(Pas de Spam) a écrit dans le message de news:
Bonjour/soir
Comment activer ou désactiver la touche Majuscule en VB ?
Je m'explique
A l'arrivée d'un TextBox dans un UserForm, j'aimerais qu'une fonction active la touche majuscule et qu'à la sortie de ce textBox la touche majuscule soit désactiver.
Re-Question : Ne searit-il pas plus simple de transformer la saisie du
TextBox en majuscule à la sortie de celui-ci ? Dans ce cas, l'instruction est :
TextBox1.Text = UCase(TextBox1.Text)
A mettre à l'évènement 'Sur Sortie'
Deux autres questions
Comment obliger un utilisateur à rentrer dans un TextBox un format numérique ? Dans le Temps, j'ai eu à faire une boucle Qui teste :
... Do LeTexte = LeTextBox1.Text If Not IsNumeric(LeTexte) Then MsgBox "Il faut Saisir une valeur Numérique !", vbCritical, "Ecoute un peu ce qu'ont te dit" 'Remise à blanc du TextBox LeTextBox1.Text ="" Else 'Sinon La saisie est bonne Exit Do End If Loop While True ...
Comment obliger un utilisateur à rentrer dans un TextBox un montant en euros (format 122,54 ?) en tapant juste 122.54 (point) ou 122,54 (virgule) ?
Re Re Question : Pourquoi ne pas transformer la valeur à la sortie du
TextBox? Dans ce cas ce sera l'instruction : LeTextBox.Text = Format(LeTextBox.Text , "# ##0,00 ?")
Un grand merci pour vos réponses et votre aides
Bonne soirée
David
Voilà, j'espère avoir fait avancer le Schiimimlibilshcilimick
A+
Christophe
David
Bonsoir Christophe
Merci d'avoir répondu à mon post. En réponse
Re-Question : Ne serait-il pas plus simple de transformer la saisie du TextBox en majuscule à la sortie de celui-ci ?
Non car c'est pas pour mettre en majuscule des lettres. En fait je travaille avec un PC portable donc pour écrire des chiffres, je doit mettre en majuscule.
Pour le reste, je test et je reviens.
Encore merci David
Bonsoir Christophe
Merci d'avoir répondu à mon post.
En réponse
Re-Question : Ne serait-il pas plus simple de transformer la saisie du
TextBox en majuscule à la sortie de celui-ci ?
Non car c'est pas pour mettre en majuscule des lettres.
En fait je travaille avec un PC portable donc pour écrire des chiffres, je
doit mettre en majuscule.
Re-Question : Ne serait-il pas plus simple de transformer la saisie du TextBox en majuscule à la sortie de celui-ci ?
Non car c'est pas pour mettre en majuscule des lettres. En fait je travaille avec un PC portable donc pour écrire des chiffres, je doit mettre en majuscule.
Pour obliger un utilisateur a entrer des valeurs numerique tu peux ne pas tenir compte des touches alpha. Dans l'evenement KeyPress du texte box essaie le code suivant Le code ne tient pas compte des decimales
Sub KeyPress(Keyascii ) If keyascii<>10 and keyascii<>13 and keyascii<>8 and (keyascii<48 or keyascii>57) then keyascii=0 End sub
Bonjour/soir
Comment activer ou désactiver la touche Majuscule en VB ?
Je m'explique
A l'arrivée d'un TextBox dans un UserForm, j'aimerais qu'une fonction active la touche majuscule et qu'à la sortie de ce textBox la touche majuscule soit désactiver.
Deux autres questions
Comment obliger un utilisateur à rentrer dans un TextBox un format numérique ?
Comment obliger un utilisateur à rentrer dans un TextBox un montant en euros (format 122,54 ?) en tapant juste 122.54 (point) ou 122,54 (virgule) ?
Un grand merci pour vos réponses et votre aides
Bonne soirée
David
bonsoir,
Pour obliger un utilisateur a entrer des valeurs numerique tu peux ne pas
tenir compte des touches alpha.
Dans l'evenement KeyPress du texte box essaie le code suivant
Le code ne tient pas compte des decimales
Sub KeyPress(Keyascii )
If keyascii<>10 and keyascii<>13 and keyascii<>8 and (keyascii<48 or
keyascii>57) then keyascii=0
End sub
Bonjour/soir
Comment activer ou désactiver la touche Majuscule en VB ?
Je m'explique
A l'arrivée d'un TextBox dans un UserForm, j'aimerais qu'une fonction active
la touche majuscule et qu'à la sortie de ce textBox la touche majuscule soit
désactiver.
Deux autres questions
Comment obliger un utilisateur à rentrer dans un TextBox un format numérique
?
Comment obliger un utilisateur à rentrer dans un TextBox un montant en euros
(format 122,54 ?) en tapant juste 122.54 (point) ou 122,54 (virgule) ?
Pour obliger un utilisateur a entrer des valeurs numerique tu peux ne pas tenir compte des touches alpha. Dans l'evenement KeyPress du texte box essaie le code suivant Le code ne tient pas compte des decimales
Sub KeyPress(Keyascii ) If keyascii<>10 and keyascii<>13 and keyascii<>8 and (keyascii<48 or keyascii>57) then keyascii=0 End sub
Bonjour/soir
Comment activer ou désactiver la touche Majuscule en VB ?
Je m'explique
A l'arrivée d'un TextBox dans un UserForm, j'aimerais qu'une fonction active la touche majuscule et qu'à la sortie de ce textBox la touche majuscule soit désactiver.
Deux autres questions
Comment obliger un utilisateur à rentrer dans un TextBox un format numérique ?
Comment obliger un utilisateur à rentrer dans un TextBox un montant en euros (format 122,54 ?) en tapant juste 122.54 (point) ou 122,54 (virgule) ?
Un grand merci pour vos réponses et votre aides
Bonne soirée
David
David
Bonsoir ilan
Merci pour cette solution (elle va me servir plus loin) mais la même chose en entrant les décimales m'aurais intéressé.
Encore merci
Bonsoir ilan
Merci pour cette solution (elle va me servir plus loin) mais la même chose
en entrant les décimales m'aurais intéressé.
