affecter macro à "Alt + clic gauche"

Pierrot93

XLDnaute Barbatruc

• 26 Juillet 2010

• #2

Re : affecter macro à "Alt + clic gauche"

Bonjour Halffy,


bonne journée
@+

Edition : réponse supprimé, ne doit pas fonctionner selon ta demande...

 

Dernière édition: 26 Juillet 2010

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 26 Juillet 2010

• #3

Re : affecter macro à "Alt + clic gauche"

Bonjour Halffy, Bonjour Pierrot,

à ma connaissance, l'appui sur une touche en même temps qu'un clic ne peut s'effectuer que dans un évènement MouseDown, et la feuille de calcul n'a pas ce type d'évènement.
Donc je ne vois pas trop de solution...

 

Vote positif 0 Vote négatif

H

Halffy

XLDnaute Occasionnel

• 26 Juillet 2010

• #4

Re : affecter macro à "Alt + clic gauche"

Bonjour Pierrot93, tototiti2008, le forum
Tout d'abord, Merci de vous êtes penchés sur ma requête...
Toutefois & par rapport à vos réponses, ma demande peut-elle trouver une solution tout de même ? Ou est-ce réellement impossible ?
Si maintenant cela devait être impossible, avez-vous une autre solution éventuelle à me proposer comme ça au pied levé ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Juillet 2010

• #5

Re : affecter macro à "Alt + clic gauche"

Re, bonsoir toto

peut être une procédure événementielle, se déclenche à chaque changement de selection... A voir s'il y a lieu de contrôler la plage sur laquelle la procédure doit sexécuter.... Code à placetr dans le module de la feuille concernée...

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = Date + 90
End Sub

bonne soirée
@+

 

Vote positif 0 Vote négatif

H

Halffy

XLDnaute Occasionnel

• 26 Juillet 2010

• #6

Re : affecter macro à "Alt + clic gauche"

Re Pierrot93,

Effectivement, cela marche à chaque fois que je clic sur la feuille; seulement, tu devines bien 🙄 que ma feuille ne se limite pas à cette fonction (sans vouloir te manquer de respect) /

En fait, il faudrait ajouter 2 conditions à la macro:

1. Détecter que la touche "Alt" est enfoncée, pour autoriser le déroulement de la macro.
2. Limiter l'action à la colonne "I"

Penses-tu que cela soit possible ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Juillet 2010

• #7

Re : affecter macro à "Alt + clic gauche"

Re,

pour tester la colonne I :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 9 Then Target.Value = Date + 90
End Sub

Perso, pas de solution pour tester si la touche "ALT" est enfoncée...

 

Vote positif 0 Vote négatif

H

Halffy

XLDnaute Occasionnel

• 26 Juillet 2010

• #8

Re : affecter macro à "Alt + clic gauche"

Re,
Merci Pierrot, c'est déjà un bon début / je vais continuer de me renseigner sur la détection de l'enfoncement de la touche "Alt" de toute façon...
Cordialement, Halffy /.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 26 Juillet 2010

• #9

Re : affecter macro à "Alt + clic gauche"

Re, Pierrot 😉

Je ne dirais pas catégoriquement que c'est impossible, mais moi non plus je ne vois pas de solution...

 

Vote positif 0 Vote négatif

H

Halffy

XLDnaute Occasionnel

• 26 Juillet 2010

• #10

Re : affecter macro à "Alt + clic gauche"

Re tototiti2008,
Merci tout de même...😱

 

Vote positif 0 Vote négatif

H

Halffy

XLDnaute Occasionnel

• 27 Juillet 2010

• #11

Re : affecter macro à "Alt + clic gauche"

Re-bonjour à tous,

Donc, j'ai "légèrement" progressé dans mes recherches 😀
En effet, je suis en mesure de:
1. Insérer la date du jour dans une cellule, par sollicitation d'un CommandButton
2. Insérer la date à échéance + 90j, par sollicitation du même CommandButton, & si touche "CTRL" enfoncée.
Reste un problème alors: Comment limiter cette action à la colonne "I" uniquement ? 😱
Avec tous mes Remerciement, à nouveau / new Fichier ci-joint bien-sûr.

 

Pièces jointes

• Echéance à 90 jours Bétâ.xls

  31 KB · Affichages: 46

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 27 Juillet 2010

• #12

Re : affecter macro à "Alt + clic gauche"

Bonjour Hallfy,

je ne connaissais pas GetAsyncKeyState

un essai

Code:

Declare Function GetAsyncKeyState Lib "user32" _
     (ByVal vKey As Integer) As Integer
Sub InsertionDate()
Dim Cellule As Range, CtrlApp As Boolean 'Déclaration de Cellule
    CtrlApp = (GetAsyncKeyState(17) = -32767)
    For Each Cellule In Application.Intersect(Selection, Range("I1:I65536"))
     If CtrlApp Then 'Détection touche "CTRL" enfoncée
         Cellule.Value = Format(Now + 92, "dd/mm/yyyy") 'alors Insertion Date du jour + 90 jours
         Else 'Sinon
         Cellule.Value = Format(Now, "dd/mm/yyyy") 'Insertion Date du jour
     End If
     Next
End Sub

Avec cette fonction on pourrait envisager ta première demande, peut-être...

 

Dernière édition: 27 Juillet 2010

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Juillet 2010

• #13

Re : affecter macro à "Alt + clic gauche"

Bonjour,

Reste un problème alors: Comment limiter cette action à la colonne "I" uniquement ?

Cliquez pour agrandir...

utilise le code que je t'ai donné dans le post 7 appliquée à ta variable "Cellule"...

bonne journée
@+

 

Vote positif 0 Vote négatif

H

Halffy

XLDnaute Occasionnel

• 27 Juillet 2010

• #14

Re : affecter macro à "Alt + clic gauche"

re,
Tototiti2008: Si j'applique te solution, la macro ne détecte plus la touche "CTRL" 🙁
Pierrot93: Peux-tu être plus explicite s'il te plait,car j'ai éssayé de faire ce que tu me demandes avant de poster, sans plus de résultat 😱
Je précise que la fonction "GetAsyncKeyState" a été trouver sur le Net; vu mon petit niveau VBA, je n'aurais pu créer cette fonction tout seul.

Rectification Tototiti2008: apparemment il n'y a pas de problème, je re-regarde de plus près...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Juillet 2010

• #15

Re : affecter macro à "Alt + clic gauche"

Re,

désolé ton code est trop fort pour moi, je ne fréquente pas trop les "API windows"

 

Vote positif 0 Vote négatif