Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Comptage de tours.

Comptage de tours.

12 réponses
Avatar
DB
Bonjour,
Dans le cadre d'une manifestation sportive de VTT, je souhaite développer un
classeur Excel me permettant de comptabiliser le nombre de tours effectués.
En clair, je voudrais, en tapant un numéro de dossard dans une cellule, que
cela incrémente le nombre de tours effectués du coureur en question, dans la
même feuille ou dans un autre feuille du classeur.
Quelqu'un a t il une idée de la manière dont construire ce truc là.
Merci à tous
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
RaMa
as tu crée un toggleButton?
si tu veux je t'envoie mon classeur

--
RaMa
"DB" <http://www.cerbermail.com/?4fs7Aj5xxN> a écrit dans le message de
news:
ça marche pas chez moi ! Bug ?

"RaMa" a écrit dans le message de
news:
re
tu peux améliorer en créant un toggleButton sur ta feuille
ça donnerait ça

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Enregistrement" & Chr(10) & "Activé"
Else
ToggleButton1.Caption = "Enregistrement" & Chr(10) & "Désactivé"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ColonneDossard
Dim Dossard_P, Dossard_D
'Dans l 'exemple ci-dessous les dossards vont de la ligne 2 à 29 en
colonneA

'en colonne B l'heure d'enregistrement du passage
'en colonne C le nombre de tours effectués
'***********************************************************************

'indique ci_après le numero de colonne des dossards ex:1 col A
ColonneDossard = 1
'indique ci_après le numero de ligne du premier dossard ex:ligne 2
Dossard_P = 2
'indique ci_après le numero de ligne du dernier dossard ex:ligne 29
Dossard_D = 29
If ToggleButton1.Value = True Then
If Target.Column = ColonneDossard And _
Target.Row >= Dossard_P And _
Target.Row <= Dossard_D And _
If Not IsEmpty(Target) Then
gg = Target.Offset(0, 1) + 0.0012
If Time > gg Or IsEmpty(Target.Offset(0, 1)) Then
Target.Offset(0, 1) = Time
Target.Offset(0, 2) = Target.Offset(0, 2) + 1
Else
MsgBox "rapide le mec !! il a triché je ne compte pas le tour"
End If
End If
End If
End Sub



--
RaMa
"DB" <http://www.cerbermail.com/?4fs7Aj5xxN> a écrit dans le message de
news:
Ok je viens de comprendre merci
"RaMa" a écrit dans le message de
news:
bonsoir
tu ne les saisis pas
tu les selectionnes en col A il sont déja pré- saisis
Si tu veux je te bal mon classeur
salutations


--
RaMa
"DB" <http://www.cerbermail.com/?4fs7Aj5xxN> a écrit dans le message
de



news:ut5B4$
Merci bien ton truc à l'air super mais je ne pige pas bien comment
s"effectue la saisie des dossards :-(
Je cherche encore
"RaMa" a écrit dans le message de
news:
Bonsoir

Je te propose ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ColonneDossard
Dim Dossard_P, Dossard_D
'Dans l 'exemple ci-dessous les dossards vont de la ligne 2 à 25
en





colonne
A
'en colonne B l'heure d'enregistrement du passage
'en colonne C le nombre de tours effectués





'***********************************************************************




'indique ci_après le numero de colonne des dossards ex:1 col A
ColonneDossard = 1
'indique ci_après le numero de ligne du premier dossard ex:ligne
2






Dossard_P = 2
'indique ci_après le numero de ligne du dernier dossard ex:ligne
25





Dossard_D = 25
If Target.Column = ColonneDossard And _
Target.Row > Dossard_P And _
Target.Row < Dossard_D Then
gg = Target.Offset(0, 1) + 0.0012
If Time > gg Or IsEmpty(Target.Offset(0, 1)) Then
Target.Offset(0, 1) = Time
Target.Offset(0, 2) = Target.Offset(0, 2) + 1
Else
MsgBox "rapide le mec !! il a triché je ne compte pas le tour"
End If
End If
End Sub

