Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et ne
comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée, j'ai décidé de reprendre cela sous un autre point de vue.
Voici un truc qui fonctionne, mais qui me parait lourd.
Mon but était de partir des secondes de l'heure du PC et de balancer le
contenu de la cel de G à D si le nb de secondes est pair ou impair.
Qu'en pensez-vous?
Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et ne
comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée, j'ai décidé de reprendre cela sous un autre point de vue.
Voici un truc qui fonctionne, mais qui me parait lourd.
Mon but était de partir des secondes de l'heure du PC et de balancer le
contenu de la cel de G à D si le nb de secondes est pair ou impair.
Qu'en pensez-vous?
Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et ne
comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée, j'ai décidé de reprendre cela sous un autre point de vue.
Voici un truc qui fonctionne, mais qui me parait lourd.
Mon but était de partir des secondes de l'heure du PC et de balancer le
contenu de la cel de G à D si le nb de secondes est pair ou impair.
Qu'en pensez-vous?
On Wed, 30 Jul 2008 20:38:14 +0200, "Jacquouille"
wrote:Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et ne
comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée, j'ai décidé de reprendre cela sous un autre point de vue.
Voici un truc qui fonctionne, mais qui me parait lourd.
Mon but était de partir des secondes de l'heure du PC et de balancer le
contenu de la cel de G à D si le nb de secondes est pair ou impair.
Qu'en pensez-vous?
Sub AAA_Changer_Gauche_Droite()
Dim reste As Long
Dim waittime As Date
Dim n As Long
'Macro enregistrée le 28/07/2008 par JT
For n = 1 To 10 'Si c'est con, ça dure moinslongtemps...-)
reste = n Mod 2
With Range("A1")
If reste = 0 Then 'pair = en rouge et à gauche
.HorizontalAlignment = xlLeft
.Interior.ColorIndex = 3
Else 'impair = en gris et à Droite
.HorizontalAlignment = xlRight
.Interior.ColorIndex = 15
End If
End With
waittime = DateAdd("s", 1, Now)
Application.Wait waittime
Next
End Sub
On Wed, 30 Jul 2008 20:38:14 +0200, "Jacquouille"
<NoSpam_j.thiernesse@skynet.be> wrote:
Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et ne
comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée, j'ai décidé de reprendre cela sous un autre point de vue.
Voici un truc qui fonctionne, mais qui me parait lourd.
Mon but était de partir des secondes de l'heure du PC et de balancer le
contenu de la cel de G à D si le nb de secondes est pair ou impair.
Qu'en pensez-vous?
Sub AAA_Changer_Gauche_Droite()
Dim reste As Long
Dim waittime As Date
Dim n As Long
'Macro enregistrée le 28/07/2008 par JT
For n = 1 To 10 'Si c'est con, ça dure moinslongtemps...-)
reste = n Mod 2
With Range("A1")
If reste = 0 Then 'pair = en rouge et à gauche
.HorizontalAlignment = xlLeft
.Interior.ColorIndex = 3
Else 'impair = en gris et à Droite
.HorizontalAlignment = xlRight
.Interior.ColorIndex = 15
End If
End With
waittime = DateAdd("s", 1, Now)
Application.Wait waittime
Next
End Sub
On Wed, 30 Jul 2008 20:38:14 +0200, "Jacquouille"
wrote:Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et ne
comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée, j'ai décidé de reprendre cela sous un autre point de vue.
Voici un truc qui fonctionne, mais qui me parait lourd.
Mon but était de partir des secondes de l'heure du PC et de balancer le
contenu de la cel de G à D si le nb de secondes est pair ou impair.
Qu'en pensez-vous?
Sub AAA_Changer_Gauche_Droite()
Dim reste As Long
Dim waittime As Date
Dim n As Long
'Macro enregistrée le 28/07/2008 par JT
For n = 1 To 10 'Si c'est con, ça dure moinslongtemps...-)
reste = n Mod 2
With Range("A1")
If reste = 0 Then 'pair = en rouge et à gauche
.HorizontalAlignment = xlLeft
.Interior.ColorIndex = 3
Else 'impair = en gris et à Droite
.HorizontalAlignment = xlRight
.Interior.ColorIndex = 15
End If
End With
waittime = DateAdd("s", 1, Now)
Application.Wait waittime
Next
End Sub
Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et ne
comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée,
Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et ne
comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée,
Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et ne
comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée,
Je ne vois pas pourquoi tu ne continues pas sur le même fil!
"Jacquouille" a écrit dans le message de
news:Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et
ne comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée,
''''Réexpliquation''':: Pour voir le code VBA ci-dessous du classeur
proposé, faire soit: Clic droit sur l'onglet de la feuille Feuil1
>Visualiser le code soit Alt + F11. Tu dois voir les lignes écrites plus
bas.
Les 9 lignes de code suivantes qui représentent le code de la Feuil1 sont
exécutées automatiquement à chaque fois que tu sélectionnes une cellule
différente de la Feuil1.
Donc, la procédure "Clignote" qui se trouve dans le module est appelée 3
fois. Pour te rendre compte de l'exécution, après avoir fait Alt+F11, tu
appuyes sur F8, puis tu sélectionne une cellule, la première ligne
ci-dessous passe sous arrière-plan en jaune.Ensuite fait parcourir ta
souris en haut de l'éditeur VBA sur les boutons disponibles, lorsque tu
verras "Pas à pas détaillé" tu clic dessus pour faire progresser la
routine.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
[E1] = "Bonjour" 'affectation de la 1iere valeur à E1
Clignote ' 1er appel de procédure Clignote
[E1] = "Ça va?" 'affectation de la 2ème valeur à E1
Clignote' 2ème appel de procédure Clignote
[E1] = "Il fait beau chez toi??" 'affectation de la 3ème valeur à E1
Clignote' 3ème appel de procédure Clignote
[E1] = ""
End Sub
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Clignote()
Dim i As Integer, mem#, a$
Application.ScreenUpdating = True
a$ = [E1]
With Feuil1.Range("E1")
mem = .Font.Size
.Font.ColorIndex = 3
.Font.Size = mem + 4
.Font.Bold = True
For i = 0 To 8
If [E1] = a Then ' Si E1 prend une valeur
[E1] = "" 'j'efface E1
Else
[E1] = a 'si non je rétablis la valeur sur E1
End If
Sleep (200) 'procédure interne déclarée par la ligne en amont
de cette routine,
DoEvents
Next i
'Redonne le format de cellules mitoyennes
.Font.Size = [E4].Font.Size
.Font.ColorIndex = [E4].Font.ColorIndex
.Font.Bold = [E4].Font.Bold
End With
End Sub
J'ose espérer avoir clarifier dans ton esprit le fonctionnement de ce
classeur.
Je ne vois pas pourquoi tu ne continues pas sur le même fil!
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: uPsjvNn8IHA.2416@TK2MSFTNGP02.phx.gbl...
Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et
ne comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée,
''''Réexpliquation''':: Pour voir le code VBA ci-dessous du classeur
proposé, faire soit: Clic droit sur l'onglet de la feuille Feuil1
>Visualiser le code soit Alt + F11. Tu dois voir les lignes écrites plus
bas.
Les 9 lignes de code suivantes qui représentent le code de la Feuil1 sont
exécutées automatiquement à chaque fois que tu sélectionnes une cellule
différente de la Feuil1.
Donc, la procédure "Clignote" qui se trouve dans le module est appelée 3
fois. Pour te rendre compte de l'exécution, après avoir fait Alt+F11, tu
appuyes sur F8, puis tu sélectionne une cellule, la première ligne
ci-dessous passe sous arrière-plan en jaune.Ensuite fait parcourir ta
souris en haut de l'éditeur VBA sur les boutons disponibles, lorsque tu
verras "Pas à pas détaillé" tu clic dessus pour faire progresser la
routine.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
[E1] = "Bonjour" 'affectation de la 1iere valeur à E1
Clignote ' 1er appel de procédure Clignote
[E1] = "Ça va?" 'affectation de la 2ème valeur à E1
Clignote' 2ème appel de procédure Clignote
[E1] = "Il fait beau chez toi??" 'affectation de la 3ème valeur à E1
Clignote' 3ème appel de procédure Clignote
[E1] = ""
End Sub
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Clignote()
Dim i As Integer, mem#, a$
Application.ScreenUpdating = True
a$ = [E1]
With Feuil1.Range("E1")
mem = .Font.Size
.Font.ColorIndex = 3
.Font.Size = mem + 4
.Font.Bold = True
For i = 0 To 8
If [E1] = a Then ' Si E1 prend une valeur
[E1] = "" 'j'efface E1
Else
[E1] = a 'si non je rétablis la valeur sur E1
End If
Sleep (200) 'procédure interne déclarée par la ligne en amont
de cette routine,
DoEvents
Next i
'Redonne le format de cellules mitoyennes
.Font.Size = [E4].Font.Size
.Font.ColorIndex = [E4].Font.ColorIndex
.Font.Bold = [E4].Font.Bold
End With
End Sub
J'ose espérer avoir clarifier dans ton esprit le fonctionnement de ce
classeur.
Je ne vois pas pourquoi tu ne continues pas sur le même fil!
"Jacquouille" a écrit dans le message de
news:Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et
ne comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée,
''''Réexpliquation''':: Pour voir le code VBA ci-dessous du classeur
proposé, faire soit: Clic droit sur l'onglet de la feuille Feuil1
>Visualiser le code soit Alt + F11. Tu dois voir les lignes écrites plus
bas.
Les 9 lignes de code suivantes qui représentent le code de la Feuil1 sont
exécutées automatiquement à chaque fois que tu sélectionnes une cellule
différente de la Feuil1.
Donc, la procédure "Clignote" qui se trouve dans le module est appelée 3
fois. Pour te rendre compte de l'exécution, après avoir fait Alt+F11, tu
appuyes sur F8, puis tu sélectionne une cellule, la première ligne
ci-dessous passe sous arrière-plan en jaune.Ensuite fait parcourir ta
souris en haut de l'éditeur VBA sur les boutons disponibles, lorsque tu
verras "Pas à pas détaillé" tu clic dessus pour faire progresser la
routine.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
[E1] = "Bonjour" 'affectation de la 1iere valeur à E1
Clignote ' 1er appel de procédure Clignote
[E1] = "Ça va?" 'affectation de la 2ème valeur à E1
Clignote' 2ème appel de procédure Clignote
[E1] = "Il fait beau chez toi??" 'affectation de la 3ème valeur à E1
Clignote' 3ème appel de procédure Clignote
[E1] = ""
End Sub
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Clignote()
Dim i As Integer, mem#, a$
Application.ScreenUpdating = True
a$ = [E1]
With Feuil1.Range("E1")
mem = .Font.Size
.Font.ColorIndex = 3
.Font.Size = mem + 4
.Font.Bold = True
For i = 0 To 8
If [E1] = a Then ' Si E1 prend une valeur
[E1] = "" 'j'efface E1
Else
[E1] = a 'si non je rétablis la valeur sur E1
End If
Sleep (200) 'procédure interne déclarée par la ligne en amont
de cette routine,
DoEvents
Next i
'Redonne le format de cellules mitoyennes
.Font.Size = [E4].Font.Size
.Font.ColorIndex = [E4].Font.ColorIndex
.Font.Bold = [E4].Font.Bold
End With
End Sub
J'ose espérer avoir clarifier dans ton esprit le fonctionnement de ce
classeur.
Bonjour
Simplement parce qu'il y a 10 cm d'en-têtes entre le premier fil et le 30/7.
Il n'est donc pas déraisonnable de penser que ceux qui m'ont aidé (on n'est
jamais trop aidé), ne pensent pas à reculer de 10 cm pour voir mes no uveaux
états d'âme sur un problème et une de ses solutions dont la plus gr ande
majorité se contrefout.
Ai-je répondu à tes attentes?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Fredo P" a écrit dans l e
message denews: uPL2wYu8IHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63 jfAD$
> Je ne vois pas pourquoi tu ne continues pas sur le même fil!
> "Jacquouille" a écrit dans le message de
>news: uPsjvNn8IHA.2__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z__@ TK2MSFTNGP02.phx.gbl...
>> Bonsoir
>> N'étant pas content de mes début en clignotement (voir dernier msg ), et
>> ne comprenant pas pourquoi la cel changeait de valeur dans une solutio n
>> proposée,
> ''''Réexpliquation''':: Pour voir le code VBA ci-dessous du classeur
> proposé, faire soit: Clic droit sur l'onglet de la feuille Feuil1
> >Visualiser le code soit Alt + F11. Tu dois voir les lignes écrites plus
> bas.
> Les 9 lignes de code suivantes qui représentent le code de la Feuil1 sont
> exécutées automatiquement à chaque fois que tu sélectionnes une cellule
> différente de la Feuil1.
> Donc, la procédure "Clignote" qui se trouve dans le module est appel ée 3
> fois. Pour te rendre compte de l'exécution, après avoir fait Alt+F1 1, tu
> appuyes sur F8, puis tu sélectionne une cellule, la première ligne
> ci-dessous passe sous arrière-plan en jaune.Ensuite fait parcourir ta
> souris en haut de l'éditeur VBA sur les boutons disponibles, lorsque tu
> verras "Pas à pas détaillé" tu clic dessus pour faire progresser la
> routine.
> Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
> [E1] = "Bonjour" 'affectation de la 1iere valeur à E1
> Clignote ' 1er appel de procédure Clignote
> [E1] = "Ça va?" 'affectation de la 2ème valeur à E1
> Clignote' 2ème appel de procédure Clignote
> [E1] = "Il fait beau chez toi??" 'affectation de la 3ème valeur à E1
> Clignote' 3ème appel de procédure Clignote
> [E1] = ""
> End Sub
> Option Explicit
> Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
> Sub Clignote()
> Dim i As Integer, mem#, a$
> Application.ScreenUpdating = True
> a$ = [E1]
> With Feuil1.Range("E1")
> mem = .Font.Size
> .Font.ColorIndex = 3
> .Font.Size = mem + 4
> .Font.Bold = True
> For i = 0 To 8
> If [E1] = a Then ' Si E1 prend une valeur
> [E1] = "" 'j'efface E1
> Else
> [E1] = a 'si non je rétablis la valeur su r E1
> End If
> Sleep (200) 'procédure interne déclarée par la ligne en amont
> de cette routine,
> DoEvents
> Next i
> 'Redonne le format de cellules mitoyennes
> .Font.Size = [E4].Font.Size
> .Font.ColorIndex = [E4].Font.ColorIndex
> .Font.Bold = [E4].Font.Bold
> End With
> End Sub
> J'ose espérer avoir clarifier dans ton esprit le fonctionnement de ce
> classeur.
Bonjour
Simplement parce qu'il y a 10 cm d'en-têtes entre le premier fil et le 30/7.
Il n'est donc pas déraisonnable de penser que ceux qui m'ont aidé (on n'est
jamais trop aidé), ne pensent pas à reculer de 10 cm pour voir mes no uveaux
états d'âme sur un problème et une de ses solutions dont la plus gr ande
majorité se contrefout.
Ai-je répondu à tes attentes?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Fredo P" <ponsinet.frederic363etdesbrouet...@orange.fr> a écrit dans l e
message denews: uPL2wYu8IHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63 jfAD$z__@TK2MSFTNGP02.phx.gbl...
> Je ne vois pas pourquoi tu ne continues pas sur le même fil!
> "Jacquouille" <NoSpam_j.thierne...@skynet.be> a écrit dans le message de
>news: uPsjvNn8IHA.2__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z__@ TK2MSFTNGP02.phx.gbl...
>> Bonsoir
>> N'étant pas content de mes début en clignotement (voir dernier msg ), et
>> ne comprenant pas pourquoi la cel changeait de valeur dans une solutio n
>> proposée,
> ''''Réexpliquation''':: Pour voir le code VBA ci-dessous du classeur
> proposé, faire soit: Clic droit sur l'onglet de la feuille Feuil1
> >Visualiser le code soit Alt + F11. Tu dois voir les lignes écrites plus
> bas.
> Les 9 lignes de code suivantes qui représentent le code de la Feuil1 sont
> exécutées automatiquement à chaque fois que tu sélectionnes une cellule
> différente de la Feuil1.
> Donc, la procédure "Clignote" qui se trouve dans le module est appel ée 3
> fois. Pour te rendre compte de l'exécution, après avoir fait Alt+F1 1, tu
> appuyes sur F8, puis tu sélectionne une cellule, la première ligne
> ci-dessous passe sous arrière-plan en jaune.Ensuite fait parcourir ta
> souris en haut de l'éditeur VBA sur les boutons disponibles, lorsque tu
> verras "Pas à pas détaillé" tu clic dessus pour faire progresser la
> routine.
> Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
> [E1] = "Bonjour" 'affectation de la 1iere valeur à E1
> Clignote ' 1er appel de procédure Clignote
> [E1] = "Ça va?" 'affectation de la 2ème valeur à E1
> Clignote' 2ème appel de procédure Clignote
> [E1] = "Il fait beau chez toi??" 'affectation de la 3ème valeur à E1
> Clignote' 3ème appel de procédure Clignote
> [E1] = ""
> End Sub
> Option Explicit
> Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
> Sub Clignote()
> Dim i As Integer, mem#, a$
> Application.ScreenUpdating = True
> a$ = [E1]
> With Feuil1.Range("E1")
> mem = .Font.Size
> .Font.ColorIndex = 3
> .Font.Size = mem + 4
> .Font.Bold = True
> For i = 0 To 8
> If [E1] = a Then ' Si E1 prend une valeur
> [E1] = "" 'j'efface E1
> Else
> [E1] = a 'si non je rétablis la valeur su r E1
> End If
> Sleep (200) 'procédure interne déclarée par la ligne en amont
> de cette routine,
> DoEvents
> Next i
> 'Redonne le format de cellules mitoyennes
> .Font.Size = [E4].Font.Size
> .Font.ColorIndex = [E4].Font.ColorIndex
> .Font.Bold = [E4].Font.Bold
> End With
> End Sub
> J'ose espérer avoir clarifier dans ton esprit le fonctionnement de ce
> classeur.
Bonjour
Simplement parce qu'il y a 10 cm d'en-têtes entre le premier fil et le 30/7.
Il n'est donc pas déraisonnable de penser que ceux qui m'ont aidé (on n'est
jamais trop aidé), ne pensent pas à reculer de 10 cm pour voir mes no uveaux
états d'âme sur un problème et une de ses solutions dont la plus gr ande
majorité se contrefout.
Ai-je répondu à tes attentes?
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."
Jacquouille.
"Fredo P" a écrit dans l e
message denews: uPL2wYu8IHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63 jfAD$
> Je ne vois pas pourquoi tu ne continues pas sur le même fil!
> "Jacquouille" a écrit dans le message de
>news: uPsjvNn8IHA.2__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z__@ TK2MSFTNGP02.phx.gbl...
>> Bonsoir
>> N'étant pas content de mes début en clignotement (voir dernier msg ), et
>> ne comprenant pas pourquoi la cel changeait de valeur dans une solutio n
>> proposée,
> ''''Réexpliquation''':: Pour voir le code VBA ci-dessous du classeur
> proposé, faire soit: Clic droit sur l'onglet de la feuille Feuil1
> >Visualiser le code soit Alt + F11. Tu dois voir les lignes écrites plus
> bas.
> Les 9 lignes de code suivantes qui représentent le code de la Feuil1 sont
> exécutées automatiquement à chaque fois que tu sélectionnes une cellule
> différente de la Feuil1.
> Donc, la procédure "Clignote" qui se trouve dans le module est appel ée 3
> fois. Pour te rendre compte de l'exécution, après avoir fait Alt+F1 1, tu
> appuyes sur F8, puis tu sélectionne une cellule, la première ligne
> ci-dessous passe sous arrière-plan en jaune.Ensuite fait parcourir ta
> souris en haut de l'éditeur VBA sur les boutons disponibles, lorsque tu
> verras "Pas à pas détaillé" tu clic dessus pour faire progresser la
> routine.
> Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
> [E1] = "Bonjour" 'affectation de la 1iere valeur à E1
> Clignote ' 1er appel de procédure Clignote
> [E1] = "Ça va?" 'affectation de la 2ème valeur à E1
> Clignote' 2ème appel de procédure Clignote
> [E1] = "Il fait beau chez toi??" 'affectation de la 3ème valeur à E1
> Clignote' 3ème appel de procédure Clignote
> [E1] = ""
> End Sub
> Option Explicit
> Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
> Sub Clignote()
> Dim i As Integer, mem#, a$
> Application.ScreenUpdating = True
> a$ = [E1]
> With Feuil1.Range("E1")
> mem = .Font.Size
> .Font.ColorIndex = 3
> .Font.Size = mem + 4
> .Font.Bold = True
> For i = 0 To 8
> If [E1] = a Then ' Si E1 prend une valeur
> [E1] = "" 'j'efface E1
> Else
> [E1] = a 'si non je rétablis la valeur su r E1
> End If
> Sleep (200) 'procédure interne déclarée par la ligne en amont
> de cette routine,
> DoEvents
> Next i
> 'Redonne le format de cellules mitoyennes
> .Font.Size = [E4].Font.Size
> .Font.ColorIndex = [E4].Font.ColorIndex
> .Font.Bold = [E4].Font.Bold
> End With
> End Sub
> J'ose espérer avoir clarifier dans ton esprit le fonctionnement de ce
> classeur.
Mon but était de partir des secondes de l'heure du PC et de balancer
le contenu de la cel de G à D si le nb de secondes est pair ou impair.
Mon but était de partir des secondes de l'heure du PC et de balancer
le contenu de la cel de G à D si le nb de secondes est pair ou impair.
Mon but était de partir des secondes de l'heure du PC et de balancer
le contenu de la cel de G à D si le nb de secondes est pair ou impair.
Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et ne
comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée, j'ai décidé de reprendre cela sous un autre point de vue.
Voici un truc qui fonctionne, mais qui me parait lourd.
Mon but était de partir des secondes de l'heure du PC et de balancer le
contenu de la cel de G à D si le nb de secondes est pair ou impair.
Qu'en pensez-vous?
PS le AAA devant le nom, c'est pour retrouver la macro en tête de liste
quand je travaille dedans.
--------------------------------------------
Sub AAA_Changer_Gauche_Droite()
'Macro enregistrée le 28/07/2008 par JT
For n = Second(Now()) To Second(Now()) + 10 'Si c'est con, ça dure moins
longtemps...-)
reste = n / 2 - Int(n / 2)
Range("A1").Select
With Selection
If reste = 0 Then 'pair = en rouge et à gauche
.HorizontalAlignment = xlLeft
.Interior.ColorIndex = 3
Else 'impair = en gris et à Droite
.HorizontalAlignment = xlRight
.Interior.ColorIndex = 15
End If
End With
newhour = Hour(Now())
newminute = Minute(Now())
newsecond = Second(Now()) + 1
waittime = TimeSerial(newhour, newminute, newsecond)
Application.Wait waittime
Next
End Sub
Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et ne
comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée, j'ai décidé de reprendre cela sous un autre point de vue.
Voici un truc qui fonctionne, mais qui me parait lourd.
Mon but était de partir des secondes de l'heure du PC et de balancer le
contenu de la cel de G à D si le nb de secondes est pair ou impair.
Qu'en pensez-vous?
PS le AAA devant le nom, c'est pour retrouver la macro en tête de liste
quand je travaille dedans.
--------------------------------------------
Sub AAA_Changer_Gauche_Droite()
'Macro enregistrée le 28/07/2008 par JT
For n = Second(Now()) To Second(Now()) + 10 'Si c'est con, ça dure moins
longtemps...-)
reste = n / 2 - Int(n / 2)
Range("A1").Select
With Selection
If reste = 0 Then 'pair = en rouge et à gauche
.HorizontalAlignment = xlLeft
.Interior.ColorIndex = 3
Else 'impair = en gris et à Droite
.HorizontalAlignment = xlRight
.Interior.ColorIndex = 15
End If
End With
newhour = Hour(Now())
newminute = Minute(Now())
newsecond = Second(Now()) + 1
waittime = TimeSerial(newhour, newminute, newsecond)
Application.Wait waittime
Next
End Sub
Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et ne
comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée, j'ai décidé de reprendre cela sous un autre point de vue.
Voici un truc qui fonctionne, mais qui me parait lourd.
Mon but était de partir des secondes de l'heure du PC et de balancer le
contenu de la cel de G à D si le nb de secondes est pair ou impair.
Qu'en pensez-vous?
PS le AAA devant le nom, c'est pour retrouver la macro en tête de liste
quand je travaille dedans.
--------------------------------------------
Sub AAA_Changer_Gauche_Droite()
'Macro enregistrée le 28/07/2008 par JT
For n = Second(Now()) To Second(Now()) + 10 'Si c'est con, ça dure moins
longtemps...-)
reste = n / 2 - Int(n / 2)
Range("A1").Select
With Selection
If reste = 0 Then 'pair = en rouge et à gauche
.HorizontalAlignment = xlLeft
.Interior.ColorIndex = 3
Else 'impair = en gris et à Droite
.HorizontalAlignment = xlRight
.Interior.ColorIndex = 15
End If
End With
newhour = Hour(Now())
newminute = Minute(Now())
newsecond = Second(Now()) + 1
waittime = TimeSerial(newhour, newminute, newsecond)
Application.Wait waittime
Next
End Sub
Bonjour Jacquouille,
C'est un peu à côté de ce que tu évoques mais si cela t'inspire
à mettre dans le code d'une feuille:
Private Sub Worksheet_Change(ByVal Target As Range)
'Décocher outils option affichage valeur zéro
'taper 1 en C2 ou en B2 le va et vient démarrera
'taper dans une autre cellule, il s'arretera
Select Case Target.Address
Case "$B$2"
If [b2] = 1 Then
[b2].Interior.ColorIndex = 1
Application.Wait Now + TimeValue("00:00:01")
[b2] = 0
[b2].Interior.ColorIndex = 0
[c2] = 1
End If
Case "$C$2"
If [c2] = 1 Then
[c2].Interior.ColorIndex = 1
Application.Wait Now + TimeValue("00:00:01")
[c2] = 0
[c2].Interior.ColorIndex = 0
[b2] = 1
End If
End Select
DoEvents
End Sub
'lSteph
Jacquouille a écrit :Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et
ne comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée, j'ai décidé de reprendre cela sous un autre point de vue.
Voici un truc qui fonctionne, mais qui me parait lourd.
Mon but était de partir des secondes de l'heure du PC et de balancer le
contenu de la cel de G à D si le nb de secondes est pair ou impair.
Qu'en pensez-vous?
PS le AAA devant le nom, c'est pour retrouver la macro en tête de liste
quand je travaille dedans.
--------------------------------------------
Sub AAA_Changer_Gauche_Droite()
'Macro enregistrée le 28/07/2008 par JT
For n = Second(Now()) To Second(Now()) + 10 'Si c'est con, ça dure moins
longtemps...-)
reste = n / 2 - Int(n / 2)
Range("A1").Select
With Selection
If reste = 0 Then 'pair = en rouge et à gauche
.HorizontalAlignment = xlLeft
.Interior.ColorIndex = 3
Else 'impair = en gris et à Droite
.HorizontalAlignment = xlRight
.Interior.ColorIndex = 15
End If
End With
newhour = Hour(Now())
newminute = Minute(Now())
newsecond = Second(Now()) + 1
waittime = TimeSerial(newhour, newminute, newsecond)
Application.Wait waittime
Next
End Sub
Bonjour Jacquouille,
C'est un peu à côté de ce que tu évoques mais si cela t'inspire
à mettre dans le code d'une feuille:
Private Sub Worksheet_Change(ByVal Target As Range)
'Décocher outils option affichage valeur zéro
'taper 1 en C2 ou en B2 le va et vient démarrera
'taper dans une autre cellule, il s'arretera
Select Case Target.Address
Case "$B$2"
If [b2] = 1 Then
[b2].Interior.ColorIndex = 1
Application.Wait Now + TimeValue("00:00:01")
[b2] = 0
[b2].Interior.ColorIndex = 0
[c2] = 1
End If
Case "$C$2"
If [c2] = 1 Then
[c2].Interior.ColorIndex = 1
Application.Wait Now + TimeValue("00:00:01")
[c2] = 0
[c2].Interior.ColorIndex = 0
[b2] = 1
End If
End Select
DoEvents
End Sub
'lSteph
Jacquouille a écrit :
Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et
ne comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée, j'ai décidé de reprendre cela sous un autre point de vue.
Voici un truc qui fonctionne, mais qui me parait lourd.
Mon but était de partir des secondes de l'heure du PC et de balancer le
contenu de la cel de G à D si le nb de secondes est pair ou impair.
Qu'en pensez-vous?
PS le AAA devant le nom, c'est pour retrouver la macro en tête de liste
quand je travaille dedans.
--------------------------------------------
Sub AAA_Changer_Gauche_Droite()
'Macro enregistrée le 28/07/2008 par JT
For n = Second(Now()) To Second(Now()) + 10 'Si c'est con, ça dure moins
longtemps...-)
reste = n / 2 - Int(n / 2)
Range("A1").Select
With Selection
If reste = 0 Then 'pair = en rouge et à gauche
.HorizontalAlignment = xlLeft
.Interior.ColorIndex = 3
Else 'impair = en gris et à Droite
.HorizontalAlignment = xlRight
.Interior.ColorIndex = 15
End If
End With
newhour = Hour(Now())
newminute = Minute(Now())
newsecond = Second(Now()) + 1
waittime = TimeSerial(newhour, newminute, newsecond)
Application.Wait waittime
Next
End Sub
Bonjour Jacquouille,
C'est un peu à côté de ce que tu évoques mais si cela t'inspire
à mettre dans le code d'une feuille:
Private Sub Worksheet_Change(ByVal Target As Range)
'Décocher outils option affichage valeur zéro
'taper 1 en C2 ou en B2 le va et vient démarrera
'taper dans une autre cellule, il s'arretera
Select Case Target.Address
Case "$B$2"
If [b2] = 1 Then
[b2].Interior.ColorIndex = 1
Application.Wait Now + TimeValue("00:00:01")
[b2] = 0
[b2].Interior.ColorIndex = 0
[c2] = 1
End If
Case "$C$2"
If [c2] = 1 Then
[c2].Interior.ColorIndex = 1
Application.Wait Now + TimeValue("00:00:01")
[c2] = 0
[c2].Interior.ColorIndex = 0
[b2] = 1
End If
End Select
DoEvents
End Sub
'lSteph
Jacquouille a écrit :Bonsoir
N'étant pas content de mes début en clignotement (voir dernier msg), et
ne comprenant pas pourquoi la cel changeait de valeur dans une solution
proposée, j'ai décidé de reprendre cela sous un autre point de vue.
Voici un truc qui fonctionne, mais qui me parait lourd.
Mon but était de partir des secondes de l'heure du PC et de balancer le
contenu de la cel de G à D si le nb de secondes est pair ou impair.
Qu'en pensez-vous?
PS le AAA devant le nom, c'est pour retrouver la macro en tête de liste
quand je travaille dedans.
--------------------------------------------
Sub AAA_Changer_Gauche_Droite()
'Macro enregistrée le 28/07/2008 par JT
For n = Second(Now()) To Second(Now()) + 10 'Si c'est con, ça dure moins
longtemps...-)
reste = n / 2 - Int(n / 2)
Range("A1").Select
With Selection
If reste = 0 Then 'pair = en rouge et à gauche
.HorizontalAlignment = xlLeft
.Interior.ColorIndex = 3
Else 'impair = en gris et à Droite
.HorizontalAlignment = xlRight
.Interior.ColorIndex = 15
End If
End With
newhour = Hour(Now())
newminute = Minute(Now())
newsecond = Second(Now()) + 1
waittime = TimeSerial(newhour, newminute, newsecond)
Application.Wait waittime
Next
End Sub
Mon but était de partir des secondes de l'heure du PC et de balancer
le contenu de la cel de G à D si le nb de secondes est pair ou impair.
Mon but était de partir des secondes de l'heure du PC et de balancer
le contenu de la cel de G à D si le nb de secondes est pair ou impair.
Mon but était de partir des secondes de l'heure du PC et de balancer
le contenu de la cel de G à D si le nb de secondes est pair ou impair.