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

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

2 réponses

Messages postés
15731
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
14 avril 2021
1 481
Bonjour,

Entres autres, sur ce site un exemple de fichier simple telechargeable

https://www.excel-pratique.com/fr/astuces_vba/progress_bar/
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Salut f894009

Merci pour ta réponse c'est gentil.

Pour le bargraff ce que je souhaiterai svp c'est l'évolution progressif tout en changeant de couleur de fond du label.

En fait qu'il démarre Ex: en noir puis blanc puis rouge puis vert puis bleu etc etc peu importe l'ordre des couleurs
progressivement avec la palette ColorIndex va de 1 à 56 je crois
ou bien bien autre palette a utiliser

Merci pour ton aide bon fin d'après midi a toi

Cdlt Ray