Chrono + saisie numéros avec 2 formules , sans VBA

Le
Michel PICHOU
Hello !
Je ne maîtrise pas VBA. J'ai 67 ans, une femme, des activités bénévoles, et
une agilité cérébrale dégressive !
Voilà pourquoi je reste sur ma frustration de ne pas oser " pousser la porte
" de VBA, de peur de me faire happer tout entier. Il y a donc longtemps que
je cherche une solution simple (sans VBA) pour saisir à l'arrivée d'une
course pédestre les n° de dossards et enregistrer simultanément les temps
(càd les heures d'horloge du PC correspondantes.
J'avais interrogé le Forum en sept 03, et Denis MARTIN m'avais envoyé un
classeur prêt à l'emploi avec MACRO programmée en VBA. Je l'avais remercié
et je le re-remercie ! Inconvénient de sa solution : Il faut valider la
saisie du n° par <Entrée> et Cliquer un bouton qui fige le temps d'horloge
(macro VBA). Trop long quand les coureurs arrivent en "troupeau" ! ! !
(pardon à eux !). Nous l'avons néanmoins utilisé cette année, comme chrono
seul (sans saisir les n°).
Alors voilà une solution (dont je devine qu'elle fera tiquer quelques-uns) :
Dans Excel 2000 / W98 :
TITRES : A1 : "N° dossards" - B1 : "Temps" - Pas de titre en colonne
C
FORMULES :
Dans C1 : =SI(ESTVIDE(A2);MAINTENANT();C1) et Copier-Coller C1 jusqu'à
au moins la ligne N+1 (pour "N" coureurs).
Dans B2 : -$C$1 et Copier-Coller B2 jusqu'à la même ligne que
ci-dessus.
ATTENTION ! : Les formules de la colonne C qui permettent de figer les
heures d'arrivé sont en coordonnées circulaires. Pour qu'elles soient
acceptées, il faut préalablement : Aller dans Barre des menus / Outils /
Options / Onglet "Calcul" et Cocher "Itération" (sans modifier le Nb max. et
l'Ecart max.) - Ceci autorise le calcul des coordonnées circulaires.
UTILISATION : - Avant le départ : Sélectionner la cellule C3, celle qui
recevra la saisie du n° du 1er arrivé.
- Faire [F9] lors du "top départ" de la course (ce qui place l'heure du
départ en C1).
- A chaque arrivée d'un coureur : Saisir son N° et valider aussitôt.
- Après le dernier coureur saisir un n° de fermeture (par ex. chiffre 0, ou
"Fin") et valider pour figer l'heure du dernier coureur.
INCONVENIENTS : Chaque heure (et donc le temps correspondant) n'est figé que
lors de la validation de la saisie du n° du coureur suivant, ce qui interdit
toute autre opération, Y COMPRIS DES ENREGISTREMENTS INTERMEDIAIRES en cours
de saisie des arrivées. Ce serait évidemment mieux que l'heure d'arrivée
d'un coureur soit figée par la validation de la saisie de son propre n° . -
Si quelqu'un sait comment ?
J'ai élaboré un classeur amélioré qui est beaucoup plus convivial et
sécurisé. Je le tiens à disposition, mais pour cela il faut que je sache
faire. C'est aujourd'hui la 2éme fois que j'entre dans le forum je suis
tout neuf.
La Nétiquette dit : "Si vous voulez proposer un classeur exemple aux
lecteurs intéressés,
offrez-leur de leur envoyer directement dans leur bal ou mettez-le en
téléchargement sur un site web quelconque."
Envoyer dans leur BAL, pas d'accord car le ne veux pas dévoiler la mienne
(pour cause virus). Je pose cette question séparément mais dans ce même
envoi sur le Forum : " Comment le mettre en téléchargement sur un site web
quelconque."
Merci d'avance pour vos réactions.





Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.665 / Virus Database: 428 - Release Date: 21/04/04
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #1390824
Bonjour Michel,

Copie ce code dans le module feuille où l'action se déroule. Pour ce faire, un clic droit sur l'onglet de la feuille et
dans le menu contextuel, choisir l'item "Visualiser le code". Dans la feuille blanche insère ceci :

Le principe : Au départ de la course, un clic sur le bouton, inscrira le temps de départ de la course.

La macro a été faite pour insérer le temps écoulé depuis le départ de la course dans la colonne C. Pour ce faire, tu
n'as qu'à inscrire la lettre x dans la cellule de la colonne c et la procédure va se charger d'insérer le temps
appropriée.

Dans ta feuille de données, insère un bouton de commande en provenance de la barre d'outils "Formulaire" et attache-lui
la macro suivante : "Départ"

'------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rg As Range
Set Rg = Intersect(Target, Range("c2:c65536"))
If Not Rg Is Nothing Then
Application.EnableEvents = False
For Each c In Rg
If UCase(c) = "X" Then
c.NumberFormat = "H:M:S"
c.Value = Time - Range("c1")
End If
Next
Application.EnableEvents = True
End If


End Sub
'------------------------
Sub Départ()

Range("C1") = Time

End Sub
'------------------------



Salutations!




"Michel PICHOU" Hello !
Je ne maîtrise pas VBA. J'ai 67 ans, une femme, des activités bénévoles, et
une agilité cérébrale dégressive !
Voilà pourquoi je reste sur ma frustration de ne pas oser " pousser la porte
" de VBA, de peur de me faire happer tout entier. Il y a donc longtemps que
je cherche une solution simple (sans VBA) pour saisir à l'arrivée d'une
course pédestre les n° de dossards et enregistrer simultanément les temps
(càd les heures d'horloge du PC correspondantes.
J'avais interrogé le Forum en sept 03, et Denis MARTIN m'avais envoyé un
classeur prêt à l'emploi avec MACRO programmée en VBA. Je l'avais remercié
et je le re-remercie ! Inconvénient de sa solution : Il faut valider la
saisie du n° par <Entrée> et Cliquer un bouton qui fige le temps d'horloge
(macro VBA). Trop long quand les coureurs arrivent en "troupeau" ! ! !
(pardon à eux !). Nous l'avons néanmoins utilisé cette année, comme chrono
seul (sans saisir les n°).
Alors voilà une solution (dont je devine qu'elle fera tiquer quelques-uns) :
Dans Excel 2000 / W98 :
TITRES : A1 : "N° dossards" - B1 : "Temps" - Pas de titre en colonne
C
FORMULES :
Dans C1 : =SI(ESTVIDE(A2);MAINTENANT();C1) et Copier-Coller C1 jusqu'à
au moins la ligne N+1 (pour "N" coureurs).
Dans B2 : Â-$C$1 et Copier-Coller B2 jusqu'à la même ligne que
ci-dessus.
ATTENTION ! : Les formules de la colonne C qui permettent de figer les
heures d'arrivé sont en coordonnées circulaires. Pour qu'elles soient
acceptées, il faut préalablement : Aller dans Barre des menus / Outils /
Options / Onglet "Calcul" et Cocher "Itération" (sans modifier le Nb max. et
l'Ecart max.) - Ceci autorise le calcul des coordonnées circulaires.
UTILISATION : - Avant le départ : Sélectionner la cellule C3, celle qui
recevra la saisie du n° du 1er arrivé.
- Faire [F9] lors du "top départ" de la course (ce qui place l'heure du
départ en C1).
- A chaque arrivée d'un coureur : Saisir son N° et valider aussitôt.
- Après le dernier coureur saisir un n° de fermeture (par ex. chiffre 0, ou
"Fin") et valider pour figer l'heure du dernier coureur.
INCONVENIENTS : Chaque heure (et donc le temps correspondant) n'est figé que
lors de la validation de la saisie du n° du coureur suivant, ce qui interdit
toute autre opération, Y COMPRIS DES ENREGISTREMENTS INTERMEDIAIRES en cours
de saisie des arrivées. Ce serait évidemment mieux que l'heure d'arrivée
d'un coureur soit figée par la validation de la saisie de son propre n° . -
Si quelqu'un sait comment ? ...
J'ai élaboré un classeur amélioré qui est beaucoup plus convivial et
sécurisé. Je le tiens à disposition, mais pour cela il faut que je sache
faire. C'est aujourd'hui la 2éme fois que j'entre dans le forum... je suis
tout neuf.
La Nétiquette dit : "Si vous voulez proposer un classeur exemple aux
lecteurs intéressés,
offrez-leur de leur envoyer directement dans leur bal ou mettez-le en
téléchargement sur un site web quelconque."
Envoyer dans leur BAL, pas d'accord car le ne veux pas dévoiler la mienne
(pour cause virus). Je pose cette question séparément mais dans ce même
envoi sur le Forum : " Comment le mettre en téléchargement sur un site web
quelconque."
Merci d'avance pour vos réactions.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.665 / Virus Database: 428 - Release Date: 21/04/04
Hugues
Le #1390324
Bonjour Michel,

J'ai une solution je pense assez rapide ou il suffit de
taper le N° de dossard suivi de "+"

Malheureusement cela s'appuie sur un formulaire et une
macro (toute petite)

Le principe de fonctionnement est le suivant
1) Avant l'arrivée des coureurs, lancer la macro qui
ouvre le formulaire
2) Quand un coureur arrive : taper le numéro de dossard
suivi de + (ex : 12+). Cela engendre 3 actions
automatiquement :
a) Inscription du numéro de dossard dans la cellule
courante
b) inscription de l'heure dans la celule d'à côté
c) déplacement du curseur dans la cellule en dessous

4) A la fin de la course, fermer le formulaire

