Cliquer plusieur fois pour faire un compte tour
Bonjour je suis professeur d'EPS
je suis entrain de construire un fichier excel pour de l'athlétisme (Demi-Fond)
j'ai déjà construit un chronomètre avec les macro départ, fin et remettre à zéro
mon problème est que je n'arrive pas à créer un programme qui me permet de cliquer sur un bouton "B8" (en forme de plot) à chaque fois que mon élève passe un cône et qui me donnerais les temps de course sur 50m en "I6" puis "I7" puis "I8" puis..... et ainsi de suite.
je suis novice en programmation, j'ai fouillé un peu mais je suis perdu.. si quelqu'un peu m'aider en me donnant l'astuce ou en me donnant le code merci d'avance!!
Bonjour,
un essai, à vous de voir et de comprendre...
Des pros du VBA ferait mieux encore...
Je pense qu'il y a une erreur de compréhension dans la syntaxe du code VBA, par exemple :
Cells() attend deux argument, le premier un numéro de ligne (ou variable faisant appel à un numéro de ligne), le deuxième un numéro de colonne (ou variable faisant appel à un numéro de colonne)
Donc quand vous écrivez :
Range("temps50m").Cells(compteur)
compteur seul, je pense, ne marche pas, tout comme Range("temps50m") car range attend en argument une adresse de cellule ou une série d'adresse d'une zone de cellule comme RAnge("A3") ou Range("I6:I23") ou Range("A3:a6,B7:B13")
Ces arguments peuvent être aussi des variables...
Encore de la distance à parcourir, vous êtes tout de même arrivé au premier plot et pas n'importe lequel, celui d'Excel-Pratique !
@ bientôt
LouReeD
Au Top!!!! (départ)
Merci beaucoup!
De rien.
Merci à vous pour votre retour !
@ bientôt
LouReeD
Rebonjour
LouReed
j'ai trouvé une erreur dans le code
en réalité il faudrait que la valeur B20 ne soit pas égale à la dernière cellule marqué dans la colonne "I"
mais que ça soit la somme des temps de la colonne "I"
du coup j'ai fait une macro pour récupérer la fonction somme correspondante
mais il y a encore une erreur
pouvez vous m'aider
voilà mon code
Private Sub Image2_Click()
'StopTimer
Cells(5 + compteur + 1, 9).Value = Range("B9").Value - Range("B20").Value ' en i6+compteur on met la valeur de la différence du chrono
Cells(5 + compteur + 1, 7).Value = compteur + 1
Range("B20").Value =SUM(R[-14]C[6]:R[80]C[6]) ' en B20 on met la dernière valeur inscrite en colonne I
compteur = compteur + 1 ' on incrémente le nombre de plot
J'ai essayé aussi Range ("B20").value=SUM("I6":"I100")
Bonsoir,
Ci-joint la correction...
Mais ne connaissant pas tout de votre projet...
Petite explication : Vous essayez de mettre :
Range ("B20").value=SUM("I6":"I100")hors si vous voulez écrire une formule dans une cellule il faut utiliser :
Range("B20").FormulaR1C1 =ensuite entre guillemet vous écrivez la formule...
d'où :
Range("B20").FormulaR1C1 = "=SUM(R[-14]C[7]:R[" & -14 + compteur & "]C[7])"où B20 = la cellule où va se trouver la formule
R[-14] = nombre de ligne séparant B20 de la première cellule de référence de la formule, nous c'est I6 donc 6 donc 6-20 = -14
C[7] = nombre de colonne séparant B20 de la colonne de référence de la formule, nous c'est I6 donc I donc 9 donc 9-2 = 7
Au fur et à mesure des clics sur le cône, la zone à additionner s'agrandie et nous trouvons la référence de la dernière ligne utilisée de la colonne I par : -14 (origine = première ligne) + compteur (nombre de clic sur le cône) donc au bout de 3 clic sur le cône on ira de I6n à I -14+2=-11 donc (20-11=9) donc I9 , mais pourquoi +2 alors que 3 clic ? car compteur commence à 0 donc on a bien clic 1 - compteur 0, clic 2 - compteur 1 et clic 3 - compteur 2.
Bref, pour moi il y a comme même une erreur car on arrive à des vitesses vertigineuses !!!!
@ bientôt
LouReeD