Discussion :

[Denis_67]

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 :

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
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

[anasecu]

Bonsoir,

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 ?

[NVCfrm]

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 ?

[unparia]

Bonjour
j

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
"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.

[Denis_67]

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

[pijaku]

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 :

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
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

[Denis_67]

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