Bonjour Tendasque,
Question floue !
La procédure EssaiChrono est-elle dans un module standard ?
Que contient ta procédure comme code ?
Application.OnKey "{End}", "essaichrono"
"Tendasque" <unss34(a_enlever)@free.fr> a écrit dans le message de groupe
de discussion :
#
Bonjour,
Je gère une course avec un fichier Excel.
Le clic sur un bouton démarre le chrono et affiche un userform qui affiche
le chrono
extrait du code:
Do While Not fin
UserForm3.Label1.Caption = Format((Timer() - départ) / 3600 / 24,
"nn:ss")
DoEvents
Loop
Le clic sur un autre bouton correspond à une arrivée: en colonne D
s'affiche
le temps du coureur
j'ai pris la précaution de mettre la propriété ShowModal du Userform à
False
pour pouvoir saisir des valeurs dans la feuille (dossards arrivés)
Tout cela fonctionne bien, mais je voudrais remplacer le clic sur le
bouton
d'arrivée par l'appui sur une touche; j'ai donc mis dans le code de
Private Sub Workbook_Open()
Application.OnKey "{End}", "essaichrono"
(j'ai essayé aussi dans le code de la feuille en Activate)
la macro essaichrono valide le temps.
le pb c'est que quand le userform est affiché et le chrono en route, vba
semble occupé et l'appui sur End ne déclenche rien; quand j'arrête le
chrono, l'appui sur End valide bien une arrivée.
Pouvez-vous me venir en aide ?
Merci
Bonjour Tendasque,
Question floue !
La procédure EssaiChrono est-elle dans un module standard ?
Que contient ta procédure comme code ?
Application.OnKey "{End}", "essaichrono"
"Tendasque" <unss34(a_enlever)@free.fr> a écrit dans le message de groupe
de discussion :
#INbofASKHA.3876@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je gère une course avec un fichier Excel.
Le clic sur un bouton démarre le chrono et affiche un userform qui affiche
le chrono
extrait du code:
Do While Not fin
UserForm3.Label1.Caption = Format((Timer() - départ) / 3600 / 24,
"nn:ss")
DoEvents
Loop
Le clic sur un autre bouton correspond à une arrivée: en colonne D
s'affiche
le temps du coureur
j'ai pris la précaution de mettre la propriété ShowModal du Userform à
False
pour pouvoir saisir des valeurs dans la feuille (dossards arrivés)
Tout cela fonctionne bien, mais je voudrais remplacer le clic sur le
bouton
d'arrivée par l'appui sur une touche; j'ai donc mis dans le code de
Private Sub Workbook_Open()
Application.OnKey "{End}", "essaichrono"
(j'ai essayé aussi dans le code de la feuille en Activate)
la macro essaichrono valide le temps.
le pb c'est que quand le userform est affiché et le chrono en route, vba
semble occupé et l'appui sur End ne déclenche rien; quand j'arrête le
chrono, l'appui sur End valide bien une arrivée.
Pouvez-vous me venir en aide ?
Merci
Bonjour Tendasque,
Question floue !
La procédure EssaiChrono est-elle dans un module standard ?
Que contient ta procédure comme code ?
Application.OnKey "{End}", "essaichrono"
"Tendasque" <unss34(a_enlever)@free.fr> a écrit dans le message de groupe
de discussion :
#
Bonjour,
Je gère une course avec un fichier Excel.
Le clic sur un bouton démarre le chrono et affiche un userform qui affiche
le chrono
extrait du code:
Do While Not fin
UserForm3.Label1.Caption = Format((Timer() - départ) / 3600 / 24,
"nn:ss")
DoEvents
Loop
Le clic sur un autre bouton correspond à une arrivée: en colonne D
s'affiche
le temps du coureur
j'ai pris la précaution de mettre la propriété ShowModal du Userform à
False
pour pouvoir saisir des valeurs dans la feuille (dossards arrivés)
Tout cela fonctionne bien, mais je voudrais remplacer le clic sur le
bouton
d'arrivée par l'appui sur une touche; j'ai donc mis dans le code de
Private Sub Workbook_Open()
Application.OnKey "{End}", "essaichrono"
(j'ai essayé aussi dans le code de la feuille en Activate)
la macro essaichrono valide le temps.
le pb c'est que quand le userform est affiché et le chrono en route, vba
semble occupé et l'appui sur End ne déclenche rien; quand j'arrête le
chrono, l'appui sur End valide bien une arrivée.
Pouvez-vous me venir en aide ?
Merci
Bonjour Tendasque,
Question floue !
La procédure EssaiChrono est-elle dans un module standard ?
Que contient ta procédure comme code ?
Application.OnKey "{End}", "essaichrono"
"Tendasque" <unss34(a_enlever)@free.fr> a écrit dans le message de groupe
de discussion :
#
Bonjour,
Je gère une course avec un fichier Excel.
Le clic sur un bouton démarre le chrono et affiche un userform qui affiche
le chrono
extrait du code:
Do While Not fin
UserForm3.Label1.Caption = Format((Timer() - départ) / 3600 / 24,
"nn:ss")
DoEvents
Loop
Le clic sur un autre bouton correspond à une arrivée: en colonne D
s'affiche
le temps du coureur
j'ai pris la précaution de mettre la propriété ShowModal du Userform à
False
pour pouvoir saisir des valeurs dans la feuille (dossards arrivés)
Tout cela fonctionne bien, mais je voudrais remplacer le clic sur le
bouton
d'arrivée par l'appui sur une touche; j'ai donc mis dans le code de
Private Sub Workbook_Open()
Application.OnKey "{End}", "essaichrono"
(j'ai essayé aussi dans le code de la feuille en Activate)
la macro essaichrono valide le temps.
le pb c'est que quand le userform est affiché et le chrono en route, vba
semble occupé et l'appui sur End ne déclenche rien; quand j'arrête le
chrono, l'appui sur End valide bien une arrivée.
Pouvez-vous me venir en aide ?
Merci
Bonjour Tendasque,
Question floue !
La procédure EssaiChrono est-elle dans un module standard ?
Que contient ta procédure comme code ?
Application.OnKey "{End}", "essaichrono"
"Tendasque" <unss34(a_enlever)@free.fr> a écrit dans le message de groupe
de discussion :
#INbofASKHA.3876@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je gère une course avec un fichier Excel.
Le clic sur un bouton démarre le chrono et affiche un userform qui affiche
le chrono
extrait du code:
Do While Not fin
UserForm3.Label1.Caption = Format((Timer() - départ) / 3600 / 24,
"nn:ss")
DoEvents
Loop
Le clic sur un autre bouton correspond à une arrivée: en colonne D
s'affiche
le temps du coureur
j'ai pris la précaution de mettre la propriété ShowModal du Userform à
False
pour pouvoir saisir des valeurs dans la feuille (dossards arrivés)
Tout cela fonctionne bien, mais je voudrais remplacer le clic sur le
bouton
d'arrivée par l'appui sur une touche; j'ai donc mis dans le code de
Private Sub Workbook_Open()
Application.OnKey "{End}", "essaichrono"
(j'ai essayé aussi dans le code de la feuille en Activate)
la macro essaichrono valide le temps.
le pb c'est que quand le userform est affiché et le chrono en route, vba
semble occupé et l'appui sur End ne déclenche rien; quand j'arrête le
chrono, l'appui sur End valide bien une arrivée.
Pouvez-vous me venir en aide ?
Merci
Bonjour Tendasque,
Question floue !
La procédure EssaiChrono est-elle dans un module standard ?
Que contient ta procédure comme code ?
Application.OnKey "{End}", "essaichrono"
"Tendasque" <unss34(a_enlever)@free.fr> a écrit dans le message de groupe
de discussion :
#
Bonjour,
Je gère une course avec un fichier Excel.
Le clic sur un bouton démarre le chrono et affiche un userform qui affiche
le chrono
extrait du code:
Do While Not fin
UserForm3.Label1.Caption = Format((Timer() - départ) / 3600 / 24,
"nn:ss")
DoEvents
Loop
Le clic sur un autre bouton correspond à une arrivée: en colonne D
s'affiche
le temps du coureur
j'ai pris la précaution de mettre la propriété ShowModal du Userform à
False
pour pouvoir saisir des valeurs dans la feuille (dossards arrivés)
Tout cela fonctionne bien, mais je voudrais remplacer le clic sur le
bouton
d'arrivée par l'appui sur une touche; j'ai donc mis dans le code de
Private Sub Workbook_Open()
Application.OnKey "{End}", "essaichrono"
(j'ai essayé aussi dans le code de la feuille en Activate)
la macro essaichrono valide le temps.
le pb c'est que quand le userform est affiché et le chrono en route, vba
semble occupé et l'appui sur End ne déclenche rien; quand j'arrête le
chrono, l'appui sur End valide bien une arrivée.
Pouvez-vous me venir en aide ?
Merci
Je vais essayer de préciser:
- la procédure EssaiChrono est dans un module standard
Sub essaichrono()
[A1000].End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Range("L1").Value
ActiveCell.Value = Range("L1").Value
End Sub
L1 contient la formule maintenant()
Si nécessaire, je peux poster mon fichier
Merci de ton aide
"michdenis" a écrit dans le message de news:Bonjour Tendasque,
Question floue !
La procédure EssaiChrono est-elle dans un module standard ?
Que contient ta procédure comme code ?
Application.OnKey "{End}", "essaichrono"
"Tendasque" <unss34(a_enlever)@free.fr> a écrit dans le message de groupe
de discussion :
#
Bonjour,
Je gère une course avec un fichier Excel.
Le clic sur un bouton démarre le chrono et affiche un userform qui
affiche
le chrono
extrait du code:
Do While Not fin
UserForm3.Label1.Caption = Format((Timer() - départ) / 3600 / 24,
"nn:ss")
DoEvents
Loop
Le clic sur un autre bouton correspond à une arrivée: en colonne D
s'affiche
le temps du coureur
j'ai pris la précaution de mettre la propriété ShowModal du Userform à
False
pour pouvoir saisir des valeurs dans la feuille (dossards arrivés)
Tout cela fonctionne bien, mais je voudrais remplacer le clic sur le
bouton
d'arrivée par l'appui sur une touche; j'ai donc mis dans le code de
Private Sub Workbook_Open()
Application.OnKey "{End}", "essaichrono"
(j'ai essayé aussi dans le code de la feuille en Activate)
la macro essaichrono valide le temps.
le pb c'est que quand le userform est affiché et le chrono en route, vba
semble occupé et l'appui sur End ne déclenche rien; quand j'arrête le
chrono, l'appui sur End valide bien une arrivée.
Pouvez-vous me venir en aide ?
Merci
Je vais essayer de préciser:
- la procédure EssaiChrono est dans un module standard
Sub essaichrono()
[A1000].End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Range("L1").Value
ActiveCell.Value = Range("L1").Value
End Sub
L1 contient la formule maintenant()
Si nécessaire, je peux poster mon fichier
Merci de ton aide
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
51523225-60BF-450E-A452-BC579A03A546@microsoft.com...
Bonjour Tendasque,
Question floue !
La procédure EssaiChrono est-elle dans un module standard ?
Que contient ta procédure comme code ?
Application.OnKey "{End}", "essaichrono"
"Tendasque" <unss34(a_enlever)@free.fr> a écrit dans le message de groupe
de discussion :
#INbofASKHA.3876@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je gère une course avec un fichier Excel.
Le clic sur un bouton démarre le chrono et affiche un userform qui
affiche
le chrono
extrait du code:
Do While Not fin
UserForm3.Label1.Caption = Format((Timer() - départ) / 3600 / 24,
"nn:ss")
DoEvents
Loop
Le clic sur un autre bouton correspond à une arrivée: en colonne D
s'affiche
le temps du coureur
j'ai pris la précaution de mettre la propriété ShowModal du Userform à
False
pour pouvoir saisir des valeurs dans la feuille (dossards arrivés)
Tout cela fonctionne bien, mais je voudrais remplacer le clic sur le
bouton
d'arrivée par l'appui sur une touche; j'ai donc mis dans le code de
Private Sub Workbook_Open()
Application.OnKey "{End}", "essaichrono"
(j'ai essayé aussi dans le code de la feuille en Activate)
la macro essaichrono valide le temps.
le pb c'est que quand le userform est affiché et le chrono en route, vba
semble occupé et l'appui sur End ne déclenche rien; quand j'arrête le
chrono, l'appui sur End valide bien une arrivée.
Pouvez-vous me venir en aide ?
Merci
Je vais essayer de préciser:
- la procédure EssaiChrono est dans un module standard
Sub essaichrono()
[A1000].End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Range("L1").Value
ActiveCell.Value = Range("L1").Value
End Sub
L1 contient la formule maintenant()
Si nécessaire, je peux poster mon fichier
Merci de ton aide
"michdenis" a écrit dans le message de news:Bonjour Tendasque,
Question floue !
La procédure EssaiChrono est-elle dans un module standard ?
Que contient ta procédure comme code ?
Application.OnKey "{End}", "essaichrono"
"Tendasque" <unss34(a_enlever)@free.fr> a écrit dans le message de groupe
de discussion :
#
Bonjour,
Je gère une course avec un fichier Excel.
Le clic sur un bouton démarre le chrono et affiche un userform qui
affiche
le chrono
extrait du code:
Do While Not fin
UserForm3.Label1.Caption = Format((Timer() - départ) / 3600 / 24,
"nn:ss")
DoEvents
Loop
Le clic sur un autre bouton correspond à une arrivée: en colonne D
s'affiche
le temps du coureur
j'ai pris la précaution de mettre la propriété ShowModal du Userform à
False
pour pouvoir saisir des valeurs dans la feuille (dossards arrivés)
Tout cela fonctionne bien, mais je voudrais remplacer le clic sur le
bouton
d'arrivée par l'appui sur une touche; j'ai donc mis dans le code de
Private Sub Workbook_Open()
Application.OnKey "{End}", "essaichrono"
(j'ai essayé aussi dans le code de la feuille en Activate)
la macro essaichrono valide le temps.
le pb c'est que quand le userform est affiché et le chrono en route, vba
semble occupé et l'appui sur End ne déclenche rien; quand j'arrête le
chrono, l'appui sur End valide bien une arrivée.
Pouvez-vous me venir en aide ?
Merci
Voici un lien vers le fichier:
http://www.cijoint.fr/cjlink.php?file=cj200910/cijD8KNI6Y.xls
pour y voir plus clair:
- les Userforms s'affichent à l'ouverture
- le clic sur Dep du Userform2 (Départ -Erreurs à l'arrivée) lance le
chrono
- le clic sur Arrivée saisit une arrivée
- l'appui sur la touche clavier Fin devrait faire de même... mais ne
fonctionne que si le Userform3 (chrono) est arrêté
"Tendasque" <unss34(a_enlever)@free.fr> a écrit dans le message de news:Je vais essayer de préciser:
- la procédure EssaiChrono est dans un module standard
Sub essaichrono()
[A1000].End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Range("L1").Value
ActiveCell.Value = Range("L1").Value
End Sub
L1 contient la formule maintenant()
Si nécessaire, je peux poster mon fichier
Merci de ton aide
"michdenis" a écrit dans le message de news:Bonjour Tendasque,
Question floue !
La procédure EssaiChrono est-elle dans un module standard ?
Que contient ta procédure comme code ?
Application.OnKey "{End}", "essaichrono"
"Tendasque" <unss34(a_enlever)@free.fr> a écrit dans le message de
groupe de discussion :
#
Bonjour,
Je gère une course avec un fichier Excel.
Le clic sur un bouton démarre le chrono et affiche un userform qui
affiche
le chrono
extrait du code:
Do While Not fin
UserForm3.Label1.Caption = Format((Timer() - départ) / 3600 / 24,
"nn:ss")
DoEvents
Loop
Le clic sur un autre bouton correspond à une arrivée: en colonne D
s'affiche
le temps du coureur
j'ai pris la précaution de mettre la propriété ShowModal du Userform à
False
pour pouvoir saisir des valeurs dans la feuille (dossards arrivés)
Tout cela fonctionne bien, mais je voudrais remplacer le clic sur le
bouton
d'arrivée par l'appui sur une touche; j'ai donc mis dans le code de
Private Sub Workbook_Open()
Application.OnKey "{End}", "essaichrono"
(j'ai essayé aussi dans le code de la feuille en Activate)
la macro essaichrono valide le temps.
le pb c'est que quand le userform est affiché et le chrono en route, vba
semble occupé et l'appui sur End ne déclenche rien; quand j'arrête le
chrono, l'appui sur End valide bien une arrivée.
Pouvez-vous me venir en aide ?
Merci
Voici un lien vers le fichier:
http://www.cijoint.fr/cjlink.php?file=cj200910/cijD8KNI6Y.xls
pour y voir plus clair:
- les Userforms s'affichent à l'ouverture
- le clic sur Dep du Userform2 (Départ -Erreurs à l'arrivée) lance le
chrono
- le clic sur Arrivée saisit une arrivée
- l'appui sur la touche clavier Fin devrait faire de même... mais ne
fonctionne que si le Userform3 (chrono) est arrêté
"Tendasque" <unss34(a_enlever)@free.fr> a écrit dans le message de news:
uGXG0aBSKHA.4020@TK2MSFTNGP05.phx.gbl...
Je vais essayer de préciser:
- la procédure EssaiChrono est dans un module standard
Sub essaichrono()
[A1000].End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Range("L1").Value
ActiveCell.Value = Range("L1").Value
End Sub
L1 contient la formule maintenant()
Si nécessaire, je peux poster mon fichier
Merci de ton aide
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
51523225-60BF-450E-A452-BC579A03A546@microsoft.com...
Bonjour Tendasque,
Question floue !
La procédure EssaiChrono est-elle dans un module standard ?
Que contient ta procédure comme code ?
Application.OnKey "{End}", "essaichrono"
"Tendasque" <unss34(a_enlever)@free.fr> a écrit dans le message de
groupe de discussion :
#INbofASKHA.3876@TK2MSFTNGP06.phx.gbl...
Bonjour,
Je gère une course avec un fichier Excel.
Le clic sur un bouton démarre le chrono et affiche un userform qui
affiche
le chrono
extrait du code:
Do While Not fin
UserForm3.Label1.Caption = Format((Timer() - départ) / 3600 / 24,
"nn:ss")
DoEvents
Loop
Le clic sur un autre bouton correspond à une arrivée: en colonne D
s'affiche
le temps du coureur
j'ai pris la précaution de mettre la propriété ShowModal du Userform à
False
pour pouvoir saisir des valeurs dans la feuille (dossards arrivés)
Tout cela fonctionne bien, mais je voudrais remplacer le clic sur le
bouton
d'arrivée par l'appui sur une touche; j'ai donc mis dans le code de
Private Sub Workbook_Open()
Application.OnKey "{End}", "essaichrono"
(j'ai essayé aussi dans le code de la feuille en Activate)
la macro essaichrono valide le temps.
le pb c'est que quand le userform est affiché et le chrono en route, vba
semble occupé et l'appui sur End ne déclenche rien; quand j'arrête le
chrono, l'appui sur End valide bien une arrivée.
Pouvez-vous me venir en aide ?
Merci
Voici un lien vers le fichier:
http://www.cijoint.fr/cjlink.php?file=cj200910/cijD8KNI6Y.xls
pour y voir plus clair:
- les Userforms s'affichent à l'ouverture
- le clic sur Dep du Userform2 (Départ -Erreurs à l'arrivée) lance le
chrono
- le clic sur Arrivée saisit une arrivée
- l'appui sur la touche clavier Fin devrait faire de même... mais ne
fonctionne que si le Userform3 (chrono) est arrêté
"Tendasque" <unss34(a_enlever)@free.fr> a écrit dans le message de news:Je vais essayer de préciser:
- la procédure EssaiChrono est dans un module standard
Sub essaichrono()
[A1000].End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Range("L1").Value
ActiveCell.Value = Range("L1").Value
End Sub
L1 contient la formule maintenant()
Si nécessaire, je peux poster mon fichier
Merci de ton aide
"michdenis" a écrit dans le message de news:Bonjour Tendasque,
Question floue !
La procédure EssaiChrono est-elle dans un module standard ?
Que contient ta procédure comme code ?
Application.OnKey "{End}", "essaichrono"
"Tendasque" <unss34(a_enlever)@free.fr> a écrit dans le message de
groupe de discussion :
#
Bonjour,
Je gère une course avec un fichier Excel.
Le clic sur un bouton démarre le chrono et affiche un userform qui
affiche
le chrono
extrait du code:
Do While Not fin
UserForm3.Label1.Caption = Format((Timer() - départ) / 3600 / 24,
"nn:ss")
DoEvents
Loop
Le clic sur un autre bouton correspond à une arrivée: en colonne D
s'affiche
le temps du coureur
j'ai pris la précaution de mettre la propriété ShowModal du Userform à
False
pour pouvoir saisir des valeurs dans la feuille (dossards arrivés)
Tout cela fonctionne bien, mais je voudrais remplacer le clic sur le
bouton
d'arrivée par l'appui sur une touche; j'ai donc mis dans le code de
Private Sub Workbook_Open()
Application.OnKey "{End}", "essaichrono"
(j'ai essayé aussi dans le code de la feuille en Activate)
la macro essaichrono valide le temps.
le pb c'est que quand le userform est affiché et le chrono en route, vba
semble occupé et l'appui sur End ne déclenche rien; quand j'arrête le
chrono, l'appui sur End valide bien une arrivée.
Pouvez-vous me venir en aide ?
Merci