XL 2019 Utiliser simultanément une touche (Shift, Alt...) + double clic pour personnaliser une macro

Charly88

XLDnaute Occasionnel
Bonjour à tous,
Je déclenche un code en utilisant un double-clic et je voudrais l'enrichir en offrant la possibilité de combiner avec une touche de commandes.
Par ex : si double-click + Shift gauche pressé = résultat 1 ; si Shift droit pressé = résultat 2, etc.
Je n'ai pas beaucoup d'autres possibilités, CTRL bloque le double-click... Utiliser Shift et Alt serait très bien mais je n'arrive pas à trouver d'exemples simples sur le net.

Mon code actuel :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)

If Not Application.Intersect(Target, Application.Range("Niv1Crit1Val")) Is Nothing Then
CreaBddNiv1
end if
End Sub

Merci d'avance.
 

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
Bonjour Charly88, le forum

Ce que vous voulez faire va apporter beaucoup de complications à l'utilisation pour peu de gain, il serait beaucoup plus simple et viable d'utiliser un menu ajouté au bouton droit, des touches de raccourci ou un menu déclenché par le double clic.

Bien cordialement, @+
 

Charly88

XLDnaute Occasionnel
L'avantage que je vois c'est la vitesse, laquelle est essentielle pour cette appli qui actuellement se manipule exclusivement au double-clic.
J'utilise déjà une combinaison Clavier + Clic dans une autre (vieille) appli mixée à un Listview dans une USF. C'est redoutablement efficace mais je n'arrive pas à en faire une déclinaison pour interagir avec une simple feuille.

Si vous avez un exemple de ajouté au bouton droit ou des touches de raccourci, je vais creuser bien sûr.
 

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
re,

Après, si vous voulez vraiment double clic et combinaison de touches clavier, faites des raccourcis clavier initialisant une variable publique selon une valeur ref.
dans le code du double clic, exécutez le code en fonction de la valeur de la variable
mais ce sera plus rapide avec de simples raccourcis clavier sans double clic

Bien cordialement, @+
 

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
Re,

Il y a de multiples façons de faire mais il n'est pas possible de voir la solution ergonomique la mieux adaptée sans fichier exemple pour comprendre la façon de fonctionner de votre application et quelle serait la solution la plus rapide et pratique pour les utilisateurs.

Bien cordialement, @+
 

Statistiques des forums

Discussions
312 033
Messages
2 084 806
Membres
102 674
dernier inscrit
Eloels