Exécution du code sur l'ecran qui colorie des cellules se fige

Bonsoir,

J'essaie de me bricoler un métronome

J'ai un tempo et je veux défiler une grille de 16 cellules sur 4 rangées.

Chaque fois que j'arrive sur une cellule, j'emets un bip je la met en bleu, j'attends mon tempo, j'efface ma couleur et je passe à la suivante.

Ca fonctionne sauf que au bout de quelques cellules l'écran n'est pas raffraichit.

je ne pense pas que le screenupdating soit concerné puisque celui masque l'exécution en début puis le réactive en fin. (bon j'ai fait un test hasardeux, qui ne fonctionne pas, ça fige quand même au bout de quelques cellules.

je verrais plutot un refresh de buffer qui se remplit même si la macro est très simple

Code:

---

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 28

Private Declare Function Beep Lib "kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub Defilement() Dim tempo As Integer ' le tempo choisi Range("B3").Select tempo = 60000 / Range("W3").Value   'Calage For r = 1 To 4 Beep 500, 100 Sleep tempo Next   'Répétion For l = 0 To 3 For n = 0 To 15 Application.ScreenUpdating = True Cells(l + 3, n + 3).Interior.ColorIndex = 26 Beep 500, 100 Sleep tempo Cells(l + 3, n + 3).Interior.ColorIndex = xlNone '34 Application.ScreenUpdating = False   Next n Next l End Sub

---

Merci pour vos conseils
Denis

Bonsoir,

Citation:

---

Envoyé par Denis_67

je ne pense pas que le screenupdating soit concerné

---

Pourtant c'est bien cela qui pose problème puisque si tu le mets en commentaire cela fonctionne.
Pourquoi utiliser cette fonction alors que tu tiens justement à afficher ?

Au sujet du rafraichissement, imagine mentalement comment se terminer ton code. Si l'execution se termine, l'ecran restera fige.
En plus pour si peu de broutilles, le fond de couleur d'une unique cellule pourquoi ScreenUpdating ?

Bonjour
j

Citation:

---

e ne pense pas que le screenupdating soit concerné puisque celui masque l'exécution en début puis le réactive en fin.

---

Je dois avoir la berlue ou être devenu gâteux. Moi, c'est le contraire, que je lis dans ton code :koi:
"screeupdating" se traduit par "mise à jour de l'affichage". Cette propriété est à True (= vrai) pour permettre l'affichage et à False (= faux) pour l'empêcher.

Bonjour à tous,

J'étais un peu fatigué et j'ai mis mon texte en contradiction avec le code.

Donc en résumé je veux faire défiler une couleur sur une serie de cellules.

Ca démarre bien mais au bout de quelques cellules ça se fige.

Le screenupdating etait un test qui n'a rien changé.
Désolé de la confusion

si je reprends la remarque de NVCfrm, cela aurait il un sens de mettre la boucle qui appelle chaque fois un fonction ou une sub pour le coloriage ?
Denis

Bonjour,

Pour éviter l'écran figé, il te faut virer Application.ScreenUpdating de ta double boucle.
De trop nombreux appels à la procédure Sleep peuvent empêcher le bon fonctionnement de la macro.
Un DoEvents bien placé semble régler le souci.

Code:

---

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

Option Explicit   Private Declare Function Beep Lib "kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)   Sub Defilement() Dim tempo As Long, r As Byte, l As Byte, n As Byte   ' le tempo choisi tempo = 250 '60000 / Range("W3").Value 'Calage For r = 1 To 4 Beep 500, 100 Sleep tempo Next 'Répétion For l = 0 To 3 For n = 0 To 15 Cells(l + 3, n + 3).Interior.ColorIndex = 26 Beep 500, 100 Sleep tempo DoEvents Cells(l + 3, n + 3).Interior.ColorIndex = xlNone '34 Next n Next l End Sub

---

Maintenant ce n'est pas ton plus gros souci.
La régularité est indispensable à l'outil que tu veux mettre en place.
On en est, ici, très loin.

EDIT : Non ça ne fonctionne pas...
EDIT2 : DoEvents

Merci Pijaku,

En effet ça à l'air de fonctionner.J'ai testé la séquence et c'est bon.

Pour la régularité..... ce sera toujours mieux que sans ;).
J'ai ajouté maintenant l'affichage des notes au fur et à mesure que je lis une partition enregistrée dans un tableau qui donne les notes et leurs durées.

je teste ce soir à la maison.

Mes applis à la maison, sont souvent des micros labos pour d'autres appli au boulot ...
en tout cas encore merci.
Denis