VBA Raffraichir le contenu d'un label

Bonjour,

J'ai inséré un label "DeplVar" sur une feuille excel : Fichier joint

Je génère un chiffre aléatoire que j'inscris dans la case A1 de la feuille et dans le label 'DeplVar" une fois par seconde.

Le problème est que la case A1 est bien rafraichie mais je n'arrive pas à raffraichir le label durant l'exécution de la macro.

Bien entendu je souhaiterai garder le label et ne pas partir sur un cellule.

Si vous avez des idées c'est avec grand plaisir que je les testerai

Merci d'avance pour le temps que vous m'accorderez.

Jordan.

Salut le forum

Sans cellule intermédiare

Private Sub BpStartSimu_Click()
Dim I As Byte

    For I = 0 To 5
        Me.DeplVar.Caption = Round(Rnd(Timer) * 6, 3)
        DoEvents
        PauseResult = Pause(1, Timer)  'Temps de pause (1s)
    Next I

End Sub

Mytå

Super merci Usb512, c'est bien ce DoEvents qui permet de rafraichir