Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Action suite combinaison clic + touche

Action suite combinaison clic + touche

5 réponses
Avatar
papou
Bonjour à toutes et à tous
Sur un bouton de formulaire comment puis-je associer une action à une
combinaison clic + Shift sachant qu'une action sur clic seul existe déjà ?
Merci d'avance pour vos réponses
Cordialement
Pascal
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour.
Tu ne peux pas tester la touche shift sur le click ou double-click, mais tu
peux la tester sur le mousedown et le mouseup:
Private Sub Commande0_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Private Sub Commande0_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Tu déplaces ta fonction dans un des ces deux événements.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.kynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA


"papou" <nspm> a écrit dans le message de
news:u%
Bonjour à toutes et à tous
Sur un bouton de formulaire comment puis-je associer une action à une
combinaison clic + Shift sachant qu'une action sur clic seul existe déjà ?
Merci d'avance pour vos réponses
Cordialement
Pascal




Avatar
papou
Bonjour Raymond
Merci pour ton aide
Cordialement
Pascal

"Raymond [mvp]" a écrit dans le message de
news:u54D%
Bonjour.
Tu ne peux pas tester la touche shift sur le click ou double-click, mais
tu

peux la tester sur le mousedown et le mouseup:
Private Sub Commande0_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Private Sub Commande0_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Tu déplaces ta fonction dans un des ces deux événements.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.kynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA


"papou" <nspm> a écrit dans le message de
news:u%
Bonjour à toutes et à tous
Sur un bouton de formulaire comment puis-je associer une action à une
combinaison clic + Shift sachant qu'une action sur clic seul existe déjà
?


Merci d'avance pour vos réponses
Cordialement
Pascal








Avatar
papou
Re
Excuse-moi, mais je ne trouve pas l'aide concernant les éléments Button et
Shift qui à priori vont m'intéresser.
Peux-tu m'aiguiller ?
Merci
Cordialement
Pascal
"papou" <nspm> a écrit dans le message de
news:%
Bonjour Raymond
Merci pour ton aide
Cordialement
Pascal

"Raymond [mvp]" a écrit dans le message de
news:u54D%
Bonjour.
Tu ne peux pas tester la touche shift sur le click ou double-click, mais
tu

peux la tester sur le mousedown et le mouseup:
Private Sub Commande0_MouseDown(Button As Integer, Shift As Integer, X
As


Single, Y As Single)
Private Sub Commande0_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Tu déplaces ta fonction dans un des ces deux événements.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.kynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA


"papou" <nspm> a écrit dans le message de
news:u%
Bonjour à toutes et à tous
Sur un bouton de formulaire comment puis-je associer une action à une
combinaison clic + Shift sachant qu'une action sur clic seul existe
déjà



?
Merci d'avance pour vos réponses
Cordialement
Pascal












Avatar
Raymond [mvp]
je te donne l'aide complète, les deux événements sont identiques dans les
paramètres.

L'événement MouseDown se produit lorsque l'utilisateur appuie sur un bouton
de la souris.
Private Sub object_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)

Object Le nom d'un formulaire, d'une section de formulaire ou d'un
contrôle sur un formulaire.

Button Le bouton qui a été pressé (MouseDown) ou relâché (MouseUp) pour
déclencher l'événement. Si vous avez besoin de tester l'argument Button,
vous pouvez utiliser l'une des constantes intrinsèques suivantes comme
masque de bits :

Constante Description

acLeftButton Le masque de bits pour le bouton gauche de la souris.

acRightButton Le masque de bits pour le bouton droit de la souris.

acMiddleButton Le masque de bits pour le bouton central de la souris.

Shift L'état des touches MAJ, CTRL et ALT quand le bouton spécifié par
l'argument Button est pressé ou relâché. Si vous avez besoin de tester
l'argument Shift, vous pouvez utiliser l'une des constantes intrinsèques
suivantes comme masque de bits :

Constante Description

acShiftMask Le masque de bits pour la touche MAJ.

acCtrlMask Le masque de bits pour la touche CTRL.

acAltMask Le masque de bits pour la touche ALT.

X, Y Les coordonnées x et y de l'emplacement actuel du pointeur de la
souris. Les arguments X et Y sont toujours exprimés en twips.

