bonjour CBernardT,
je serais interessee par ton fichier, mais mon pc me dit qu'il y a un virus et donc je ne peux l'ouvrir. Comme je suis sur mon lieu de travail, je ne peux desactiver l'antivirus, aurais tu un autre lien stp
merci
Votre post m'interesse beaucoup pour mon probleme, mais je n'arrive pas a l'adapter...
Je souhaite avoir en A1, une heure et qu'en B1, soit actualisé (toutes les secondes...) la difference avec l'heure actuel
A1 = 14h00
B1 = 'heure actuelle' - A1
je modifie donc le module comme ceci mais ca ne doit pas etre ca ...
Code:
Sub Temps()
DoEvents
With Sheets('Feuil1')
If .CommandButton1.Caption = 'ARRÊT' Then
[b].Range('B1') = Time - .Range('A1')[/b]
Application.OnTime Now + TimeValue('00:00:01'), 'Temps'
End If
End With
End Sub
Pour Chris, après ton alerte, j'ai passé mes disques durs au scan antivirus et je n'ai rien décelé ??? Je n'ai pas d'autre adresse à te donner.
Pour Guigui, je te joints un fichier qui décompte le temps.
En cellule A1 mettre l'heure finale du décompte et lancer la macro.
Attention : Saisir ou modifier les heures, minutes et secondes doit être effectué directement dans la barre de formule pour éviter de confondre avec les dates.
Cordialement
Bernard
[file name=ComptareboursV2.zip size=11672]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ComptareboursV2.zip[/file]
bonjour CBernardT,
merci d'avoir verifie pour le virus . Je n'arrive toujours pas a le lire sur mon PC du boulot, mais je vais demander a un collegue si lui peut ou alors ce soir chez moi B)
Cordialement