Affichage

Bonsoir Didier,

Cette "petite" macro fait clignoter alternativement en rouge et blanc la valeur de la cellule A1 ; l'exécution dure ici environ 5 secondes, le temps d'affichage correspondant à la couleur peut être modifié... Attente (X)

Sub clignoter()
range("A1").Select
Selection.Font.ColorIndex = 3
Attente (2000)
Selection.Font.ColorIndex = 2
Attente (2000)
Selection.Font.ColorIndex = 3
Attente (2000)
Selection.Font.ColorIndex = 2
Attente (2000)
Selection.Font.ColorIndex = 3
Attente (2000)
Selection.Font.ColorIndex = 2
Attente (2000)
Selection.Font.ColorIndex = 3
Attente (2000)
Selection.Font.ColorIndex = 2
Attente (2000)
Selection.Font.ColorIndex = 3
Attente (2000)
Selection.Font.ColorIndex = 2
Attente (2000)
Selection.Font.ColorIndex = 3
Attente (2000)
Selection.Font.ColorIndex = 2
Attente (2000)
Selection.Font.ColorIndex = 3
Attente (2000)
Selection.Font.ColorIndex = 2
Attente (2000)
End Sub

A+ Vériland

Bonsoir Vériland

D'abord merci pour le listing j'avais une une macro avec for to puis goto
ça bloquait le système alors j'ai retapez la boucle plusieurs fois et ça bloque aussi le temps du clignotemet j'ai pas encore tapez celui là et je me
demande si ce sera la même chose

a plus didier

Re bonsoir Didier,

Autant pour moi...

jai oublié de te donner les paramètres d' "Attente"; parce que pour le coup Attente n'est pas un mot clé mais un appel de la macro suivante :

Sub Attente(milisecond As Integer)
Dim Start, PauseTime
PauseTime = milisecond / 7200
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
End Sub

tu rajoutes donc cela à la suite et ça doit fonctionner

Bonne continuation

A+ Vériland