Discussion :

[Nico451]

Bonjour,

Je voudrait qu'au lancement de mon UserForm le clavier se mette en majuscule et quand je sort redeviens en minuscule

il y a bien la fonction Ucase mais ça répond pas forcement à mon attente.

Merci de votre aide.

[unparia]

Bonjour
Cela ne se fait qu'en passant par une fonction de l'Api de Windows, ce qui est quelque peu démesuré.
Il est vraisemblable qu'une explication précise détaillée des tenants et aboutissants (de tes besoins) conduira à une solution moins "lourde".

[Nico451]

J'ai un UserForm avec plein de TextBox à remplir.

C'est TextBox me permette de crée des dossiers, remplir des fichiers et certaines de ces valeurs sont stocker dans des variables pour utilisation plus loin dans le code.

Et comme toutes les information que je doit remplir doivent être en majuscule, c'est pour ça que je voulais savoir si c'était possible. Si vous me dite qu'il y a plus simple je suis complétement preneur.

Merci

[unparia]

Je m'en doutais un peu
regarde ce que fait ceci (exemple)

Code :

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

1
2
3
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Que je préfère personnellement à cette autre solution :

Code :

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

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

[Nico451]

Y as-t-il un moyen de le généraliser d'un coup à tous les TextBox?

Je n'ai pas que tu texte dans les TextBox j'ai aussi des valeurs numérique

[unparia]

Je n'ai pas que tu texte dans les TextBox j'ai aussi des valeurs numérique

Oui ? -->> il se trouve que les chiffres sont les mêmes en minuscule et en majuscule
Pour le reste (appliquer une procédure évènementielle à plusieurs textboxes) -->> il te faut alors passer par un module de classe. Cela s'apprend et tu as pour apprendre cela un didacticiel sur ce forum.

[Patrice740]

Je n'ai pas que tu texte dans les TextBox j'ai aussi des valeurs numérique

Dans un TextBox (comme son nom l'indique) il y a du texte, il n'y a pas de valeur numérique, mais un texte que la représente.

[Nico451]

Peut tu m'indiquer où je pourrais trouver ce didacticiel. Merci

[modus57]

Bonjour Nico451

Si j'ai bien compris la question cela devrait suffire :

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Activate()
    SendKeys "{NUMLOCK}", False
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
        SendKeys "{NUMLOCK}", True
End Sub

A condition que le pavé numérique soit déverrouillé

[unparia]

Peut tu m'indiquer où je pourrais trouver ce didacticiel. Merci

tu veux de la lecture ? -->>
En voilà

https://tissotemmanuel.developpez.co...les-de-classe/

[Nico451]

modus57 : C'est pas le pavé numérique c'est le capLock que je veux activer pour que mon texte soit en Majuscule

[modus57]

Peut-être en remplacement tout simplement "Numlock" par "CapLock"

[Nico451]

Merci, c'est ce que j'ai fait.

Mais maintenant j'ai des problèmes supplémentaires :

1) Quand je valide un textbox je fait apparaître un Frame avec des textbox. Le souci est que quand je veux valider la première textbox, je ne peux pas passer à la suivante.

2) J'ai un souci aléatoire. Je m'explique. Avec cette fonction je suis en majuscule et le contrôle sur le clavier le caplock n'est pas activé. Quand j'appuie sur caplock je suis en minuscule.

3) Je boss avec un ordi portable, mais j'utilise de temps en temps un clavier externe avec un pavé numérique. Le souci, est que quand je lance mon UserForm le pavé numérique ce désactive.

4) Comme je suis en court de programmation, de temps à autre mon programme plante. Donc le Caplock est toujours actif, mais quand j'ecrit dasn mon UserForm je suis en minuscule.

Je pense que le problème est que l'ordi garde en mémoire les paramètres, et comme je relance il fait l'inverse. Il faudrait que tous les paramètres redevienne normal dans tous les cas (beug, sortie avant d'avoir fini, etc...)

Merci de votre aide.

[unparia]

Cette manoeuvre de transformation de l'état du clavier est et sera toujours plutôt scabreuse.
Je comprends que les modules de classe peuvent te paraître compliqués.
Tu peux l'éviter si le nombre de tes textboxes concernées est relativement faible.
Combien en as-tu, concernées par cette mise en majuscule ?

[Nico451]

unparia : Pour le moment 8 textBox pour les majuscules sur les 19 que j'ai.

Sur les 19, j'ai 2 textbox pour la date, le reste c'est des valeurs numérique

[unparia]

Sur les 19, j'ai 2 textbox pour la date, le reste c'est des valeurs numérique

Ni les dates, ni les nombres ne sont dotés de caractères subissant la casse...
tu n'as donc QUE 8 textboxes concernées par l'imposition de saisie en lettres majuscules ?

[Nico451]

unparia : Oui pour le moment que 8 TextBox. Sur les 8 j'ai 4 TextBox oui j'ai des lettres qui doivent être en majuscule avec des chiffres et des -. C'est des références pour ces 4 TextBox.

[unparia]

Bon ...
Je ne comprends rien à tes nombres de textboxes concernées.
Peu importe:
mets ceci dans l'évènement keypress de chacune de celles concernées par l'imposition en majuscules :

Code :

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

toto keyascii

et crée cette procédure toto --->>

Code :

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

1
2
3
Private Sub toto(ByRef KA As MSForms.ReturnInteger)
  KA = Asc(UCase(Chr(KA)))
End Sub

cela suffira.

[Pierre Fauconnier]

Salut.

Oui ? -->> il se trouve que les chiffres sont les mêmes en minuscule et en majuscule [...]

Ni les dates, ni les nombres ne sont dotés de caractères subissant la casse...[...]

Mon grain de sel...

Sans pavé numérique, SHIFT ou CAPSLOCK sont nécessaires pour la saisie d'un chiffre

Cela dit, je ne valide pas la modification du clavier, que ce soit par API ou autre

[Nico451]

Bonsoir Pierre : D'accord pour ne pas modifier le clavier par API ou autre. Mais y as-t-il une solution acceptable?

unparia : Je vais essayer