Bonsoir
Quelle ligne de procédure il faut faire pour qu'une macro
s'exécute sans arrêt à toutes les 5 secondes.
Je voudrais relier cette macro au fait d'être sur une cellule ou
encore sélectionner la cellule ( i14 ) pour qu'elle s'exécute.
Ci besoin d'explication s.v.p. m'aviser.
Merci
Bonsoir
Quelle ligne de procédure il faut faire pour qu'une macro
s'exécute sans arrêt à toutes les 5 secondes.
Je voudrais relier cette macro au fait d'être sur une cellule ou
encore sélectionner la cellule ( i14 ) pour qu'elle s'exécute.
Ci besoin d'explication s.v.p. m'aviser.
Merci
Bonsoir
Quelle ligne de procédure il faut faire pour qu'une macro
s'exécute sans arrêt à toutes les 5 secondes.
Je voudrais relier cette macro au fait d'être sur une cellule ou
encore sélectionner la cellule ( i14 ) pour qu'elle s'exécute.
Ci besoin d'explication s.v.p. m'aviser.
Merci
Bonsoir Daniel.
Voici comment tu pourrais déclencher un événement On time toutes les 5
secondes en sélectionnant la cellule I14.
'----------------------
'Code à mettre dans Feuil1 pour déclencher ou stopper l'événement On Time
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$I$14" Then
bEnCours = True
MaProcedure
ElseIf bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
'----------------------
'----------------------
'Code à mettre dans Module1
Global bEnCours As Boolean
Global HeureProchainAppel
Sub MaProcedure()
If bEnCours = False Then
'Annuler le paramétrage du OnTime programmé précédemment.
On Error Resume Next
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="MaProcedure", Schedule:úlse
Exit Sub
End If
'Code de ta procedure
'
'
'Prochain appel de OnTime
HeureProchainAppel = Now + TimeValue("00:00:05")
Application.OnTime HeureProchainAppel, "MaProcedure", False
End Sub
'----------------------
'----------------------
'Code à mettre dans ThisWorkBook pour annuler l'événement On Time
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
"Daniel" wrote in message
news:Q1cOd.66508$Bonsoir
Quelle ligne de procédure il faut faire pour qu'une macro
s'exécute sans arrêt à toutes les 5 secondes.
Je voudrais relier cette macro au fait d'être sur une cellule ou
encore sélectionner la cellule ( i14 ) pour qu'elle s'exécute.
Ci besoin d'explication s.v.p. m'aviser.
Merci
Bonsoir Daniel.
Voici comment tu pourrais déclencher un événement On time toutes les 5
secondes en sélectionnant la cellule I14.
'----------------------
'Code à mettre dans Feuil1 pour déclencher ou stopper l'événement On Time
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$I$14" Then
bEnCours = True
MaProcedure
ElseIf bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
'----------------------
'----------------------
'Code à mettre dans Module1
Global bEnCours As Boolean
Global HeureProchainAppel
Sub MaProcedure()
If bEnCours = False Then
'Annuler le paramétrage du OnTime programmé précédemment.
On Error Resume Next
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="MaProcedure", Schedule:úlse
Exit Sub
End If
'Code de ta procedure
'
'
'Prochain appel de OnTime
HeureProchainAppel = Now + TimeValue("00:00:05")
Application.OnTime HeureProchainAppel, "MaProcedure", False
End Sub
'----------------------
'----------------------
'Code à mettre dans ThisWorkBook pour annuler l'événement On Time
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
"Daniel" <pellet15@videotron.ca> wrote in message
news:Q1cOd.66508$3D5.1251652@weber.videotron.net...
Bonsoir
Quelle ligne de procédure il faut faire pour qu'une macro
s'exécute sans arrêt à toutes les 5 secondes.
Je voudrais relier cette macro au fait d'être sur une cellule ou
encore sélectionner la cellule ( i14 ) pour qu'elle s'exécute.
Ci besoin d'explication s.v.p. m'aviser.
Merci
Bonsoir Daniel.
Voici comment tu pourrais déclencher un événement On time toutes les 5
secondes en sélectionnant la cellule I14.
'----------------------
'Code à mettre dans Feuil1 pour déclencher ou stopper l'événement On Time
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$I$14" Then
bEnCours = True
MaProcedure
ElseIf bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
'----------------------
'----------------------
'Code à mettre dans Module1
Global bEnCours As Boolean
Global HeureProchainAppel
Sub MaProcedure()
If bEnCours = False Then
'Annuler le paramétrage du OnTime programmé précédemment.
On Error Resume Next
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="MaProcedure", Schedule:úlse
Exit Sub
End If
'Code de ta procedure
'
'
'Prochain appel de OnTime
HeureProchainAppel = Now + TimeValue("00:00:05")
Application.OnTime HeureProchainAppel, "MaProcedure", False
End Sub
'----------------------
'----------------------
'Code à mettre dans ThisWorkBook pour annuler l'événement On Time
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
"Daniel" wrote in message
news:Q1cOd.66508$Bonsoir
Quelle ligne de procédure il faut faire pour qu'une macro
s'exécute sans arrêt à toutes les 5 secondes.
Je voudrais relier cette macro au fait d'être sur une cellule ou
encore sélectionner la cellule ( i14 ) pour qu'elle s'exécute.
Ci besoin d'explication s.v.p. m'aviser.
Merci
Bonjour Docm
houf il y a du travaille la dedans !
La macro que je veut exécuter s'appelle "Ouvrirg7towin "
ou je doit placer ce nom ?
Gros MERCI
"docm" a écrit dans le message de news:Bonsoir Daniel.
Voici comment tu pourrais déclencher un événement On time toutes les 5
secondes en sélectionnant la cellule I14.
'----------------------
'Code à mettre dans Feuil1 pour déclencher ou stopper l'événement On
Time
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$I$14" Then
bEnCours = True
MaProcedure
ElseIf bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
'----------------------
'----------------------
'Code à mettre dans Module1
Global bEnCours As Boolean
Global HeureProchainAppel
Sub MaProcedure()
If bEnCours = False Then
'Annuler le paramétrage du OnTime programmé précédemment.
On Error Resume Next
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="MaProcedure", Schedule:úlse
Exit Sub
End If
'Code de ta procedure
'
'
'Prochain appel de OnTime
HeureProchainAppel = Now + TimeValue("00:00:05")
Application.OnTime HeureProchainAppel, "MaProcedure", False
End Sub
'----------------------
'----------------------
'Code à mettre dans ThisWorkBook pour annuler l'événement On Time
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
"Daniel" wrote in message
news:Q1cOd.66508$Bonsoir
Quelle ligne de procédure il faut faire pour qu'une macro
s'exécute sans arrêt à toutes les 5 secondes.
Je voudrais relier cette macro au fait d'être sur une cellule ou
encore sélectionner la cellule ( i14 ) pour qu'elle s'exécute.
Ci besoin d'explication s.v.p. m'aviser.
Merci
Bonjour Docm
houf il y a du travaille la dedans !
La macro que je veut exécuter s'appelle "Ouvrirg7towin "
ou je doit placer ce nom ?
Gros MERCI
"docm" <docmarti@spamcolba.net> a écrit dans le message de news:
ehEL2vlDFHA.2508@TK2MSFTNGP09.phx.gbl...
Bonsoir Daniel.
Voici comment tu pourrais déclencher un événement On time toutes les 5
secondes en sélectionnant la cellule I14.
'----------------------
'Code à mettre dans Feuil1 pour déclencher ou stopper l'événement On
Time
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$I$14" Then
bEnCours = True
MaProcedure
ElseIf bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
'----------------------
'----------------------
'Code à mettre dans Module1
Global bEnCours As Boolean
Global HeureProchainAppel
Sub MaProcedure()
If bEnCours = False Then
'Annuler le paramétrage du OnTime programmé précédemment.
On Error Resume Next
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="MaProcedure", Schedule:úlse
Exit Sub
End If
'Code de ta procedure
'
'
'Prochain appel de OnTime
HeureProchainAppel = Now + TimeValue("00:00:05")
Application.OnTime HeureProchainAppel, "MaProcedure", False
End Sub
'----------------------
'----------------------
'Code à mettre dans ThisWorkBook pour annuler l'événement On Time
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
"Daniel" <pellet15@videotron.ca> wrote in message
news:Q1cOd.66508$3D5.1251652@weber.videotron.net...
Bonsoir
Quelle ligne de procédure il faut faire pour qu'une macro
s'exécute sans arrêt à toutes les 5 secondes.
Je voudrais relier cette macro au fait d'être sur une cellule ou
encore sélectionner la cellule ( i14 ) pour qu'elle s'exécute.
Ci besoin d'explication s.v.p. m'aviser.
Merci
Bonjour Docm
houf il y a du travaille la dedans !
La macro que je veut exécuter s'appelle "Ouvrirg7towin "
ou je doit placer ce nom ?
Gros MERCI
"docm" a écrit dans le message de news:Bonsoir Daniel.
Voici comment tu pourrais déclencher un événement On time toutes les 5
secondes en sélectionnant la cellule I14.
'----------------------
'Code à mettre dans Feuil1 pour déclencher ou stopper l'événement On
Time
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$I$14" Then
bEnCours = True
MaProcedure
ElseIf bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
'----------------------
'----------------------
'Code à mettre dans Module1
Global bEnCours As Boolean
Global HeureProchainAppel
Sub MaProcedure()
If bEnCours = False Then
'Annuler le paramétrage du OnTime programmé précédemment.
On Error Resume Next
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="MaProcedure", Schedule:úlse
Exit Sub
End If
'Code de ta procedure
'
'
'Prochain appel de OnTime
HeureProchainAppel = Now + TimeValue("00:00:05")
Application.OnTime HeureProchainAppel, "MaProcedure", False
End Sub
'----------------------
'----------------------
'Code à mettre dans ThisWorkBook pour annuler l'événement On Time
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
"Daniel" wrote in message
news:Q1cOd.66508$Bonsoir
Quelle ligne de procédure il faut faire pour qu'une macro
s'exécute sans arrêt à toutes les 5 secondes.
Je voudrais relier cette macro au fait d'être sur une cellule ou
encore sélectionner la cellule ( i14 ) pour qu'elle s'exécute.
Ci besoin d'explication s.v.p. m'aviser.
Merci
Remplace les occurences de MaProcedure par Ouvrirg7towin.
"Daniel" wrote in message
news:jMlOd.53679$Bonjour Docm
houf il y a du travaille la dedans !
La macro que je veut exécuter s'appelle "Ouvrirg7towin "
ou je doit placer ce nom ?
Gros MERCI
"docm" a écrit dans le message de news:Bonsoir Daniel.
Voici comment tu pourrais déclencher un événement On time toutes les 5
secondes en sélectionnant la cellule I14.
'----------------------
'Code à mettre dans Feuil1 pour déclencher ou stopper l'événement On
Time
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$I$14" Then
bEnCours = True
MaProcedure
ElseIf bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
'----------------------
'----------------------
'Code à mettre dans Module1
Global bEnCours As Boolean
Global HeureProchainAppel
Sub MaProcedure()
If bEnCours = False Then
'Annuler le paramétrage du OnTime programmé précédemment.
On Error Resume Next
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="MaProcedure", Schedule:úlse
Exit Sub
End If
'Code de ta procedure
'
'
'Prochain appel de OnTime
HeureProchainAppel = Now + TimeValue("00:00:05")
Application.OnTime HeureProchainAppel, "MaProcedure", False
End Sub
'----------------------
'----------------------
'Code à mettre dans ThisWorkBook pour annuler l'événement On Time
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
"Daniel" wrote in message
news:Q1cOd.66508$Bonsoir
Quelle ligne de procédure il faut faire pour qu'une macro
s'exécute sans arrêt à toutes les 5 secondes.
Je voudrais relier cette macro au fait d'être sur une cellule ou
encore sélectionner la cellule ( i14 ) pour qu'elle s'exécute.
Ci besoin d'explication s.v.p. m'aviser.
Merci
Remplace les occurences de MaProcedure par Ouvrirg7towin.
"Daniel" <pellet15@videotron.ca> wrote in message
news:jMlOd.53679$ZZ6.1547895@wagner.videotron.net...
Bonjour Docm
houf il y a du travaille la dedans !
La macro que je veut exécuter s'appelle "Ouvrirg7towin "
ou je doit placer ce nom ?
Gros MERCI
"docm" <docmarti@spamcolba.net> a écrit dans le message de news:
ehEL2vlDFHA.2508@TK2MSFTNGP09.phx.gbl...
Bonsoir Daniel.
Voici comment tu pourrais déclencher un événement On time toutes les 5
secondes en sélectionnant la cellule I14.
'----------------------
'Code à mettre dans Feuil1 pour déclencher ou stopper l'événement On
Time
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$I$14" Then
bEnCours = True
MaProcedure
ElseIf bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
'----------------------
'----------------------
'Code à mettre dans Module1
Global bEnCours As Boolean
Global HeureProchainAppel
Sub MaProcedure()
If bEnCours = False Then
'Annuler le paramétrage du OnTime programmé précédemment.
On Error Resume Next
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="MaProcedure", Schedule:úlse
Exit Sub
End If
'Code de ta procedure
'
'
'Prochain appel de OnTime
HeureProchainAppel = Now + TimeValue("00:00:05")
Application.OnTime HeureProchainAppel, "MaProcedure", False
End Sub
'----------------------
'----------------------
'Code à mettre dans ThisWorkBook pour annuler l'événement On Time
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
"Daniel" <pellet15@videotron.ca> wrote in message
news:Q1cOd.66508$3D5.1251652@weber.videotron.net...
Bonsoir
Quelle ligne de procédure il faut faire pour qu'une macro
s'exécute sans arrêt à toutes les 5 secondes.
Je voudrais relier cette macro au fait d'être sur une cellule ou
encore sélectionner la cellule ( i14 ) pour qu'elle s'exécute.
Ci besoin d'explication s.v.p. m'aviser.
Merci
Remplace les occurences de MaProcedure par Ouvrirg7towin.
"Daniel" wrote in message
news:jMlOd.53679$Bonjour Docm
houf il y a du travaille la dedans !
La macro que je veut exécuter s'appelle "Ouvrirg7towin "
ou je doit placer ce nom ?
Gros MERCI
"docm" a écrit dans le message de news:Bonsoir Daniel.
Voici comment tu pourrais déclencher un événement On time toutes les 5
secondes en sélectionnant la cellule I14.
'----------------------
'Code à mettre dans Feuil1 pour déclencher ou stopper l'événement On
Time
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$I$14" Then
bEnCours = True
MaProcedure
ElseIf bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
'----------------------
'----------------------
'Code à mettre dans Module1
Global bEnCours As Boolean
Global HeureProchainAppel
Sub MaProcedure()
If bEnCours = False Then
'Annuler le paramétrage du OnTime programmé précédemment.
On Error Resume Next
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="MaProcedure", Schedule:úlse
Exit Sub
End If
'Code de ta procedure
'
'
'Prochain appel de OnTime
HeureProchainAppel = Now + TimeValue("00:00:05")
Application.OnTime HeureProchainAppel, "MaProcedure", False
End Sub
'----------------------
'----------------------
'Code à mettre dans ThisWorkBook pour annuler l'événement On Time
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If bEnCours = True Then
bEnCours = False
MaProcedure
End If
End Sub
"Daniel" wrote in message
news:Q1cOd.66508$Bonsoir
Quelle ligne de procédure il faut faire pour qu'une macro
s'exécute sans arrêt à toutes les 5 secondes.
Je voudrais relier cette macro au fait d'être sur une cellule ou
encore sélectionner la cellule ( i14 ) pour qu'elle s'exécute.
Ci besoin d'explication s.v.p. m'aviser.
Merci