XL pour MAC Chronomètre avec temps intermédiaires VBA

sousou

XLDnaute Barbatruc

• 21 Octobre 2019

• #2

Bonjour
je pense que tu n'utilises pas correctement range
essaie ceci: initialisation de colonne à 2 et remplacement des range( )par des cells()
Sub chrono()
colonne = 2 'modification
Range("S4") = ""
Range("D14") = ""
Range("D15") = ""
Range("B4:Q4").ClearContents
depart = Timer
Application.EditDirectlyInCell = False
Do
Tempsfinal = Timer - depart
TpsInter = Tempsfinal / 86400
Range("D15").Value = TpsInter
Range("S4").Value = TpsInter
If Range("D15").Value = 1 Then GoTo fin
DoEvents
Loop Until Range("D14").Value = 1
fin:
End Sub
Sub Intermediaire()
tpsarret = Range("D15").Value 'modification
'If colonne = 2 Then a = Range("l" & colonne).Value Else a = Range("l" & colonne - 1).Value
Cells(4, colonne).Value = tpsarret
colonne = colonne + 1
End Sub

 

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 21 Octobre 2019

• #3

Bonsoir,

merci j'essaie et je reviens vers toi

 

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 22 Octobre 2019

• #4

bonjour Sousou, bonjour le forum

ton code fonctionne à merveille mais j'aurai besoin de 2 améliorations :

• lorsque que j'appuie sur STOP avant le 16 ème tour je souhaiterai que cette action soit combinée avec un dernier Lap autrement je n'ai pas le temps du dernier tour
• lorsque que je fais le LAP du 16ème tour que souhaiterai que cette action soit combinée au STOP car c'est la distance maximum et il me faut le temps total à cette instant

merci d'avance pour votre contribution

 

Pièces jointes

• Track XLD.xlsm

  22.7 KB · Affichages: 18

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 22 Octobre 2019

• #5

bonsoir
remplace comme ceci: si stop on ajoute in intermédiare, si dernir intermédiare on arrete
Sub Intermediaire()
tpsarret = Range("D15").Value 'modification
Cells(4, colonne).Value = tpsarret
colonne = colonne + 1
If colonne = 18 Then
Range("D14").Value = 1
Application.EditDirectlyInCell = True
End If
End Sub
Sub Arret()
Intermediaire
Range("D14").Value = 1
Application.EditDirectlyInCell = True
End Sub

 

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 22 Octobre 2019

• #6

Bonsoir Sousou,

le code est parfait mais son utilisation m'amène à une dernière demande :

j'aimerai avoir en cellule B17 le dernier lap.

Si ce n'est pas trop compliqué je suis preneur "d'une petite ligne de code".

merci d'avance

 

Pièces jointes

• Copie de Track XLD.xlsm

  22.8 KB · Affichages: 14

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 23 Octobre 2019

• #7

bonjour
N'est-ce pas ce que tu as?

 

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 23 Octobre 2019

• #8

sousou à dit:

bonjour
N'est-ce pas ce que tu as?

Cliquez pour agrandir...

Bonjour,

je me suis mal exprimé. Je voudrais que s'affiche le LAP du 1er tour, puis du 2ème, puis du 3ème..... le dernier Lap saisi au fur et à mesure.
En fin de compte ce qui s'affiche dans les cellules de B5 à Q5 (la dernière contenant une valeur)

En espérant avoir été plus clair

Merci

 

Dernière édition: 23 Octobre 2019

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 23 Octobre 2019

• #9

Dans ce cas le chrono ne s'afficherai plus?

 

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 23 Octobre 2019

• #10

Oui là je l'avais mis pour faire un essai de taille de police, mais ce qui m'importe au moment de l'utilisation c'est d'avoir le temps du dernier tour visible par le coureur à son passage

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 23 Octobre 2019

• #11

Voilà.
J'ai changé en plus le bouton départ par un toogleboutton1, pour mieux gérer le bouton stop
qui présentait un défaut si plusieurs click
il n'y a pas les coins arrondis

 

Pièces jointes

• Copie de Track XLD.xlsm

  25.2 KB · Affichages: 18

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 23 Octobre 2019

• #12

ma version ne prend pas en charge le tooglebutton

je vais essayer de remettre le bouton départ malgré le petit bug

Encore merci pour ton travail et ta réactivité

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 23 Octobre 2019

• #13

C'est vrai 'mac'
Une solution comme_ci

 

Pièces jointes

• Copie de Track XLD.xlsm

  22.7 KB · Affichages: 25

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 23 Octobre 2019

• #14

sousou à dit:

C'est vrai 'mac'
Une solution comme_ci

Cliquez pour agrandir...

Oui çà me plait bien comme solution.

Encore merci

 

Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué

• 23 Octobre 2019

• #15

Là je sens que je vais commencer à devenir c....
Mais dans la cellule B17, j'ai le temps cumulé alors qu'il me semblait que j'avais le dernier Lap (B5 à Q5) lors des tests ce matin...
J'ai regardé dans la version précédente mais çà me fait la même chose...

Vraiment désolé mais besoin d'un dernier petits coup de main

 

Vote positif 0 Vote négatif