Discussion :

[possible924]

Bonjour à tous,
La combinaison des touches Shift + F2 permet de faire un zoom très pratique sur un contrôle.
Hélas, les utilisateurs de mon application ne connaissent pas ce raccourci clavier.
Je souhaite donc placer à coté du contrôle un boulon qui ouvre le zoom sur le contrôle spécifié,
mais je ne sais pas comment faire et votre aide me sera précieuse
Merci par avance pour votre aide
Pierre

[possible924]

Code :

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

1
2
3
4
Private Sub PrécisionsCongés_Click()
    Me.Spp_Précisions_Congés.SetFocus
    SendKeys "+{F2}"
End Sub

Merci pour ta prompte et pertinente réponse !
Pierre

[possible924]

Et bien, non, ça ne marche pas bien, car l'envoi des codes touches perturbe le fonctionnement du pc
et en particulier déverrouille le pavé numérique
Donc il faudrait que j'arrive à ouvrir le zoom par VBA, si c'est possible !
Pierre

[madefemere]

Bonjour,

J'ai trouvé le code suivant ICI :

Code :

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

1
2
3
4
5
Public Function ZOOM_ICI(pasmodif As Boolean)
Screen.ActiveControl.SetFocus
DoCmd.RunCommand acCmdZoomBox
If pasmodif Then Screen.ActiveControl.Undo
End Function

qui semble correspondre à ce que tu cherches, mais j'ai des doutes sur la façon de résoudre le problème.
Est-ce que c'est plus efficient de créer autant de boutons (alourdir le formulaire) avec autant de codes à gérer que d'indiquer aux utilisateurs qu'ils peuvent utiliser le raccourci pour avoir la même chose en étant dans le contrôle ? à toi de voir.

Cordialement.

[Thierry_PALLIER]

Bonjour le forum.

Dans un moduke standard:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Compare Database
Option Explicit
 
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)
 
Public Const VK_NUMLOCK = &H90
 Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
 
Function VérifEtatNumlock() As Boolean
    If GetKeyState(VK_NUMLOCK) = 1 Then
        VérifEtatNumlock = True
        '     MsgBox "Pavé numérique activé"
    Else
        VérifEtatNumlock = False
        '     MsgBox "Pavé numérique désactivé"
        '     SendKeys "{NUMLOCK}", True
    End If
End Function
 
 
'
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

Dans ton code ,remplace SendKeys "+{F2}" par appui_touche (vbKeyShift + vbKeyF2)

La fonction VérifEtatNumlock() sert éventuellement à vérifier l'état du verrouillage numérique.

Code :

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

If VérifEtatNumlock = False Then appui_touche (144) '144 est le code de la touche VerNum

Cdlt