Fichier nomm=E9: CONCOURS
Feuille de travail nomm=E9: SUIVI
=C0 chaque fois que la feuille de travail SUIVI est s=E9lectionn=E9e, est-i=
l
possible de faire clignoter 2 ou 3 fois le libell=E9 inscrit en cellule
E4 ? ou sinon de faire modifier la couleur de fonds 2, 3 fois afin
d'attirer l''attention ? Comment le faire.
SVP je ne m'y connais pas en VBA alors je cherche un petit copier/
coller. :o)))
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonsoir,
-Sélection de la feuille SUIVI -Alt+F11 -Coller le code ci-dessous dans la fenêtre de droite '--------------- Private Sub Worksheet_Activate() Dim x As Integer x = [e4].Interior.ColorIndex For i = 1 To 3 [e4].Interior.ColorIndex = 3 Application.Wait (Time + TimeValue("0:00:01")) [e4].Interior.ColorIndex = x Application.Wait (Time + TimeValue("0:00:01")) Next End Sub '-------------------
-- Salutations JJ
"Pierre Fonds" a écrit dans le message de news:
Bonjour,
Fichier nommé: CONCOURS Feuille de travail nommé: SUIVI
À chaque fois que la feuille de travail SUIVI est sélectionnée, est-il possible de faire clignoter 2 ou 3 fois le libellé inscrit en cellule E4 ? ou sinon de faire modifier la couleur de fonds 2, 3 fois afin d'attirer l''attention ? Comment le faire.
SVP je ne m'y connais pas en VBA alors je cherche un petit copier/ coller. :o)))
Merci
Bonsoir,
-Sélection de la feuille SUIVI
-Alt+F11
-Coller le code ci-dessous dans la fenêtre de droite
'---------------
Private Sub Worksheet_Activate()
Dim x As Integer
x = [e4].Interior.ColorIndex
For i = 1 To 3
[e4].Interior.ColorIndex = 3
Application.Wait (Time + TimeValue("0:00:01"))
[e4].Interior.ColorIndex = x
Application.Wait (Time + TimeValue("0:00:01"))
Next
End Sub
'-------------------
--
Salutations
JJ
"Pierre Fonds" <gaetan.goulet@sympatico.ca> a écrit dans le message de news:
7c42656a-0b39-4f52-9556-672d025270cf@r36g2000vbn.googlegroups.com...
Bonjour,
Fichier nommé: CONCOURS
Feuille de travail nommé: SUIVI
À chaque fois que la feuille de travail SUIVI est sélectionnée, est-il
possible de faire clignoter 2 ou 3 fois le libellé inscrit en cellule
E4 ? ou sinon de faire modifier la couleur de fonds 2, 3 fois afin
d'attirer l''attention ? Comment le faire.
SVP je ne m'y connais pas en VBA alors je cherche un petit copier/
coller. :o)))
-Sélection de la feuille SUIVI -Alt+F11 -Coller le code ci-dessous dans la fenêtre de droite '--------------- Private Sub Worksheet_Activate() Dim x As Integer x = [e4].Interior.ColorIndex For i = 1 To 3 [e4].Interior.ColorIndex = 3 Application.Wait (Time + TimeValue("0:00:01")) [e4].Interior.ColorIndex = x Application.Wait (Time + TimeValue("0:00:01")) Next End Sub '-------------------
-- Salutations JJ
"Pierre Fonds" a écrit dans le message de news:
Bonjour,
Fichier nommé: CONCOURS Feuille de travail nommé: SUIVI
À chaque fois que la feuille de travail SUIVI est sélectionnée, est-il possible de faire clignoter 2 ou 3 fois le libellé inscrit en cellule E4 ? ou sinon de faire modifier la couleur de fonds 2, 3 fois afin d'attirer l''attention ? Comment le faire.
SVP je ne m'y connais pas en VBA alors je cherche un petit copier/ coller. :o)))
Merci
Pierre Fonds
On Oct 19, 12:16 pm, "Jacky" wrote:
-Collerlecode ci-dessous dans la fenêtre de droite '--------------- Private Sub Worksheet_Activate() Dim x As Integer x = [e4].Interior.ColorIndex For i = 1 To 3 [e4].Interior.ColorIndex = 3 Application.Wait (Time + TimeValue("0:00:01")) [e4].Interior.ColorIndex = x Application.Wait (Time + TimeValue("0:00:01")) Next End Sub '-------------------
Merci. Ça a très bien fonctionné bien que j'avais une page grise en ouvertur e et là j'ai cherché comment avoir la page de droite ;o)
Mais entre temps j'avais modifié mon fichier et la cellule était devenu G4 alors en j'ai refait Alt+F11 et modifié E4 en G4 et là plus rien.
Désolé de faire appel à nouveau pour corriger ma bévue.
Salutations
On Oct 19, 12:16 pm, "Jacky" <Dup...@marcel.fr> wrote:
-Collerlecode ci-dessous dans la fenêtre de droite
'---------------
Private Sub Worksheet_Activate()
Dim x As Integer
x = [e4].Interior.ColorIndex
For i = 1 To 3
[e4].Interior.ColorIndex = 3
Application.Wait (Time + TimeValue("0:00:01"))
[e4].Interior.ColorIndex = x
Application.Wait (Time + TimeValue("0:00:01"))
Next
End Sub
'-------------------
Merci.
Ça a très bien fonctionné bien que j'avais une page grise en ouvertur e
et là j'ai cherché comment avoir la page de droite ;o)
Mais entre temps j'avais modifié mon fichier et la cellule était
devenu G4 alors en j'ai refait Alt+F11 et modifié E4 en G4 et là plus
rien.
Désolé de faire appel à nouveau pour corriger ma bévue.
-Collerlecode ci-dessous dans la fenêtre de droite '--------------- Private Sub Worksheet_Activate() Dim x As Integer x = [e4].Interior.ColorIndex For i = 1 To 3 [e4].Interior.ColorIndex = 3 Application.Wait (Time + TimeValue("0:00:01")) [e4].Interior.ColorIndex = x Application.Wait (Time + TimeValue("0:00:01")) Next End Sub '-------------------
Merci. Ça a très bien fonctionné bien que j'avais une page grise en ouvertur e et là j'ai cherché comment avoir la page de droite ;o)
Mais entre temps j'avais modifié mon fichier et la cellule était devenu G4 alors en j'ai refait Alt+F11 et modifié E4 en G4 et là plus rien.
Désolé de faire appel à nouveau pour corriger ma bévue.
Salutations
Pierre Fonds
On Oct 19, 12:44 pm, Pierre Fonds wrote:
Voili voila! Mon erreur évidemment.
J'ai aligné mes yeux devant les trous comme on dit et j'ai relevé que le changement de E4 à G4 n'avait pas été fait partout.
Mes excuses, mes remerciements et bon dîner. :o)))
On Oct 19, 12:44 pm, Pierre Fonds <gaetan.gou...@sympatico.ca> wrote:
Voili voila! Mon erreur évidemment.
J'ai aligné mes yeux devant les trous comme on dit et j'ai relevé que
le changement de E4 à G4 n'avait pas été fait partout.
Mes excuses, mes remerciements et bon dîner. :o)))
J'ai aligné mes yeux devant les trous comme on dit et j'ai relevé que le changement de E4 à G4 n'avait pas été fait partout.
Mes excuses, mes remerciements et bon dîner. :o)))
AndréBdR
Si Pierre Fonds souhaite obtenir un clignotement un peu plus nerveux, genre trois flashs en un peu moins d'une seconde, je lui suggère d'intégrer dans ta macro deux boucles For Next d'attente de grande envergure, du style:
Private Sub Worksheet_Activate() Dim x As Integer x = [e4].Interior.ColorIndex For i= 1 To 3 [e4].Interior.ColorIndex=3 For j=0 To 10000000 '(à adapter) Next j [e4].Interior.ColorIndex=x For j=0 To 10000000 '(à adapter) Next j Next i End Sub
"Jacky" a écrit dans le message de news:
Bonsoir,
-Sélection de la feuille SUIVI -Alt+F11 -Coller le code ci-dessous dans la fenêtre de droite '--------------- Private Sub Worksheet_Activate() Dim x As Integer x = [e4].Interior.ColorIndex For i = 1 To 3 [e4].Interior.ColorIndex = 3 Application.Wait (Time + TimeValue("0:00:01")) [e4].Interior.ColorIndex = x Application.Wait (Time + TimeValue("0:00:01")) Next End Sub '-------------------
-- Salutations JJ
"Pierre Fonds" a écrit dans le message de news:
Bonjour,
Fichier nommé: CONCOURS Feuille de travail nommé: SUIVI
À chaque fois que la feuille de travail SUIVI est sélectionnée, est-il possible de faire clignoter 2 ou 3 fois le libellé inscrit en cellule E4 ? ou sinon de faire modifier la couleur de fonds 2, 3 fois afin d'attirer l''attention ? Comment le faire.
SVP je ne m'y connais pas en VBA alors je cherche un petit copier/ coller. :o)))
Merci
Si Pierre Fonds souhaite obtenir un clignotement un peu plus nerveux, genre trois flashs en un peu
moins d'une seconde, je lui suggère d'intégrer dans ta macro deux boucles For Next d'attente de
grande envergure, du style:
Private Sub Worksheet_Activate()
Dim x As Integer
x = [e4].Interior.ColorIndex
For i= 1 To 3
[e4].Interior.ColorIndex=3
For j=0 To 10000000 '(à adapter)
Next j
[e4].Interior.ColorIndex=x
For j=0 To 10000000 '(à adapter)
Next j
Next i
End Sub
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news: OezJ4dNUKHA.3392@TK2MSFTNGP06.phx.gbl...
Bonsoir,
-Sélection de la feuille SUIVI
-Alt+F11
-Coller le code ci-dessous dans la fenêtre de droite
'---------------
Private Sub Worksheet_Activate()
Dim x As Integer
x = [e4].Interior.ColorIndex
For i = 1 To 3
[e4].Interior.ColorIndex = 3
Application.Wait (Time + TimeValue("0:00:01"))
[e4].Interior.ColorIndex = x
Application.Wait (Time + TimeValue("0:00:01"))
Next
End Sub
'-------------------
--
Salutations
JJ
"Pierre Fonds" <gaetan.goulet@sympatico.ca> a écrit dans le message de news:
7c42656a-0b39-4f52-9556-672d025270cf@r36g2000vbn.googlegroups.com...
Bonjour,
Fichier nommé: CONCOURS
Feuille de travail nommé: SUIVI
À chaque fois que la feuille de travail SUIVI est sélectionnée, est-il
possible de faire clignoter 2 ou 3 fois le libellé inscrit en cellule
E4 ? ou sinon de faire modifier la couleur de fonds 2, 3 fois afin
d'attirer l''attention ? Comment le faire.
SVP je ne m'y connais pas en VBA alors je cherche un petit copier/
coller. :o)))
Si Pierre Fonds souhaite obtenir un clignotement un peu plus nerveux, genre trois flashs en un peu moins d'une seconde, je lui suggère d'intégrer dans ta macro deux boucles For Next d'attente de grande envergure, du style:
Private Sub Worksheet_Activate() Dim x As Integer x = [e4].Interior.ColorIndex For i= 1 To 3 [e4].Interior.ColorIndex=3 For j=0 To 10000000 '(à adapter) Next j [e4].Interior.ColorIndex=x For j=0 To 10000000 '(à adapter) Next j Next i End Sub
"Jacky" a écrit dans le message de news:
Bonsoir,
-Sélection de la feuille SUIVI -Alt+F11 -Coller le code ci-dessous dans la fenêtre de droite '--------------- Private Sub Worksheet_Activate() Dim x As Integer x = [e4].Interior.ColorIndex For i = 1 To 3 [e4].Interior.ColorIndex = 3 Application.Wait (Time + TimeValue("0:00:01")) [e4].Interior.ColorIndex = x Application.Wait (Time + TimeValue("0:00:01")) Next End Sub '-------------------
-- Salutations JJ
"Pierre Fonds" a écrit dans le message de news:
Bonjour,
Fichier nommé: CONCOURS Feuille de travail nommé: SUIVI
À chaque fois que la feuille de travail SUIVI est sélectionnée, est-il possible de faire clignoter 2 ou 3 fois le libellé inscrit en cellule E4 ? ou sinon de faire modifier la couleur de fonds 2, 3 fois afin d'attirer l''attention ? Comment le faire.
SVP je ne m'y connais pas en VBA alors je cherche un petit copier/ coller. :o)))