Remarques
a.. L'événement MouseDown ne s'applique qu'aux formulaires, aux sections
de formulaire et aux contrôles dans un formulaire, mais pas aux contrôles
dans un état.
b.. Cet événement ne s'applique pas à une étiquette attachée à un autre
contrôle, telle que l'étiquette d'une zone de texte. Il ne s'applique qu'aux
étiquettes « autonomes ». Si vous appuyez et relâchez le bouton de la souris
dans une étiquette attachée, cela revient à appuyer et à relâcher le bouton
dans le contrôle associé. Les événements normaux du contrôle surviennent ;
aucun événement différent ne se produit pour l'étiquette attachée.
Pour exécuter une macro ou une procédure événementielle lorsque ces
événements se produisent, affectez le nom de la macro ou [Event Procedure] à
la propriété OnMouseDown.

L'événement MouseDown permet d'indiquer ce qui se produit lorsque
l'utilisateur appuie sur un bouton donné de la souris ou le relâche. Cet
événement diffère de Click et de DblClick, car il permet de différencier les
boutons gauche, droit et central de la souris. Vous pouvez aussi écrire du
code pour des combinaisons clavier-souris faisant appel aux touches MAJ,
CTRL et ALT.

Pour déclencher un événement MouseDown dans un formulaire, appuyez sur le
bouton de la souris dans une zone vierge, ou sur le sélecteur
d'enregistrement sur le formulaire. Pour déclencher un événement MouseDown
pour une section de formulaire, appuyez sur le bouton de la souris dans une
zone vierge de la section concernée.

Les actions suivantes s'appliquent aux événements MouseDown :

a.. Si l'utilisateur appuie sur un bouton de la souris lorsque le pointeur
se trouve sur un formulaire ou un contrôle, cet objet reçoit tous les
événements de la souris, y compris le dernier événement MouseUp.
b.. Si vous appuyez successivement sur les boutons de la souris, l'objet
qui reçoit l'événement de la souris consécutif au premier clic recevra tous
les événements suivants jusqu'à ce que tous les boutons soient relâchés.
Utilisez un événement MouseMove pour répondre à un événement provoqué par le
déplacement de la souris.


Macro

Vous pouvez utiliser une macro MouseDown ou MouseUp pour répondre chaque
fois que l'utilisateur appuie ou relâche un bouton de la souris dans un
formulaire ou un contrôle. Toutefois, ces macros ne peuvent pas renvoyer le
code du bouton ni déterminer lequel a été pressé, de sorte qu'en principe
vous utilisez des procédures événementielles avec cet événement.

Vous ne pouvez pas utiliser l'action AnnulerEvénement dans une macro
MouseDown ou MouseUp, à une exception près : vous pouvez l'utiliser dans une
macro MouseDown pour annuler l'événement qui se produit lorsque vous appuyez
sur le bouton droit de la souris. Par exemple, vous pouvez annuler
l'affichage d'un menu contextuel et le remplacer par le vôtre.

Exemple
L'exemple suivant vous montre comment trouver le bouton de la souris à
l'origine d'un événement MouseDown.

Pour essayer cet exemple, ajoutez au formulaire la procédure événementielle
suivante :

Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, _
Y As Single)
If Button = acLeftButton Then
MsgBox "You pressed the left button."
End If
If Button = acRightButton Then
MsgBox "You pressed the right button."
End If
If Button = acMiddleButton Then
MsgBox "You pressed the middle button."
End If
End Sub

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.kynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA


"papou" <nspm> a écrit dans le message de
news:%
Re
Excuse-moi, mais je ne trouve pas l'aide concernant les éléments Button et
Shift qui à priori vont m'intéresser.
Peux-tu m'aiguiller ?
Merci
Cordialement
Pascal


Avatar
papou
Bonjour Raymond
Merci pour ton aide précieuse <g>
Cordialement
Pascal

"Raymond [mvp]" a écrit dans le message de
news:%23U0$
je te donne l'aide complète, les deux événements sont identiques dans les
paramètres.

L'événement MouseDown se produit lorsque l'utilisateur appuie sur un
bouton

de la souris.
Private Sub object_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)

Object Le nom d'un formulaire, d'une section de formulaire ou d'un
contrôle sur un formulaire.

Button Le bouton qui a été pressé (MouseDown) ou relâché (MouseUp) pour
déclencher l'événement. Si vous avez besoin de tester l'argument Button,
vous pouvez utiliser l'une des constantes intrinsèques suivantes comme
masque de bits :

Constante Description

acLeftButton Le masque de bits pour le bouton gauche de la souris.

acRightButton Le masque de bits pour le bouton droit de la souris.

