Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,
Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne sur
mon
PC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne pas.
(PC
d'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujours
rien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je clique
sur
START et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cette
ligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limités
à un simple utilisateur.
Merci
Christophe B.
Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,
Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne sur
mon
PC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne pas.
(PC
d'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujours
rien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je clique
sur
START et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cette
ligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limités
à un simple utilisateur.
Merci
Christophe B.
Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,
Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne sur
mon
PC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne pas.
(PC
d'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujours
rien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je clique
sur
START et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cette
ligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limités
à un simple utilisateur.
Merci
Christophe B.
Bonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" a écrit dans le
message de news:Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne sur
monPC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne pas.
(PCd'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujoursrien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je clique
surSTART et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cetteligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limitésà un simple utilisateur.
Merci
Christophe B.
Bonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" <Astucemobile@discussions.microsoft.com> a écrit dans le
message de news: 10426F92-0EE1-425E-BB93-02FAC3C153B1@microsoft.com...
Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,
Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne sur
mon
PC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne pas.
(PC
d'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujours
rien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je clique
sur
START et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cette
ligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limités
à un simple utilisateur.
Merci
Christophe B.
Bonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" a écrit dans le
message de news:Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne sur
monPC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne pas.
(PCd'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujoursrien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je clique
surSTART et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cetteligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limitésà un simple utilisateur.
Merci
Christophe B.
Merci, mais y a t'il alors une autre solution ?
ChristopheBonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" a écrit dans le
message de news:Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne sur
monPC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne pas.
(PCd'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujoursrien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je clique
surSTART et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cetteligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limitésà un simple utilisateur.
Merci
Christophe B.
Merci, mais y a t'il alors une autre solution ?
Christophe
Bonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" <Astucemobile@discussions.microsoft.com> a écrit dans le
message de news: 10426F92-0EE1-425E-BB93-02FAC3C153B1@microsoft.com...
Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,
Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne sur
mon
PC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne pas.
(PC
d'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujours
rien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je clique
sur
START et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cette
ligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limités
à un simple utilisateur.
Merci
Christophe B.
Merci, mais y a t'il alors une autre solution ?
ChristopheBonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" a écrit dans le
message de news:Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne sur
monPC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne pas.
(PCd'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujoursrien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je clique
surSTART et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cetteligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limitésà un simple utilisateur.
Merci
Christophe B.
Bonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" a écrit dans le
message de news:Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne sur
monPC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne pas.
(PCd'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujoursrien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je clique
surSTART et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cetteligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limitésà un simple utilisateur.
Merci
Christophe B.
Bonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" <Astucemobile@discussions.microsoft.com> a écrit dans le
message de news: 10426F92-0EE1-425E-BB93-02FAC3C153B1@microsoft.com...
Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,
Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne sur
mon
PC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne pas.
(PC
d'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujours
rien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je clique
sur
START et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cette
ligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limités
à un simple utilisateur.
Merci
Christophe B.
Bonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" a écrit dans le
message de news:Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne sur
monPC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne pas.
(PCd'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujoursrien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je clique
surSTART et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cetteligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limitésà un simple utilisateur.
Merci
Christophe B.
Re Astucemobile;
Simplifie en utilisant la fonction Timer de Excel.
Dans ton module UserForm:
Option Explicit
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String _
, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" _
(ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private EnMarche As Boolean
Private Sub CommandButton1_Click()
Me.Repaint
If EnMarche Then Exit Sub
EnMarche = True
Call Chrono
End Sub
Private Sub CommandButton2_Click()
EnMarche = False
End Sub
Private Sub CommandButton3_Click()
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Initialize()
Dim hwnd&
hwnd = FindWindow(vbNullString, Application.Caption)
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Terminate()
EnMarche = False
Unload Me
End Sub
Private Sub Chrono()
Dim H As Single, DS As Byte, S As Single
1: DS = CByte(Me.Label2.Caption) + 1
UserForm1.Label2.Caption = DS
S = Timer + 1 / 10
While Timer < S: DoEvents: Wend
If (DS Mod 10) = 0 Then
H = TimeValue(Me.Label1.Caption) + TimeSerial(0, 0, 1)
Me.Label1.Caption = Format(H, "hh:mm:ss")
Me.Label2.Caption = "0"
End If
If EnMarche Then GoTo 1 Else Exit Sub
End Sub
Dans ton module standard:
Sub TestChrono()
#If VBA6 Then
UserForm1.Show 0
#Else
UserForm1.Show
#End If
End Sub
La fonction API EnableWindow permet de travailler dans la feuille avec
Excel97 avec lequel la propriété Modal est inconnue.
MP
"Michel Pierron" a écrit dans le message de news:
eb4$Bonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" a écrit dans le
message de news:Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne
sur
monPC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne
pas.
(PCd'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujoursrien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je
clique
surSTART et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cetteligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limitésà un simple utilisateur.
Merci
Christophe B.
Re Astucemobile;
Simplifie en utilisant la fonction Timer de Excel.
Dans ton module UserForm:
Option Explicit
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String _
, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" _
(ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private EnMarche As Boolean
Private Sub CommandButton1_Click()
Me.Repaint
If EnMarche Then Exit Sub
EnMarche = True
Call Chrono
End Sub
Private Sub CommandButton2_Click()
EnMarche = False
End Sub
Private Sub CommandButton3_Click()
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Initialize()
Dim hwnd&
hwnd = FindWindow(vbNullString, Application.Caption)
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Terminate()
EnMarche = False
Unload Me
End Sub
Private Sub Chrono()
Dim H As Single, DS As Byte, S As Single
1: DS = CByte(Me.Label2.Caption) + 1
UserForm1.Label2.Caption = DS
S = Timer + 1 / 10
While Timer < S: DoEvents: Wend
If (DS Mod 10) = 0 Then
H = TimeValue(Me.Label1.Caption) + TimeSerial(0, 0, 1)
Me.Label1.Caption = Format(H, "hh:mm:ss")
Me.Label2.Caption = "0"
End If
If EnMarche Then GoTo 1 Else Exit Sub
End Sub
Dans ton module standard:
Sub TestChrono()
#If VBA6 Then
UserForm1.Show 0
#Else
UserForm1.Show
#End If
End Sub
La fonction API EnableWindow permet de travailler dans la feuille avec
Excel97 avec lequel la propriété Modal est inconnue.
MP
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de news:
eb4$wWA9FHA.2816@tk2msftngp13.phx.gbl...
Bonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" <Astucemobile@discussions.microsoft.com> a écrit dans le
message de news: 10426F92-0EE1-425E-BB93-02FAC3C153B1@microsoft.com...
Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,
Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne
sur
mon
PC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne
pas.
(PC
d'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujours
rien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je
clique
sur
START et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cette
ligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limités
à un simple utilisateur.
Merci
Christophe B.
Re Astucemobile;
Simplifie en utilisant la fonction Timer de Excel.
Dans ton module UserForm:
Option Explicit
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String _
, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" _
(ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private EnMarche As Boolean
Private Sub CommandButton1_Click()
Me.Repaint
If EnMarche Then Exit Sub
EnMarche = True
Call Chrono
End Sub
Private Sub CommandButton2_Click()
EnMarche = False
End Sub
Private Sub CommandButton3_Click()
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Initialize()
Dim hwnd&
hwnd = FindWindow(vbNullString, Application.Caption)
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Terminate()
EnMarche = False
Unload Me
End Sub
Private Sub Chrono()
Dim H As Single, DS As Byte, S As Single
1: DS = CByte(Me.Label2.Caption) + 1
UserForm1.Label2.Caption = DS
S = Timer + 1 / 10
While Timer < S: DoEvents: Wend
If (DS Mod 10) = 0 Then
H = TimeValue(Me.Label1.Caption) + TimeSerial(0, 0, 1)
Me.Label1.Caption = Format(H, "hh:mm:ss")
Me.Label2.Caption = "0"
End If
If EnMarche Then GoTo 1 Else Exit Sub
End Sub
Dans ton module standard:
Sub TestChrono()
#If VBA6 Then
UserForm1.Show 0
#Else
UserForm1.Show
#End If
End Sub
La fonction API EnableWindow permet de travailler dans la feuille avec
Excel97 avec lequel la propriété Modal est inconnue.
MP
"Michel Pierron" a écrit dans le message de news:
eb4$Bonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" a écrit dans le
message de news:Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne
sur
monPC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne
pas.
(PCd'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujoursrien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je
clique
surSTART et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cetteligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limitésà un simple utilisateur.
Merci
Christophe B.
Re Astucemobile;
Je n'ai pas xl97, mais je crois qu'il serait préférable d'activer
l'application lors de l'affichage de l'UserForm comme suit:
Private Sub UserForm_Activate()
Dim hwnd&
hwnd = FindWindow(vbNullString, Application.Caption)
End Sub
MP
"Michel Pierron" a écrit dans le message de news:Re Astucemobile;
Simplifie en utilisant la fonction Timer de Excel.
Dans ton module UserForm:
Option Explicit
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String _
, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" _
(ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private EnMarche As Boolean
Private Sub CommandButton1_Click()
Me.Repaint
If EnMarche Then Exit Sub
EnMarche = True
Call Chrono
End Sub
Private Sub CommandButton2_Click()
EnMarche = False
End Sub
Private Sub CommandButton3_Click()
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Initialize()
Dim hwnd&
hwnd = FindWindow(vbNullString, Application.Caption)
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Terminate()
EnMarche = False
Unload Me
End Sub
Private Sub Chrono()
Dim H As Single, DS As Byte, S As Single
1: DS = CByte(Me.Label2.Caption) + 1
UserForm1.Label2.Caption = DS
S = Timer + 1 / 10
While Timer < S: DoEvents: Wend
If (DS Mod 10) = 0 Then
H = TimeValue(Me.Label1.Caption) + TimeSerial(0, 0, 1)
Me.Label1.Caption = Format(H, "hh:mm:ss")
Me.Label2.Caption = "0"
End If
If EnMarche Then GoTo 1 Else Exit Sub
End Sub
Dans ton module standard:
Sub TestChrono()
#If VBA6 Then
UserForm1.Show 0
#Else
UserForm1.Show
#End If
End Sub
La fonction API EnableWindow permet de travailler dans la feuille avec
Excel97 avec lequel la propriété Modal est inconnue.
MP
"Michel Pierron" a écrit dans le message de news:
eb4$Bonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" a écrit dans le
message de news:Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne
surmonPC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne
pas.(PCd'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujoursrien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je
cliquesurSTART et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cetteligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limitésà un simple utilisateur.
Merci
Christophe B.
Re Astucemobile;
Je n'ai pas xl97, mais je crois qu'il serait préférable d'activer
l'application lors de l'affichage de l'UserForm comme suit:
Private Sub UserForm_Activate()
Dim hwnd&
hwnd = FindWindow(vbNullString, Application.Caption)
End Sub
MP
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de news:
ua3BYCB9FHA.2816@tk2msftngp13.phx.gbl...
Re Astucemobile;
Simplifie en utilisant la fonction Timer de Excel.
Dans ton module UserForm:
Option Explicit
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String _
, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" _
(ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private EnMarche As Boolean
Private Sub CommandButton1_Click()
Me.Repaint
If EnMarche Then Exit Sub
EnMarche = True
Call Chrono
End Sub
Private Sub CommandButton2_Click()
EnMarche = False
End Sub
Private Sub CommandButton3_Click()
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Initialize()
Dim hwnd&
hwnd = FindWindow(vbNullString, Application.Caption)
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Terminate()
EnMarche = False
Unload Me
End Sub
Private Sub Chrono()
Dim H As Single, DS As Byte, S As Single
1: DS = CByte(Me.Label2.Caption) + 1
UserForm1.Label2.Caption = DS
S = Timer + 1 / 10
While Timer < S: DoEvents: Wend
If (DS Mod 10) = 0 Then
H = TimeValue(Me.Label1.Caption) + TimeSerial(0, 0, 1)
Me.Label1.Caption = Format(H, "hh:mm:ss")
Me.Label2.Caption = "0"
End If
If EnMarche Then GoTo 1 Else Exit Sub
End Sub
Dans ton module standard:
Sub TestChrono()
#If VBA6 Then
UserForm1.Show 0
#Else
UserForm1.Show
#End If
End Sub
La fonction API EnableWindow permet de travailler dans la feuille avec
Excel97 avec lequel la propriété Modal est inconnue.
MP
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de news:
eb4$wWA9FHA.2816@tk2msftngp13.phx.gbl...
Bonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" <Astucemobile@discussions.microsoft.com> a écrit dans le
message de news: 10426F92-0EE1-425E-BB93-02FAC3C153B1@microsoft.com...
Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,
Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne
sur
mon
PC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne
pas.
(PC
d'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujours
rien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je
clique
sur
START et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cette
ligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limités
à un simple utilisateur.
Merci
Christophe B.
Re Astucemobile;
Je n'ai pas xl97, mais je crois qu'il serait préférable d'activer
l'application lors de l'affichage de l'UserForm comme suit:
Private Sub UserForm_Activate()
Dim hwnd&
hwnd = FindWindow(vbNullString, Application.Caption)
End Sub
MP
"Michel Pierron" a écrit dans le message de news:Re Astucemobile;
Simplifie en utilisant la fonction Timer de Excel.
Dans ton module UserForm:
Option Explicit
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String _
, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" _
(ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private EnMarche As Boolean
Private Sub CommandButton1_Click()
Me.Repaint
If EnMarche Then Exit Sub
EnMarche = True
Call Chrono
End Sub
Private Sub CommandButton2_Click()
EnMarche = False
End Sub
Private Sub CommandButton3_Click()
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Initialize()
Dim hwnd&
hwnd = FindWindow(vbNullString, Application.Caption)
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Terminate()
EnMarche = False
Unload Me
End Sub
Private Sub Chrono()
Dim H As Single, DS As Byte, S As Single
1: DS = CByte(Me.Label2.Caption) + 1
UserForm1.Label2.Caption = DS
S = Timer + 1 / 10
While Timer < S: DoEvents: Wend
If (DS Mod 10) = 0 Then
H = TimeValue(Me.Label1.Caption) + TimeSerial(0, 0, 1)
Me.Label1.Caption = Format(H, "hh:mm:ss")
Me.Label2.Caption = "0"
End If
If EnMarche Then GoTo 1 Else Exit Sub
End Sub
Dans ton module standard:
Sub TestChrono()
#If VBA6 Then
UserForm1.Show 0
#Else
UserForm1.Show
#End If
End Sub
La fonction API EnableWindow permet de travailler dans la feuille avec
Excel97 avec lequel la propriété Modal est inconnue.
MP
"Michel Pierron" a écrit dans le message de news:
eb4$Bonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" a écrit dans le
message de news:Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat fonctionne
surmonPC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne fonctionne
pas.(PCd'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujoursrien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je
cliquesurSTART et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en surbrillance
cetteligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences sont
limitésà un simple utilisateur.
Merci
Christophe B.
Merci beaucoup car maintenant ça fonctionne PRESQUE bien !
Je dis presque parceque je n'arrive pas dans les propriétés de mon
Userform
à faire que mon chrono tourne et que je puisse en même temps naviguer et
utiliser mon classeur Excel.
Il existe bien la case ShowModal à mettre sur False, mais encore une fois
sir cette version d'excel 97, elle n'apparait pas...
Une solution à me proposer peut'être ?
Et merci encore pour l'aide TRES efficace.
ChristopheRe Astucemobile;
Je n'ai pas xl97, mais je crois qu'il serait préférable d'activer
l'application lors de l'affichage de l'UserForm comme suit:
Private Sub UserForm_Activate()
Dim hwnd&
hwnd = FindWindow(vbNullString, Application.Caption)
End Sub
MP
"Michel Pierron" a écrit dans le message de
news:
Re Astucemobile;
Simplifie en utilisant la fonction Timer de Excel.
Dans ton module UserForm:
Option Explicit
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String _
, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" _
(ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private EnMarche As Boolean
Private Sub CommandButton1_Click()
Me.Repaint
If EnMarche Then Exit Sub
EnMarche = True
Call Chrono
End Sub
Private Sub CommandButton2_Click()
EnMarche = False
End Sub
Private Sub CommandButton3_Click()
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Initialize()
Dim hwnd&
hwnd = FindWindow(vbNullString, Application.Caption)
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Terminate()
EnMarche = False
Unload Me
End Sub
Private Sub Chrono()
Dim H As Single, DS As Byte, S As Single
1: DS = CByte(Me.Label2.Caption) + 1
UserForm1.Label2.Caption = DS
S = Timer + 1 / 10
While Timer < S: DoEvents: Wend
If (DS Mod 10) = 0 Then
H = TimeValue(Me.Label1.Caption) + TimeSerial(0, 0, 1)
Me.Label1.Caption = Format(H, "hh:mm:ss")
Me.Label2.Caption = "0"
End If
If EnMarche Then GoTo 1 Else Exit Sub
End Sub
Dans ton module standard:
Sub TestChrono()
#If VBA6 Then
UserForm1.Show 0
#Else
UserForm1.Show
#End If
End Sub
La fonction API EnableWindow permet de travailler dans la feuille avec
Excel97 avec lequel la propriété Modal est inconnue.
MP
"Michel Pierron" a écrit dans le message de
news:
eb4$Bonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" a écrit dans
le
message de news:
Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat
fonctionne
surmonPC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne
fonctionne
pas.(PCd'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujoursrien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je
cliquesurSTART et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en
surbrillance
cetteligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences
sont
limitésà un simple utilisateur.
Merci
Christophe B.
Merci beaucoup car maintenant ça fonctionne PRESQUE bien !
Je dis presque parceque je n'arrive pas dans les propriétés de mon
Userform
à faire que mon chrono tourne et que je puisse en même temps naviguer et
utiliser mon classeur Excel.
Il existe bien la case ShowModal à mettre sur False, mais encore une fois
sir cette version d'excel 97, elle n'apparait pas...
Une solution à me proposer peut'être ?
Et merci encore pour l'aide TRES efficace.
Christophe
Re Astucemobile;
Je n'ai pas xl97, mais je crois qu'il serait préférable d'activer
l'application lors de l'affichage de l'UserForm comme suit:
Private Sub UserForm_Activate()
Dim hwnd&
hwnd = FindWindow(vbNullString, Application.Caption)
End Sub
MP
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de
news:
ua3BYCB9FHA.2816@tk2msftngp13.phx.gbl...
Re Astucemobile;
Simplifie en utilisant la fonction Timer de Excel.
Dans ton module UserForm:
Option Explicit
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String _
, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" _
(ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private EnMarche As Boolean
Private Sub CommandButton1_Click()
Me.Repaint
If EnMarche Then Exit Sub
EnMarche = True
Call Chrono
End Sub
Private Sub CommandButton2_Click()
EnMarche = False
End Sub
Private Sub CommandButton3_Click()
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Initialize()
Dim hwnd&
hwnd = FindWindow(vbNullString, Application.Caption)
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Terminate()
EnMarche = False
Unload Me
End Sub
Private Sub Chrono()
Dim H As Single, DS As Byte, S As Single
1: DS = CByte(Me.Label2.Caption) + 1
UserForm1.Label2.Caption = DS
S = Timer + 1 / 10
While Timer < S: DoEvents: Wend
If (DS Mod 10) = 0 Then
H = TimeValue(Me.Label1.Caption) + TimeSerial(0, 0, 1)
Me.Label1.Caption = Format(H, "hh:mm:ss")
Me.Label2.Caption = "0"
End If
If EnMarche Then GoTo 1 Else Exit Sub
End Sub
Dans ton module standard:
Sub TestChrono()
#If VBA6 Then
UserForm1.Show 0
#Else
UserForm1.Show
#End If
End Sub
La fonction API EnableWindow permet de travailler dans la feuille avec
Excel97 avec lequel la propriété Modal est inconnue.
MP
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de
news:
eb4$wWA9FHA.2816@tk2msftngp13.phx.gbl...
Bonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" <Astucemobile@discussions.microsoft.com> a écrit dans
le
message de news:
10426F92-0EE1-425E-BB93-02FAC3C153B1@microsoft.com...
Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,
Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat
fonctionne
sur
mon
PC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne
fonctionne
pas.
(PC
d'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujours
rien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je
clique
sur
START et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en
surbrillance
cette
ligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences
sont
limités
à un simple utilisateur.
Merci
Christophe B.
Merci beaucoup car maintenant ça fonctionne PRESQUE bien !
Je dis presque parceque je n'arrive pas dans les propriétés de mon
Userform
à faire que mon chrono tourne et que je puisse en même temps naviguer et
utiliser mon classeur Excel.
Il existe bien la case ShowModal à mettre sur False, mais encore une fois
sir cette version d'excel 97, elle n'apparait pas...
Une solution à me proposer peut'être ?
Et merci encore pour l'aide TRES efficace.
ChristopheRe Astucemobile;
Je n'ai pas xl97, mais je crois qu'il serait préférable d'activer
l'application lors de l'affichage de l'UserForm comme suit:
Private Sub UserForm_Activate()
Dim hwnd&
hwnd = FindWindow(vbNullString, Application.Caption)
End Sub
MP
"Michel Pierron" a écrit dans le message de
news:
Re Astucemobile;
Simplifie en utilisant la fonction Timer de Excel.
Dans ton module UserForm:
Option Explicit
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String _
, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib "user32" _
(ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private EnMarche As Boolean
Private Sub CommandButton1_Click()
Me.Repaint
If EnMarche Then Exit Sub
EnMarche = True
Call Chrono
End Sub
Private Sub CommandButton2_Click()
EnMarche = False
End Sub
Private Sub CommandButton3_Click()
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Initialize()
Dim hwnd&
hwnd = FindWindow(vbNullString, Application.Caption)
EnMarche = False
Label1.Caption = "00:00:00"
Label2.Caption = "0"
End Sub
Private Sub UserForm_Terminate()
EnMarche = False
Unload Me
End Sub
Private Sub Chrono()
Dim H As Single, DS As Byte, S As Single
1: DS = CByte(Me.Label2.Caption) + 1
UserForm1.Label2.Caption = DS
S = Timer + 1 / 10
While Timer < S: DoEvents: Wend
If (DS Mod 10) = 0 Then
H = TimeValue(Me.Label1.Caption) + TimeSerial(0, 0, 1)
Me.Label1.Caption = Format(H, "hh:mm:ss")
Me.Label2.Caption = "0"
End If
If EnMarche Then GoTo 1 Else Exit Sub
End Sub
Dans ton module standard:
Sub TestChrono()
#If VBA6 Then
UserForm1.Show 0
#Else
UserForm1.Show
#End If
End Sub
La fonction API EnableWindow permet de travailler dans la feuille avec
Excel97 avec lequel la propriété Modal est inconnue.
MP
"Michel Pierron" a écrit dans le message de
news:
eb4$Bonjour Astucemobile
L'opérateur AddressOf n'est pas utilisable avec la version Excel97.
MP
"Astucemobile" a écrit dans
le
message de news:
Bonjour,
Je tente vainement d'utiliser le chronomètre proposé par Frédéric
Sigonneau,Denis Michon, (N°1328)
Mais voilà je suis confronté à un problème.
J'ai parfaitement réalisé la manipulation et le résultat
fonctionne
surmonPC perso (Win XP et Office 2000)
Mais sur mon PC de travail (Excel 97) rien à faire ça ne
fonctionne
pas.(PCd'entreprise en réseau)
J'ai pourtant chargé le contrôle IEtimer trouvé sur le net... mais
toujoursrien.
Le problème est le suivant :
Je clique sur le bouton qui lance l'affichage du chronomètre, je
cliquesurSTART et là ça plante et le message suivant apparait :
Erreur de Compilation
Erreur de Syntaxe
Et en arrière plan dans l'affichage de visual basic et en
surbrillance
cetteligne en jaune :
Sub TimerOn(Interval As Long)
et celle si en noir :
TimerID = SetTimer(0, 0, Interval, AddressOf Chrono)
Si quelqu'un peut me venir en aide sachant que mes compétences
sont
limitésà un simple utilisateur.
Merci
Christophe B.