Discussion :

[electrosat03]

Salut,

Voilà mon problème, un de plus.

Dans un form, je me déplace de champ en champ avec F12.

Le problème est que F12 active ou désactive le pavé numérique, donc, comment empêcher cela.

Certains vont dire : "déplace toi avec une autre touche" ben oui, mais les users sont habitués avec cette touche, cela n'était pas actif avec les anciens claviers.

Merci.
A+

[Invité]

Bonjour

tu as un petit problème, car je n'ai jamais vu la touche F12 bloquer et débloquer le pavé numérique, sous les applications Office elle a pour but d'ouvrir la fenêtre "Enregistre sous".

Cela signifie que tu as un programme qui se lance sur ton ordinateur et qui change la destination de cette touche, où un configuration particulière du clavier (cela peut arriver avec des claviers paramétrables).

Philippe

[electrosat03]

Salut,

J'ai un Acer, et sur la touche F12 il est fravé en bleu Scr LK.

Sur les clavier où tourne l'appli, c'est des claviers indépendants et c'est pareil.

Normalement, dans mon appli, la touche F12 recopie dans les champs d'un enregistrement, le contenu des champs de l'enregistrement juste au dessus.

Évidemment, il faut faire F12 sur chaque champ.

Donc, à chaque appuis sur F12, il recopie le champs mais active/désactive le pavé numérique.

Donc, cela est-il possible de ne pas activer/désactiver le pavé numérique quand j'appuie sur F12.

Merci

[Invité]

Re

Normalement la seconde fonction d'une touche est faite avec une touche (Fnt) par exemple

Philippe

[electrosat03]

Re,

Oui, en fonctionnement normal c'est ce qu'il faut faire.

Mais ici en code VBA il y a qq chose qui ne va pas.

Code :

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

1
2
3
4
5
6
7
8
'**********************************************************************
        'Maj Ctrl ' pour recopier le même champ que l'enregistrement précédent
        '**********************************************************************
        Case vbKeyF12 And Shift = 0 'Maj Ctrl ' pour recopier le même champ que l'enregistrement précédent
            SendKeys "^+'", False
            SendKeys "{TAB}", True
            KeyCode = 0
            Shift = 0

[electrosat03]

Je viens de faire un essai avec VBKeyF11, le problème est identique, cela active/désactive le pavé numérique.

Il y a donc un problème dans l'envoie des touches.

Car j'essaie, et je remarque que si le Num Lock est sur off, il n'y a pas d'effet sur le pavé numérique avec F12.

Si Num Lock est sur On, F12 active ou désactive le pavé numérique MAIS, Num reste affiché en bas à droite dans la fenêtre office alors que j'ai un rectangle en bas à droite de l'écran qui affiche Num Lock:On ou Off.

Je pense que c'est office qui interfère avec le pavé num.

Drôle d'histoire.

[electrosat03]

Bon, je reviens avec se post car après différents essais, je ne trouve pas de solution.

Donc, le problème c'est que même si je prend une autre touche de fonction, j'ai le même problème. Cela ne viens donc pas de la touche F12, c'est la combinaison de l'envoi de "^+'" qui pose problème avec office.

Qq peut-il faire un essai sur une appli access afin de voir si il a le même problème et éventuellement une solution.

Merci
A+

[electrosat03]

Salut,

Encore une chose, Dans une ZL, pour sélectionner le texte en entier afin de permettre l'auto-étendre, sur l'évènement mouse-Up, j'envoie

Code :

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

SendKeys "{F2}", True

Le problème, c'est que j'ai aussi le problème de NumLock qui active et désactive le pavé Num à chaque fois que clic sur la ZL.

Mais pas si je fais F2, c'st donc bien un problème avec office lors de l'envois de touches en VBA.

Je demande donc aux pros, de faire qq essais pour voir si ils trouvent d'où cela peut venir.

Merci à tous.

[electrosat03]

Salut à tous,

Je repose la question, le problème reste entier, pas moyen de trouver une réponse au problème après une recherche accrue sur le net.

Avez-vous déjà rencontré se genre de problème?

Merci pour vos réponses.

A+

[stigma]

Je viens juste de rencontrer ce problème ce matin.
Sur un PC, une appli enregistre la saisie avec la touche F4. L'appui de cette touche désactive le pavé numérique, chose qui ne se produisait pas jusqu'alors !!??
Sur mon PC de développement, je fais la même manip et là, le pavé numérique reste bien allumé.
Les bras m'en tombent comme disait le manchot.
Je continue mes recherches

[electrosat03]

Salut,

Oui, mais as-tu remarqué que si ton pavé numérique est éteint tu peux utiliser l'envoie sendkeys sans que le pavé numérique ne s'active ou se désactive.

Chose étrange que celle-ci.

Et si tu fais d'une certaine manière, tu arrives même à activer le pavé num alors que l'indication dans le coin inférieur droit au dessus de l'horloge indique le contraire et vice-versa.

Si qq a une solution, elle est la bien venue.

Les clients commence à se plaindre.

Merci
A+

[stigma]

Au lieu d'un SenKeys, j'ai fait ça :

Code :

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

1
2
3
Public Declare Sub keybd Lib "user32" Alias "keybd_event" _
  (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
  ByVal dwExtraInfo As Long)

Code :

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

1
2
3
4
5
6
Public Sub appui_touche(T As Long)
        'appuie sur la touche
        keybd T, 0, 0, 0
        'relache la touche
        keybd T, 0, 2, 0
End Sub

Utilisation:

Code :

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

    appui_touche (144)

144 est le code de la touche VerNum

[electrosat03]

Salut stigma,

Merci pour ton code.

Une question, comment peut-on remplacer

Code :

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

SendKeys "^+'{TAB}", True

par ton code?

Merci
A+

[stigma]

par le code de la touche TAB

Code :

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

appui_touche (9)

[electrosat03]

Re,

Non, ce n'est pas juste la touche Tab, c'est en fait recopier le champ de l'enregistrement précédent dans le champ de l'enregistrement courant.

En l'occurrence, trl Shift ' les trois touches simultanément puis la touche Tab pour passer au champ suivant.

Merci

[electrosat03]

Je viens d'essayer, mais les résultats ne correspondent pas avec ce que tu marque.

Ex:9 ne fait pas Tab

J'ai placé comme suit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   On Error GoTo Form_KeyDown_Error
    Select Case KeyCode
 
        '**********************************************************************
        'Maj Ctrl ' pour recopier le même champ que l'enregistrement précédent
        '**********************************************************************
        Case vbKeyF12 And Shift = 0  ' (Maj Ctrl ') pour recopier le même champ que l'enregistrement précédent
                                     'puis passer au champ suivant {TAB}
            appui_touche (9)
'SendKeys "^+'{TAB}", True

Comment fais-tu ton code?

Merci

[stigma]

Je n'ai pas testé 9 pour la TAB, j'ai juste consulté ma liste des vbKeyxxxx imprimée.
Pour mon problème, j'avais vbKeyNumLock = 144