Affecter touches aux 2 boutons d'un compteur

[Eric Dé]

Bonjour,

Je souhaiterais affecter deux touches du clavier (dans l'idéal flèche haut et flèche bas) aux deux boutons d'un compteur (le double bouton haut et bas).

Est-ce faisable ?

Merci pour vos réponse.

Eric

 

[camarchepas]

Re : Affecter touches aux 2 boutons d'un compteur

Oui , cela est faisable ,

avec un petit fichier en support , l'on pourrait t'en faire la démonstration

 

[phlaurent55]

Re : Affecter touches aux 2 boutons d'un compteur

Bonjour à tous,

voir fichier joint

les flèches haut et bas sont liées à la cellule A1 (par macro)
la toupie est également liée à la cellule A1 (voir format de contrôle)

la toupie n'est plus nécessaire

à+
Philippe

 

[camarchepas]

Re : Affecter touches aux 2 boutons d'un compteur

Bonjour ,

Mister 111, Alias Philippe, c'est droit la solution à laquelle je pensais .

en espérant qu'elle convienne à Eric

 

[phlaurent55]

Re : Affecter touches aux 2 boutons d'un compteur

Re,

un autre exemple avec fonctionnement des flèches sur plusieurs cellules (une seule à la fois)

à+
Philippe


Edit: Nouveau fichier avec fonctionnement normal des flèches en dehors des zones concernées

 

[Eric Dé]

Re : Affecter touches aux 2 boutons d'un compteur

Bonjour,

Merci pour vos réponses. C'est effectivement ce que je recherchais 🙂

Question : à quel endroit "affecter" cette macro pour qu'elle fonctionne uniquement avec une feuille donnée d'un classeur ?

Enfin, lorsque l'on quitte ce classeur, cette macro ne doit plus être en fonction.

Merci d'avance.
Eric

 

[camarchepas]

Re : Affecter touches aux 2 boutons d'un compteur

Bonjour Eric,

Et bien , en quittant une feuille il faut utiliser , l'évenementiel Désactivate

si par exemple tu utilise dans la feuil1 , clic droit sur l'onglet , visualiser le code et copier ceci

Private Sub Worksheet_Deactivate()
Application.OnKey "{up}"
Application.OnKey "{down}"
End Sub

si en sortie de classeur , dans le module Thisworkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{up}"
Application.OnKey "{down}"
End Sub

 

[phlaurent55]

Re : Affecter touches aux 2 boutons d'un compteur

Re-Bonjour

remplacer le code du fichier joint au post#5 par celui-ci

il suffit de modifier "nomdefichier" dans les 2 dernières Sub

Sub toupie()
If ActiveSheet.Name = ("Feuil1") Then
Application.OnKey "{up}", "plus" '  flèche haut
Application.OnKey "{down}", "moins" ' flèche bas
End If
End Sub


Sub plus()
On Error Resume Next
If ActiveWorkbook.Name = "nom du fichier" And ActiveSheet.Name = ("Feuil1") And ActiveCell.Row = 1 And ActiveCell.Column < 7 Then
ActiveCell = ActiveCell + 1
Else
ActiveCell.Offset(-1, 0).Select
End If
End Sub


Sub moins()
If ActiveWorkbook.Name = "nomdufichier" And ActiveSheet.Name = ("Feuil1") And ActiveCell.Row = 1 And ActiveCell.Column < 7 Then
ActiveCell = ActiveCell - 1
Else
ActiveCell.Offset(1, 0).Select
End If
End Sub

à+
Philippe