Discussion :

[Milinou]

Bonjour,

Je cherche à créer une macro qui compte (et affiche dans une cellule) le nombre de fois où l'on a appuyé sur la touche Enter dans la session d'utilisation courante.
A priori je pensais utiliser une macro "qui écoute les événements".

J'ai pensé à une macro de ce genre, mais elle ne fonctionne pas et il manque certainement qq chose. Pourriez-vous m'aider SVP?

Merci d'avance

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Worksheets(1).Cells(2, 1).Value = Application.OnKey({ENTER}).Count
End Sub

[unparia]

Bonjour
as-tu eu le réflexe de consulter la rubrique Application.OnKey, méthode (puisque tu utilises cette méthode) ?
Il y est exposé que :

Cette méthode exécute une procédure spécifiée lorsque l'utilisateur appuie sur une touche ou une combinaison de touches.

Une incrémentation de ton compteur ne peut donc être envisagée qu'à chaque utilisation de ta touche Enter et ne saurait être un compte "in fine"
Pour satisfaire ma curiosité : quel est le propos (l'intérêt) d'un tel compte ?

[Milinou]

En fait, j'ai un peu amélioré mon code (qui était vraiment faux):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim countPressEnter As Integer 
countPressEnter = 0
 
Private Sub Workbook_Activate()
    Application.OnKey "{ENTER}", "countPressTime"
End Sub
 
Private Sub countPressTime()
    countPressEnter = countPressEnter + 1
    Application.OnKey "{ENTER}"
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Worksheets(1).Cells(1, 1).Value = countPressEnter
End Sub

Mais un des problèmes que je rencontre aussi avec ce code est que la touche Enter ne fait plus sa fonction initiale, à savoir d'aller à la ligne. Pourtant, je pensais que rajouter la ligne Application.OnKey "{ENTER}" remédiait à ce problème...

Merci pour votre aide!

[unparia]

Mais un des problèmes que je rencontre aussi avec ce code est que la touche Enter ne fait plus sa fonction initiale, à savoir d'aller à la ligne. Pourtant, je pensais que rajouter la ligne Application.OnKey "{ENTER}" remédiait à ce problème...

Ben oui. Et pour cause : tu as défini une autre action pour cette touche de raccourci.
Difficile d'avoir le beurre et l'argent du beurre. Je ne sais plus (trop vieux) qui chantait une chanson dont le refrain était à peu près "tu veux ou tu veux pas ? Si tu veux, tu veux, si tu veux pas, ... etc ...)
Et tout cela pourquoi ? (tu n'as pas répondu à cette question).

[Milinou]

C'est un exercice qui m'est demandé...

[Marc-L]

Bonjour,

oui c'est le genre d'exercice que l'on demande mais pas en VBA !
Sinon la présentation initiale n'est pas l'exact reflet de l'énoncé …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Milinou]

On me demande de le faire en VBA et vu mon niveau, ce n'est pas censé être trop compliqué, je crois

Pourriez-vous me donner des pistes ou me dire si/où vous avez repéré des erreurs svp?
Cela m'aiderait beaucoup

[unparia]

C'est un exercice qui m'est demandé...

je crois que l'essentiel a été dit là.
Bon exercice, donc.
Mon aide s'arrêtera à la suggestion de cette démarche :
1) mémoriser ce que fait normalement cette touche
2) en transformer la vocation (par Onkey)
3) rétablir la vocation originelle
Je n'irai pas au-delà. C'est ton exercice et ce sera ta note.