Modiffication d'un chrono du forum

[guy72]

Bonsoir à tous,
J'ai récupéré un fichier dans le forum fait par Vincent .
Je voudrais juste savoir si l'on peut le modifier ?
Je joins ce fichier pour mieux comprendre mon idée.
j'espère qu'il y auras quelqu'un pour m'aider ?



Cordialement
Guy

 

[SergiO]

Re : Modiffication d'un chrono du forum

Bonjour guy72,

Voici le fichier modifié avec les explications (assez claires je l'espère...)

@ bientôt

 

[ccpapy]

Re : Modiffication d'un chrono du forum

bonjour à tous
alors
1/ alt + F11 et tu arrives sur les pages contenant les codes des macros
2/ double clic sur feuil1 (feuil1) et là où il y a
If start.Caption = "Start" Then Cells(1, 1).ClearContents
tu changes le 2ème "1" (du Cell(1,1) "1" étant la colonne par une autre valeur exemple 5 pour la colonne E
3/ double clic sur module1 et pareil
Cells(1, 1) = Time - top le 2ème "1" à changer
4/ mettre ta cellule désirée en format personnalisé h.mm.ss
voilà j'espère avoir été assez clair 😉
à+ bonne soirée


edit : sergio, tu es plus rapide que moi...

 

[Gorfael]

Re : Modiffication d'un chrono du forum

Bonsoir à tous,
J'ai récupéré un fichier dans le forum fait par Vincent .
Je voudrais juste savoir si l'on peut le modifier ?
Je joins ce fichier pour mieux comprendre mon idée.
j'espère qu'il y auras quelqu'un pour m'aider ?



Cordialement
Guy

Salut à tous
Je viens mettre mon p'tit grain de cel, pardon de sel 😛
tu peux modifier le code de la feuille 1 ainsi

Private Sub CommandButton1_Click()
If start.Caption = "Start" Then Range("A1").ClearContents
End Sub

Private Sub start_Click()
If start.Caption = "Start" Then
    start.Caption = "Stop"
    top = Time
    Range("A1") = Time - top
    Application.OnTime DateAdd("s", 1, Time), "chrono"
    Else
    Application.OnTime DateAdd("s", 1, Time), "chrono", , False
    start.Caption = "Start"
End If
End Sub

donc il te suffit de remplacer "A1" par 'adresse e la cellule où tu veux que ça se passes "BD1" par exemple
pour trouver les macros à modifier : Clic-droit sur l'onglet>>visualiser le code

pour déplacer les boutons, Menu Affichage>>Barre d'outils>>Dessin
tu cliques sur la flèche blanche et tu sélectionnes les 2 boutons ensuite tu bouge ta souris jusqu'à ce qu'elle représente le symbole Windows de déplacement, et t'a plus qu'à les faire glisser où tu veux.
Quand c'est ok, tu déselectionnes la flèche de la barre d'outils, ou tu double-clic dans une cellule
A+

 

[ccpapy]

Re : Modiffication d'un chrono du forum

re-
c'est vrai, j'ai oublié les boutons...
gorfael, ce n'est pas dessin dans ce cas présent, mais boite à outils controle puis clic sur l'equerre apres tu peux deplacer où bon te semble.
puis reclic sur equerre.
à+

 

[guy72]

Re : Modiffication d'un chrono du forum

Bonsoir,
Merci à tous.
Toutes les solutions que vous avez trouvées sont bonnes.
Merci encore et bonne nuit.
Cordialement
Guy🙂

 

[guy72]

Re : Modiffication d'un chrono du forum

Bonjour,😉
Ce chrono me plaît bien.
Mais si j’osais, je voudrais améliorer le fonctionnement.
Aller j’ose.
1) A la place du bouton « Start » est il possible de faire démarrer le chrono en sélectionnant n’importe quelle cellule dans la plage( B2 : AT46 ).
2) A la place du bouton « Stop » est-il possible d’arrêter le chrono quant la cellule (par exemple) X1 contient le mot « Fin » (cellule ou j’ai mis une condition).
3) Est ce possible ?
Cela permettrait de ne pas oublier de démarrer ou d’arrêt le chrono.
Cordialement
Guy😱