Discussion :

[tany2]

Bonjour à tous,

Supposons dans A1 une date.
j'aimerai avec les touches clavier + ou - que change la date d'une journée.
en VBA bien sûr mais je ne sais pas comment m'y prendre.
Merci de vos conseils ou liens si cela existe.
Bon dimanche.

[Daniel.C]

Bonjour,


Ajoute ces deux macros :

Code :

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

1
2
3
4
5
6
Sub PlusUn()
    [A1] = [A1] + 1
End Sub
Sub MoinsUn()
    [A1] = [A1] - 1
End Sub

Quand tu veux démarrer le processus, exécute :

Code :

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

1
2
3
4
Sub Début()
Application.OnKey "{RIGHT}", "PlusUn"
Application.OnKey "{LEFT}", "MoinsUn"
End Sub

Pour l'arrêter :

Code :

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

1
2
3
4
Sub Arrêt()
Application.OnKey "{RIGHT}"
Application.OnKey "{LEFT}"
End Sub