Discussion :

[babybell]

Bonjour

J'ai cherché sur le forum sans trouver solution à mon problème.
Existe-t-il un moyen de détecter sous VBA si une touche quelconque a été appuyée, où si l'appuie sur le click droit, ou gauche ou la molette a été fait ? En bref, détecter si une quelconque action sur la feuille a été faite.

Merci de votre aide.

[Qwazerty]

Salut
Je n'ai pas Excel sous la main, mais si tu ouvres VBA et que tu regarde sur ThisWorkbook ou sur ta feuille directement (double clique) tu as une liste déroulante en haut a droite, dans cette liste tu as BeforClick, OnMouseMouve, OnKeyUp... (c'est peut etre pas les termes exact) si tu met du code dans ces evenement, le code sera réalié lors par exemple d'un clique dans une cellule (cas de BeforClick)
A++
Qwaz

[babybell]

Désolé, mais ceux qui apparaissent sont :

activate
beforedoubleclick
beforerightclick
calculate
change
deactivate
followhipperlinck
pivottableupdate

[ucfoutu]

Bonjour,

tu as mal cherché car tu aurais dû trouver, par exemple, Application.OnKey.
Laquelle ne te sert toutefois pas dans le cas qui t'intéresse, puisqu'elle détecte une touche à définir.
J'ignore, n'ayant pas excel sous la main, si d'autres choses du genre existent.
Si tel n'est pas le cas, il te faudra passer nécessairement par des fonctions de l'Api de Windows, en conjonction avec ... un timer !... (lourd, lourd..)
L'enjeu en vaut-il vraiment la chandelle ? . Pourquoi donc cherches-tu à faire celà ?

[babybell]

Car j'ai une macro qui me fait défiler un chronomètre

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
Sub timer_off()
Dim start, PauseTime
Dim S As Byte
    PauseTime = 600   ' Définit la durée.
    start = Timer    ' Définit l'heure de début.
    UserForm1.Show ([0])
    ActiveCell.Offset(0, 0).Activate
Do While Timer < start + PauseTime
        If S <> Second(Time) Then
            UserForm1.Label1.Caption = Format(100 * Int((start + PauseTime - Timer) / 60) + Int((start + PauseTime - Timer) Mod 60), "00:00")
            S = Second(Time)
        End If
    DoEvents    ' Donne le contrôle à d'autres processus.
Loop
End Sub

ce que je voudrais, c'est qu'en casd'appui sur une quelconque touche, le chronomètre se remette au début.
J'ai bien essayé avec

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CBX_Change()
ActiveCell = CBX.Value
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With CBX
timer_off
End With
End Sub

dans la feuille, mais quand j'ai validé une saisie, le chrono se remet bien au début et pour refaire une autre saisie, je suis oblgé de revalider la celluledans laquelle je veux aller, le userform a repris la main.
Ais-je été assez clair ?

[ucfoutu]

Clair, oui ...

Mais (dit mille fois) te servir d'une boucle avec la fonction Timer et DoEvents, le tout pendant 600 secondes, soit 10 minutes) est la meilleure méthode pour faire souffrir ton processeur !!!

Sers-toi plutôt de Application.Ontime (mais il ne réagira au mieux que toutes les secondes)

Ensuite : je t'ai parlé de Application.Onkey (qui t'éviterait ce mic-mac, à condition toutefois de définir la touche à presser.

Mais (une autre fois) : quel peut bien être l'utilité d'une telle manoeuvre ?