Discussion :

[abdel792]

Bonsoir le forum,

Voilà, je souhaiterais faire clignoter une cellule par l'intermédiaire d'une fonction VBA.

La fonction recevrait la cellule à faire clignoter en paramètre et réaliserait l'opération dans son code.

J'ai fait quelques investigations mais je n'ai toujours pas réussi à obtenir de résultat.

Si la fonction pouvait faire clignoter la cellule pendant un certain moment puis lui redonnerai sa couleur d'origine, ce serait encore mieux.

Je remercie d'avance la personne qui pourrait m'aider.

[Qwazerty]

Salut
Tu devrais étendre tes investigations à Google

Je pense que tu trouveras ton bonheur, j'ai vu une code a base de application.ontime (1er lien) qui me parait bien sympa .

++
Qwaz

[abdel792]

Bonjour,

Merci beaucoup Qwazerty, effectivement, la méthode OnTime est pas mal.

Toutefois, j'ai utilisé une autre méthode, c'est la méthode Wait, toujours avec l'objet Application.

Je n'ai pas encore pu transmettre le Range de la cellule à faire clignoter en paramètre.

Cependant, le code ci-dessous répond très bien à mon attente.

Je vous le colle, en espérant qu'il aidera d'autres personnes.

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
Sub Clignoter()
Dim compteur As Integer, old_color As Integer
old_color = ActiveCell.Interior.ColorIndex
For compteur = 1 To 5
     With ActiveCell.Interior
          .ColorIndex = 6
     End With
     Application.Wait Now + TimeValue("00:00:01") / 1.5
     With ActiveCell.Interior
          .ColorIndex = 3
     End With
     Application.Wait Now + TimeValue("00:00:01") / 1.5
Next
ActiveCell.Interior.ColorIndex = old_color
End Sub

Amicalement.

[Qwazerty]

Salut
Voila pour le passage de paramètres, tu peux aller plus loin en mettant des paramètres optionnels et définir le temps d'attente entre 2 clignotements par exemple.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Clignoter(Cible As Range, ColorWait As Integer, NbrClignot As Integer)
Dim compteur As Integer, old_color As Integer
If NbrClignot < 1 Then NbrClignot = 1
With Cible.Interior
    old_color = .ColorIndex
    For compteur = 1 To NbrClignot
        .ColorIndex = 6
        Application.Wait Now + TimeValue("00:00:01") / 1.5
        .ColorIndex = ColorWait
    Application.Wait Now + TimeValue("00:00:01") / 1.5
    Next
    .ColorIndex = old_color
End With
End Sub

++
Qwaz

[abdel792]

Merci Qwazerty,

Super, ça fonctionne à merveille !

Encore merci à toi.

Amicalement.