acMiddleButton Le masque de bits pour le bouton central de la souris.

Shift L'état des touches MAJ, CTRL et ALT quand le bouton spécifié par
l'argument Button est pressé ou relâché. Si vous avez besoin de tester
l'argument Shift, vous pouvez utiliser l'une des constantes intrinsèques
suivantes comme masque de bits :

Constante Description

acShiftMask Le masque de bits pour la touche MAJ.

acCtrlMask Le masque de bits pour la touche CTRL.

acAltMask Le masque de bits pour la touche ALT.

X, Y Les coordonnées x et y de l'emplacement actuel du pointeur de la
souris. Les arguments X et Y sont toujours exprimés en twips.

Remarques
a.. L'événement MouseDown ne s'applique qu'aux formulaires, aux sections
de formulaire et aux contrôles dans un formulaire, mais pas aux contrôles
dans un état.
b.. Cet événement ne s'applique pas à une étiquette attachée à un autre
contrôle, telle que l'étiquette d'une zone de texte. Il ne s'applique
qu'aux

étiquettes « autonomes ». Si vous appuyez et relâchez le bouton de la
souris

dans une étiquette attachée, cela revient à appuyer et à relâcher le
bouton

dans le contrôle associé. Les événements normaux du contrôle surviennent ;
aucun événement différent ne se produit pour l'étiquette attachée.
Pour exécuter une macro ou une procédure événementielle lorsque ces
événements se produisent, affectez le nom de la macro ou [Event Procedure]
à

la propriété OnMouseDown.

L'événement MouseDown permet d'indiquer ce qui se produit lorsque
l'utilisateur appuie sur un bouton donné de la souris ou le relâche. Cet
événement diffère de Click et de DblClick, car il permet de différencier
les

boutons gauche, droit et central de la souris. Vous pouvez aussi écrire du
code pour des combinaisons clavier-souris faisant appel aux touches MAJ,
CTRL et ALT.

Pour déclencher un événement MouseDown dans un formulaire, appuyez sur le
bouton de la souris dans une zone vierge, ou sur le sélecteur
d'enregistrement sur le formulaire. Pour déclencher un événement MouseDown
pour une section de formulaire, appuyez sur le bouton de la souris dans
une

zone vierge de la section concernée.

Les actions suivantes s'appliquent aux événements MouseDown :

a.. Si l'utilisateur appuie sur un bouton de la souris lorsque le
pointeur

se trouve sur un formulaire ou un contrôle, cet objet reçoit tous les
événements de la souris, y compris le dernier événement MouseUp.
b.. Si vous appuyez successivement sur les boutons de la souris, l'objet
qui reçoit l'événement de la souris consécutif au premier clic recevra
tous

les événements suivants jusqu'à ce que tous les boutons soient relâchés.
Utilisez un événement MouseMove pour répondre à un événement provoqué par
le

déplacement de la souris.


Macro

Vous pouvez utiliser une macro MouseDown ou MouseUp pour répondre chaque
fois que l'utilisateur appuie ou relâche un bouton de la souris dans un
formulaire ou un contrôle. Toutefois, ces macros ne peuvent pas renvoyer
le

code du bouton ni déterminer lequel a été pressé, de sorte qu'en principe
vous utilisez des procédures événementielles avec cet événement.

Vous ne pouvez pas utiliser l'action AnnulerEvénement dans une macro
MouseDown ou MouseUp, à une exception près : vous pouvez l'utiliser dans
une

macro MouseDown pour annuler l'événement qui se produit lorsque vous
appuyez

sur le bouton droit de la souris. Par exemple, vous pouvez annuler
l'affichage d'un menu contextuel et le remplacer par le vôtre.

Exemple
L'exemple suivant vous montre comment trouver le bouton de la souris à
l'origine d'un événement MouseDown.

Pour essayer cet exemple, ajoutez au formulaire la procédure
événementielle

suivante :

Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, _
Y As Single)
If Button = acLeftButton Then
MsgBox "You pressed the left button."
End If
If Button = acRightButton Then
MsgBox "You pressed the right button."
End If
If Button = acMiddleButton Then
MsgBox "You pressed the middle button."
End If
End Sub

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.kynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA


"papou" <nspm> a écrit dans le message de
news:%
Re
Excuse-moi, mais je ne trouve pas l'aide concernant les éléments Button
et


Shift qui à priori vont m'intéresser.
Peux-tu m'aiguiller ?
Merci
Cordialement
Pascal