Discussion :

[Cavart]

Bonjour,

est-il possible de bloquer la combinaison de touches Schift+Tab, via
du code VBA.
Merci d'avance pour votre aide.
avec mes meilleurs messages.

[robyseb]

Salut j'y ai travaillé quelque peut voici une solution :

en entête de module tu déclare 2 variables boolean ensuite sur la procédure KeyDown de ton formulaire :

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
Dim keytab As Boolean
Dim keyshift As Boolean
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
 
Select Case KeyCode
 
    Case vbKeyShift
        keyshift = True
    Case vbKeyTab
        If keyshift = True Then
        keytab = True
        ElseIf Not keyshift Then
        keytab = False
        End If
    End Select
 
    If keyshift And keytab Then
        KeyCode = 0
        MsgBox "Shift + Tab appuyé"
    keyshift = False
    keytab = False
    End If
 
 
End Sub

et sur la procédure Keyup :

Code :

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

1
2
3
4
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
keyshift = False
keytab = False
End Sub

Cordialement,

[Shanur]

Code :

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

1
2
3
4
5
6
7
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Select Case KeyCode
    Case vbKeyTab
      If Shift = acShiftMask Then 
        KeyCode = 0
      End If
   End Select

acShiftMask Masque de bits pour la touche MAJ.
acCtrlMask Masque de bits pour la touche CTRL.
acAltMask Masque de bits pour la touche ALT.

[robyseb]

Merci de cet éclaircissement

Je doit spécifier que la propriété KeyPreview doit être à oui pour que ca fonctionne, il est possible de le faire en automation via Vba de cette manière :

Code :

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

1
2
3
Private sub Form_Load()
me.keypreview = true
end sub

[Cavart]

Bonjour,

merci pour votre aide.
Ca fonctionne. Merci pour tout.

A bientôt

Cafous