Faire varier la couleur d'un fond de Label [Fermé]

Bonjour a tous, forum bonjour


je suis sous Excel 2007 et Windows 7 32bits

But: pendant le temps de chargement de mes fichiers je souhaiterai svp

Voila je cherche si cela est possible faire varier progressivement la couleur de fond dans mon Label63 qui se trouve dans mon UserForm1.

j'ai trouver un début de réponse avec le code si dessous mais ce n'ai pas glorieux, je pense que ca pourrait fonctionner mais je n'arrive pas coder correctement.

si quelqu'un veut bien m'aider sur ce coup la

Grand merci a tous et bon début de W-end

Cdlt Raymond

Public Témoin As Boolean

Sub Attente()
  N = 2009                                        'Nb de fichiers à traiter
  Témoin = True                              'Pour empêcher fermeture du formulaire

     'UserForm1.Show
  For F = 1 To N

'*** Simulation traitement fichier
    For a = 1 To 500000: Next a              'Simulation attente
'***

     p = p + 1 / N                                      'Calcul du pourcentage

     UserForm1.Label63.BackColor = N
     UserForm1.Label63.Width = p * 420       'Longueur du Label

     UserForm1.Label60 = Format(p, "0%")
     'UserForm1.Caption = Format(p, "0%")    'Ecrit en haut a gauche dans l'UserForm1
     DoEvents
  Next F
  Témoin = False
  'Unload UserForm1
End Sub