Salutations
RaMa
























Avatar
DB
Je veux bien, envoie moi ton classeur (didier.berrus at wanadoo.fr)
Toggle button ? je sais créer un bouton et y affecter une macro, mais est ce
bien ça ?

"RaMa" a écrit dans le message de
news:%
as tu crée un toggleButton?
si tu veux je t'envoie mon classeur

--
RaMa
"DB" <http://www.cerbermail.com/?4fs7Aj5xxN> a écrit dans le message de
news:
ça marche pas chez moi ! Bug ?

"RaMa" a écrit dans le message de
news:
re
tu peux améliorer en créant un toggleButton sur ta feuille
ça donnerait ça

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Enregistrement" & Chr(10) & "Activé"
Else
ToggleButton1.Caption = "Enregistrement" & Chr(10) & "Désactivé"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ColonneDossard
Dim Dossard_P, Dossard_D
'Dans l 'exemple ci-dessous les dossards vont de la ligne 2 à 29 en
colonneA

'en colonne B l'heure d'enregistrement du passage
'en colonne C le nombre de tours effectués

'***********************************************************************




'indique ci_après le numero de colonne des dossards ex:1 col A
ColonneDossard = 1
'indique ci_après le numero de ligne du premier dossard ex:ligne 2
Dossard_P = 2
'indique ci_après le numero de ligne du dernier dossard ex:ligne 29
Dossard_D = 29
If ToggleButton1.Value = True Then
If Target.Column = ColonneDossard And _
Target.Row >= Dossard_P And _
Target.Row <= Dossard_D And _
If Not IsEmpty(Target) Then
gg = Target.Offset(0, 1) + 0.0012
If Time > gg Or IsEmpty(Target.Offset(0, 1)) Then
Target.Offset(0, 1) = Time
Target.Offset(0, 2) = Target.Offset(0, 2) + 1
Else
MsgBox "rapide le mec !! il a triché je ne compte pas le tour"
End If
End If
End If
End Sub



--
RaMa
"DB" <http://www.cerbermail.com/?4fs7Aj5xxN> a écrit dans le message
de



news:
Ok je viens de comprendre merci
"RaMa" a écrit dans le message de
news:
bonsoir
tu ne les saisis pas
tu les selectionnes en col A il sont déja pré- saisis
Si tu veux je te bal mon classeur
salutations


--
RaMa
"DB" <http://www.cerbermail.com/?4fs7Aj5xxN> a écrit dans le
message





de
news:ut5B4$
Merci bien ton truc à l'air super mais je ne pige pas bien
comment






s"effectue la saisie des dossards :-(
Je cherche encore
"RaMa" a écrit dans le message de
news:
Bonsoir

Je te propose ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ColonneDossard
Dim Dossard_P, Dossard_D
'Dans l 'exemple ci-dessous les dossards vont de la ligne 2 à
25







en
colonne
A
'en colonne B l'heure d'enregistrement du passage
'en colonne C le nombre de tours effectués





'***********************************************************************




'indique ci_après le numero de colonne des dossards ex:1 col A
ColonneDossard = 1
'indique ci_après le numero de ligne du premier dossard
ex:ligne







2
Dossard_P = 2
'indique ci_après le numero de ligne du dernier dossard
ex:ligne







25
Dossard_D = 25
If Target.Column = ColonneDossard And _
Target.Row > Dossard_P And _
Target.Row < Dossard_D Then
gg = Target.Offset(0, 1) + 0.0012
If Time > gg Or IsEmpty(Target.Offset(0, 1)) Then
Target.Offset(0, 1) = Time
Target.Offset(0, 2) = Target.Offset(0, 2) + 1
Else
MsgBox "rapide le mec !! il a triché je ne compte pas le tour"
End If
End If
End Sub

Salutations
RaMa




























1 2