Discussion :

[alive85]

Bonjour !
Existe-t-il une solution pour déclencher un code (en l'occurence, activer une feuille) en faisant Ctrl + clic gauche sur une checkbox contenue dans un UF ? (le clic gauche tout seul effectue déjà une action).
J'ai déjà cherché du coté de "application.onkey" avec le ^ pour la touche contrôle, mais je ne trouve pas comment y ajouter le clic gauche.
Merci

[Philippe Tulliez]

Bonjour,
J'avoue ne pas comprendre pourquoi complexifier ce qui peut-être simple.
Il est parfaitement possible d'enclencher une procédure en cochant le CheckBox

Exemple pour deux procédures enclenchées suivant la valeur du CheckBox

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CheckBox1_Click()
   With Me.CheckBox1
     If .Value Then
        MsgBox "Lancer la procédure avec " & .Value
      Else
        MsgBox "Lancer la procédure avec " & .Value
     End If
   End With
End Sub

[alive85]

en fait, j'ai une trentaine de checkboxes et chacune quand elle est cochée fait que la page y faisant référence est visible (sinon elle est "xlSheetVeryHidden"). Je voulais pouvoir atteindre cette page en faisant simplement un Ctrl + clic sur la checkbox voulue, sans en changer la valeur.

[Phil Free]

Bonjour,

ici : https://www.developpez.net/forums/d2.../#post11263333
tu trouveras un bout de code dans le quel tu trouveras une méthode de détection des touches contrôles.

regarde en particulier la fonction "CtrlKeyState"

Edit: une petite précision, j'utilise beaucoup la détection de touche pour passer un fichier en version admin cela évite de gérer des droits et vu que c'est par les API même si l'utilisateur lambda regarde les macros il aura peu de chance de comprendre que un clique + une combinaison de touches donne les droits admin sur le fichier.

[Philippe Tulliez]

Bonjour,
Il existe d'autres procédures événementielles liées au CheckBox à utiliser pour sélectionner la feuille mais avec plus de tente CheckBox, il vaudrait mieux passer par un module de classe