Le fichier est prêt, mais je ne sais pas ou je peux le
mettre à dispo :(


-----Message d'origine-----
Hello !
Je ne maîtrise pas VBA. J'ai 67 ans, une femme, des
activités bénévoles, et

une agilité cérébrale dégressive !
Voilà pourquoi je reste sur ma frustration de ne pas
oser " pousser la porte

" de VBA, de peur de me faire happer tout entier. Il y a
donc longtemps que

je cherche une solution simple (sans VBA) pour saisir à
l'arrivée d'une

course pédestre les n° de dossards et enregistrer
simultanément les temps

(càd les heures d'horloge du PC correspondantes.
J'avais interrogé le Forum en sept 03, et Denis MARTIN
m'avais envoyé un

classeur prêt à l'emploi avec MACRO programmée en VBA.
Je l'avais remercié

et je le re-remercie ! Inconvénient de sa solution : Il
faut valider la

saisie du n° par <Entrée> et Cliquer un bouton qui fige
le temps d'horloge

(macro VBA). Trop long quand les coureurs arrivent
en "troupeau" ! ! !

(pardon à eux !). Nous l'avons néanmoins utilisé cette
année, comme chrono

seul (sans saisir les n°).
Alors voilà une solution (dont je devine qu'elle fera
tiquer quelques-uns) :

Dans Excel 2000 / W98 :
TITRES : A1 : "N° dossards" - B1 : "Temps" - Pas
de titre en colonne

C
FORMULES :
Dans C1 : =SI(ESTVIDE(A2);MAINTENANT();C1) et
Copier-Coller C1 jusqu'à

au moins la ligne N+1 (pour "N" coureurs).
Dans B2 : -$C$1 et Copier-Coller B2 jusqu'à
la même ligne que

ci-dessus.
ATTENTION ! : Les formules de la colonne C qui
permettent de figer les

heures d'arrivé sont en coordonnées circulaires. Pour
qu'elles soient

acceptées, il faut préalablement : Aller dans Barre des
menus / Outils /

Options / Onglet "Calcul" et Cocher "Itération" (sans
modifier le Nb max. et

l'Ecart max.) - Ceci autorise le calcul des coordonnées
circulaires.

UTILISATION : - Avant le départ : Sélectionner la
cellule C3, celle qui

recevra la saisie du n° du 1er arrivé.
- Faire [F9] lors du "top départ" de la course (ce qui
place l'heure du

départ en C1).
- A chaque arrivée d'un coureur : Saisir son N° et
valider aussitôt.

- Après le dernier coureur saisir un n° de fermeture
(par ex. chiffre 0, ou

"Fin") et valider pour figer l'heure du dernier coureur.
INCONVENIENTS : Chaque heure (et donc le temps
correspondant) n'est figé que

lors de la validation de la saisie du n° du coureur
suivant, ce qui interdit

toute autre opération, Y COMPRIS DES ENREGISTREMENTS
INTERMEDIAIRES en cours

de saisie des arrivées. Ce serait évidemment mieux que
l'heure d'arrivée

d'un coureur soit figée par la validation de la saisie
de son propre n° . -

Si quelqu'un sait comment ? ...
J'ai élaboré un classeur amélioré qui est beaucoup plus
convivial et

sécurisé. Je le tiens à disposition, mais pour cela il
faut que je sache

faire. C'est aujourd'hui la 2éme fois que j'entre dans
le forum... je suis

tout neuf.
La Nétiquette dit : "Si vous voulez proposer un classeur
exemple aux

lecteurs intéressés,
offrez-leur de leur envoyer directement dans leur bal ou
mettez-le en

téléchargement sur un site web quelconque."
Envoyer dans leur BAL, pas d'accord car le ne veux pas
dévoiler la mienne

(pour cause virus). Je pose cette question séparément
mais dans ce même

envoi sur le Forum : " Comment le mettre en
téléchargement sur un site web

quelconque."
Merci d'avance pour vos réactions.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system
(http://www.grisoft.com).

Version: 6.0.665 / Virus Database: 428 - Release Date:
21/04/04



.



guy
Le #1390312
Hugues,
Magnifique cela !
guy
"Hugues" news:9e1501c43443$aa38aa30$
Bonjour Michel,

J'ai une solution je pense assez rapide ou il suffit de
taper le N° de dossard suivi de "+"

Malheureusement cela s'appuie sur un formulaire et une
macro (toute petite)

Le principe de fonctionnement est le suivant
1) Avant l'arrivée des coureurs, lancer la macro qui
ouvre le formulaire
2) Quand un coureur arrive : taper le numéro de dossard
suivi de + (ex : 12+). Cela engendre 3 actions
automatiquement :
a) Inscription du numéro de dossard dans la cellule
courante
b) inscription de l'heure dans la celule d'à côté
c) déplacement du curseur dans la cellule en dessous

