**Fonction click de souris**

[Micky]

Bonjour sait t'il comment je peux declencher une fonction temps en cliquant dans une cellule !

Merci a tous !!

Micky

 

[Pierre]

MIcky,

extrait de l'aide de vba

Timer, fonction, exemple
Cet exemple utilise la fonction Timer pour mettre l'application sur pause. Cet exemple utilise également la fonction DoEvents pour donner le contrôle à d'autres processus pendant la pause.

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Cliquez sur Oui pour effectuer une pause de 5 secondes", 4)) = vbYes Then
PauseTime = 5 ' Définit la durée.
Start = Timer ' Définit l'heure de début.
Do While Timer < Start + PauseTime
DoEvents ' Donne le contrôle à d'autres processus.
Loop
Finish = Timer ' Définit l'heure de fin.
TotalTime = Finish - Start ' Calcule la durée totale.
MsgBox "Pause de " & TotalTime & " seconde(s)"
Else
End
End If



Y'a plus qu'à l'adapter.

Bonne soirée.