Discussion :

[zangaloni]

Bonjour,

Je me demande si c'est possible de faire clignoter la couleur d'une cellule à partir d'un code VBA

Merci et bonne journée.

[Invité]

Bonjour

Une piste Comment faire clignoter une cellule ?

Philippe

[Vadorblanc]

Bonjour
Un code
Ecrire "Zangaloni" dans les cellules A2:C20, lancer la macro, Zangaloni clignote.
Cordialement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub CelluleClignote()
Dim anc As Integer, compteur As Integer, deb As Single, plage As Range, debut As Long, trouve As Range
  On Error Resume Next
  Set trouve = Range("A2:C20").Find("Zangaloni").Find("Zangaloni")
  If Not trouve Is Nothing Then
    Set plage = trouve
    debut = trouve.Row
    Do
      Set trouve = Range("A2:C20").FindNext(trouve)
      Set plage = Union(plage, trouve)
      Loop While Not trouve Is Nothing And trouve.Row <> debut
  End If
  If Not plage Is Nothing Then
    With plage.Font
      anc = .ColorIndex
      For compteur = 1 To 20
       .ColorIndex = IIf(compteur Mod 2 = 0, anc, 2)
       deb = Timer
       Do While Timer - deb < 0.2
         DoEvents
       Loop
      Next
    End With
  End If
 
End Sub

[zangaloni]

Bonsoir,

Je n'ai pas bien compris votre code.

Merci pour le lien.
Mon but est de faire une cellule colorié qui clignote, j'ai essayé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub GetTempo()
    'vTempo = Not vTempo
    Application.OnTime Now + TimeValue("00:00:08"), "GetTempo"
    ThisWorkbook.Sheets(1).Cells(26, 24).Select
    Selection.Interior.ColorIndex = 30
End Sub

et cet tempo je l'appelle la ou je veux déclencher ce clignotage colorié de ma cellule.

merci pour votre aide.

[Vadorblanc]

Bonsoir
Autre façon de procéder, mettre le code dans la Feuil1
Ecrire Zangaloni en A2:C20 de la feuil1 et Zangaloni clignote, mais pas de couleur, uniquement le clignotement Zangaloni pendant quelques secondes et ceci en modifiant n'importe quelle cellule de la feuille.
Cordialement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim anc As Integer, compteur As Integer, deb As Single, plage As Range, debut As Long, trouve As Range
  On Error Resume Next
  Set trouve = Range("A2:C20").Find("Zangaloni").Find("Zangaloni")
  If Not trouve Is Nothing Then
    Set plage = trouve
    debut = trouve.Row
    Do
      Set trouve = Range("A2:C20").FindNext(trouve)
      Set plage = Union(plage, trouve)
      Loop While Not trouve Is Nothing And trouve.Row <> debut
  End If
  If Not plage Is Nothing Then
    With plage.Font
      anc = .ColorIndex
      For compteur = 1 To 20
       .ColorIndex = IIf(compteur Mod 2 = 0, anc, 2)
       deb = Timer
       Do While Timer - deb < 0.2
         DoEvents
       Loop
      Next
    End With
  End If
 
End Sub

[zangaloni]

C'est parfait Mr Vadorblanc
Merci beaucoup, ça marche très bien.

Merci merci

[Vadorblanc]

Bonsoir Zangaloni
Pas de Mr ... nous sommes entre passionnés

Faire la modif pour plus de clignotements:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For compteur = 1 To 2000

N'hésite pas à rentrer dans le code et essaie toi aussi à faire des essais.

Cordialement

[zangaloni]

oui c'est ce que j'avais fait

[Croco40]

Bonsoir Vadorblanc,
Je suis nouveau dans ce forum, peu féru dans le basic, et je salue tous les participants.
J'ai testé votre 1e méthode qui fonctionne fort bien mais qui ne répond pas à mon souhait. En effet, je désire faire clignoter le contenu (quel qu'il soit) de 3 cellules non adjacentes d'une feuille excel, aussi longtemps que la feuille est ouverte et sans avoir besoin de commander l'exécution de la macro.
Si c'est possible, je vous serais bien reconnaissant de m'indiquer le code à appliquer.
Je vous remercie.

[Patrice740]

Bonjour,

C'est bientôt Noël, mais c'est pas une raison pour transformer Excel en sapin lumineux.
Faire clignoter des cellules mobilise inutilement des ressources via VBA.
De plus, commencer un code par On Error resume next sans gérer les erreurs, sans inhiber les évènements, c'est pas ce que j'appelle du code propre !
Dans une feuille sobre, une MFC suffit à mettre en évidence des cellules.

[Croco40]

Bonjour Patrice740.
Je ne veux pas abuser de cet artifice, mais j'en aurais besoin pour attirer l'attention sur des cellules d'une feuille de classeur projetée sur écran. Auriez-vous une solution? Merci.