4) A la fin de la course, fermer le formulaire

Le fichier est prêt, mais je ne sais pas ou je peux le
mettre à dispo :(


-----Message d'origine-----
Hello !
Je ne maîtrise pas VBA. J'ai 67 ans, une femme, des
activités bénévoles, et

une agilité cérébrale dégressive !
Voilà pourquoi je reste sur ma frustration de ne pas
oser " pousser la porte

" de VBA, de peur de me faire happer tout entier. Il y a
donc longtemps que

je cherche une solution simple (sans VBA) pour saisir à
l'arrivée d'une

course pédestre les n° de dossards et enregistrer
simultanément les temps

(càd les heures d'horloge du PC correspondantes.
J'avais interrogé le Forum en sept 03, et Denis MARTIN
m'avais envoyé un

classeur prêt à l'emploi avec MACRO programmée en VBA.
Je l'avais remercié

et je le re-remercie ! Inconvénient de sa solution : Il
faut valider la

saisie du n° par <Entrée> et Cliquer un bouton qui fige
le temps d'horloge

(macro VBA). Trop long quand les coureurs arrivent
en "troupeau" ! ! !

(pardon à eux !). Nous l'avons néanmoins utilisé cette
année, comme chrono

seul (sans saisir les n°).
Alors voilà une solution (dont je devine qu'elle fera
tiquer quelques-uns) :

Dans Excel 2000 / W98 :
TITRES : A1 : "N° dossards" - B1 : "Temps" - Pas
de titre en colonne

C
FORMULES :
Dans C1 : =SI(ESTVIDE(A2);MAINTENANT();C1) et
Copier-Coller C1 jusqu'à

au moins la ligne N+1 (pour "N" coureurs).
Dans B2 : Â-$C$1 et Copier-Coller B2 jusqu'à
la même ligne que

ci-dessus.
ATTENTION ! : Les formules de la colonne C qui
permettent de figer les

heures d'arrivé sont en coordonnées circulaires. Pour
qu'elles soient

acceptées, il faut préalablement : Aller dans Barre des
menus / Outils /

Options / Onglet "Calcul" et Cocher "Itération" (sans
modifier le Nb max. et

l'Ecart max.) - Ceci autorise le calcul des coordonnées
circulaires.

UTILISATION : - Avant le départ : Sélectionner la
cellule C3, celle qui

recevra la saisie du n° du 1er arrivé.
- Faire [F9] lors du "top départ" de la course (ce qui
place l'heure du

départ en C1).
- A chaque arrivée d'un coureur : Saisir son N° et
valider aussitôt.

- Après le dernier coureur saisir un n° de fermeture
(par ex. chiffre 0, ou

"Fin") et valider pour figer l'heure du dernier coureur.
INCONVENIENTS : Chaque heure (et donc le temps
correspondant) n'est figé que

lors de la validation de la saisie du n° du coureur
suivant, ce qui interdit

toute autre opération, Y COMPRIS DES ENREGISTREMENTS
INTERMEDIAIRES en cours

de saisie des arrivées. Ce serait évidemment mieux que
l'heure d'arrivée

d'un coureur soit figée par la validation de la saisie
de son propre n° . -

Si quelqu'un sait comment ? ...
J'ai élaboré un classeur amélioré qui est beaucoup plus
convivial et

sécurisé. Je le tiens à disposition, mais pour cela il
faut que je sache

faire. C'est aujourd'hui la 2éme fois que j'entre dans
le forum... je suis

tout neuf.
La Nétiquette dit : "Si vous voulez proposer un classeur
exemple aux

lecteurs intéressés,
offrez-leur de leur envoyer directement dans leur bal ou
mettez-le en

téléchargement sur un site web quelconque."
Envoyer dans leur BAL, pas d'accord car le ne veux pas
dévoiler la mienne

(pour cause virus). Je pose cette question séparément
mais dans ce même

envoi sur le Forum : " Comment le mettre en
téléchargement sur un site web

quelconque."
Merci d'avance pour vos réactions.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system
(http://www.grisoft.com).

Version: 6.0.665 / Virus Database: 428 - Release Date:
21/04/04



.



Michel PICHOU
Le #1390311
Bonjour Hugues
Merci de ton ou votre attention (Je ne connais pas l'usage !)
Je peux recevoir le fichier sur :
Encore merci, ta proposition me paraît la plus digeste... (pour moi).
Cordialement

"Hugues" news: 9e1501c43443$aa38aa30$
Bonjour Michel,

J'ai une solution je pense assez rapide ou il suffit de
taper le N° de dossard suivi de "+"

Malheureusement cela s'appuie sur un formulaire et une
macro (toute petite)

Le principe de fonctionnement est le suivant
1) Avant l'arrivée des coureurs, lancer la macro qui
ouvre le formulaire
2) Quand un coureur arrive : taper le numéro de dossard
suivi de + (ex : 12+). Cela engendre 3 actions
automatiquement :
a) Inscription du numéro de dossard dans la cellule
courante
b) inscription de l'heure dans la celule d'à côté
c) déplacement du curseur dans la cellule en dessous

4) A la fin de la course, fermer le formulaire

Le fichier est prêt, mais je ne sais pas ou je peux le
mettre à dispo :(



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.665 / Virus Database: 428 - Release Date: 21/04/04
Publicité
Poster une réponse
Anonyme