Affecter un raccourci clavier à un compteur

[Eric Dé]

Bonjour,

J'utilise un compteur (double flèche haut et bas) pour faire défiler des données.

A chaque clic sur le compteur une macro liée se met en fonction.

Serait-il possible de remplacer le clic par un raccourci clavier ? ctrl + ... par exemple ou bien même d'affecter une touche de fonction F10, F11 ...

Merci d'avance pour vos propositions.

Eric

 

[job75]

Bonsoir Eric Dé,

Je suppose pour la suite que le compteur est un contrôle de formulaire.

Les macros de base dans Module1 :

Sub Monte()
'touches de raccourci Ctrl+M ou F10
With ActiveSheet.Shapes("Compteur 1").ControlFormat
    .Value = Application.Min(.Value + 1, .Max)
End With
End Sub

Sub Descend()
'touches de raccourci Ctrl+Maj+M ou Maj+F10
With ActiveSheet.Shapes("Compteur 1").ControlFormat
    .Value = Application.Max(.Value - 1, .Min)
End With
End Sub

Et dans ThisWorkbook :

Private Sub Workbook_Open()
Application.OnKey "{F10}", "Monte"
Application.OnKey "+{F10}", "Descend"
End Sub

Fichier joint.

A+

 

[Hervé]

Salut

je rajouterai bien un :

Private Sub Workbook_Deactivate()
Application.OnKey "{F10}"
End Sub

pour éviter les conflits entre fichier, non ?

a plus