Re:comment colorer des cellules toutes les seconde
Bonjour,
Ci-dessous un exemple à adapter à ton cas.
Sub everysecond()
Start = Timer ' mémorise le temps de départ
Do 'boucle indéfiniement
Do While Timer < Start + C 'attend qu'une seconde soit écoulé
DoEvents 'laisse les autres évennements se faire (appui touche)
Loop
C = C + 1 'incrémente
Cells(6, 5 + C).Interior.ColorIndex = 12 'colorie cellule ligne 6 à partir de la colonne D
Loop
End Sub
La macro s'arrête avec un appui sur CTRL+Pause.
Bonne continuation