Faire clignoter le contenu d'une cellule

Le
Pierre Fonds
Bonjour,

Fichier nommé: CONCOURS
Feuille de travail nommé: SUIVI

À chaque fois que la feuille de travail SUIVI est sélectionnée, est-i=
l
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #20380531
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"
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
Le #20380631
On Oct 19, 12:16 pm, "Jacky"
-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
Le #20380921
On Oct 19, 12:44 pm, Pierre Fonds

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)))
AndréBdR
Le #20442311
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"
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"
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




Publicité
Poster une réponse
Anonyme