Degrader de couleurs dans un Label

Bonsoir a tous, bonsoir forum,

Dans le fichier ci-joint que j'ai trouver sur le net effectue un affichage dégrader de couleurs.

Serait t'il de modifier le code afin de l'utiliser pour faire une barre d'attente en affichant progressivement le dégradé couleur

dans le Label1 qui se trouve dans l'USF

Je souhaiterai svp démarrer l'affichage en Rouge a gauche en allant vers le Vert a droite.

j'ai fait des essais mais je ni arrive pas, j'ai juste rajouter le Label(1) et deux lignes de code en REM en bas du code principal

Si vous avez le temps de voir si cela est possible, une bonne soirée et merci a vous.

Cordialement Ray

Bonsoir,

A ma connaissance, ce type d'objets n'accepte pas de dégradés.

Salut MFerrand, Salut forum,

Merci pour ta réponse, c'est sympa.

J'avais peur de la réponse, bien voila, après avoir poster hier, j'ai de nouveau chercher sur le net si je trouvais un code pour

faire une attente dégradé et j'ai lu la même réponse que toi.

Ce n'ai pas grave, sinon peut être une autre idée a me soumettre sur le sujet, je suis preneur.

Le but étant que pendant qu'une liste de fichiers se charge, je souhaiterai svp pour faire patientez, afficher tout comme

un "" progressbar "" ou toute autre ressemblance qui progresserai dans mon USF de la gauche en Rouge vers la Droite et finir en Vert.

Merci a si vous avez une idée pour ce faire où des démos que je pourrai modifier.

Une bonne journée a toi ainsi qu'a vous tous.

Cordialement Raymond

Bonjour,

Tu peux créer une image en dégradé que tu dévoiles au fur et à mesure par exemple.

Salut theze,

Merci de ta réponse mais je ne comprends pas trop ce que tu veux dire, désolé

si tu a un exemple qui serait plus explicite pour moi, je suis preneur

Merci a toi bonne journée

au plaisir cdlt Ray

Voilà un petit fichier exemple que j'ai vite fais et forcément l'image contenu dans le label n'est pas top mais à toi de faire en sorte qu ça te convienne !

Salut a tous, Salut forum,

Salut Theze

Merci beaucoup pour le programme, j'ai un peu arranger a ma sauce et c'est presque bon, je vais finir demain.

Je posterai le résultat.

Juste un truc, svp, si tu a le temps, ca m'arrangerai bien si tu pouvais adapter le code que tu a fait

sous forme d'une macro SUB comme ça dès que j'ai besoin, je pourrai appeler directement la macro SUB.

Je te remercie de ta sympathie et de ton savoir partager. beaujolais avec modération

La bonne soirée a toi.

Cordialement Raymond

Bonjour,

Comme ceci peut être :

Private Sub CommandButton1_Click()

    Progression Label1, Label2, 10000
    MsgBox "C'est fini !"

End Sub

Sub Progression(LblImage As MSForms.Label, LblCache As MSForms.Label, Maxi As Double)

    Dim R As Double
    Dim I As Long

    For I = 1 To Maxi

        'calcul du rapport
        R = LblImage.Width / Maxi

        'progression (rétressissement du masque)
        LblCache.Width = LblImage.Width - I * R

        'positionne le masque de façon à avoir la progression de la gauche vers la droite
        LblCache.Left = LblImage.Left + LblImage.Width - LblCache.Width

        DoEvents

    Next I

    'cache à nouveau la barre de progression une fois fini
    LblCache.Width = LblImage.Width
    LblCache.Left = LblImage.Left

End Sub

Salut theze

Merci bien super sympa,

j'essaie j'adapte a mon programme et je retournerai le résultat dès que fini

Bon courage si boulot sinon une bonne journée quand a toi

Cdlt Raymond

Salut a tous, Salut forum

Salut Theze,

Voila j'ai adapter a mon besoin et ce n'ai pas fini encore quelques bricoles a faire

mais déjà un début si ca peut aider d'autres personnes.

Mon nombre de fichiers a traiter est de 2009 pour l'instant.

(1) Synchroniser l'affichage du bargraff par rapport aux nombres de fichiers

(2) Afficher le nombre de fichiers ainsi que le pourcentage dans le Label4

(3) Voir svp le fichier ci-joint ou j'ai mis quelques explications.

Je souhaiterai svp encore un petit coup de main car les maths et moi

Je post également l'image Sablier.gif et BandoColor.jpg pour Lblimage (Label2)

et le sablier.gif pour le WebBrowser1

Le WebBrowser2 c'est pour le défilement du message, pour l'instant ca focntionne chez moi.

Voila ca avance pour moi, grâce a l'aide apporter.

Merci a tous, merci Theze et je vous souhaite la bonne soirée.

Cordialement Raymond

Bonjour,

(1) Synchroniser l'affichage du bargraff par rapport aux nombres de fichiers

Pour pouvoir utiliser la progression, il faut que ton traitement soit dans la boucle (pour t'aider un peu plus il nous faudrait savoir ce que tu veux faire exactement). Un exemple :

Private Sub CommandButton1_Click()

    Dim Cls As Workbook
    Dim I As Long
    Dim Valeur As Long

    Valeur = 2009                     '2009 Est le nombre de fichiers actuels

    Application.ScreenUpdating = False

    LblCache.Visible = True
    Lblimage.Visible = True

    For I = 1 To Valeur

        'par exemple, un tableau contenant tous les chemins et noms des 2009 classeurs à traiter
        Set Cls = Workbooks.Open(Tablo(I)) 'ouverture du classeur

        'affichage de l'index du fichier en cours avec le pourcentage
        Label4.Caption = "Fichier " & I & " (" & Format(I / Valeur, "#0%") & ")"

        Progression I, Valeur 'fait avancer d'un cran
        DoEvents

        'Traitement du classeur...
        'c'est ici que tu dois faire ce que tu veux sur le classeur en cours...

        Cls.Close 'fermeture du classeur avant de passer au suivant

    Next I

    Application.ScreenUpdating = True

End Sub

(2) Afficher le nombre de fichiers ainsi que le pourcentage dans le Label4

voici la ligne de code que j'ai rajouté dans la boucle du code ci-dessus :

Label4.Caption = "Fichier " & I & " (" & Format(I / Valeur, "#0%") & ")"

il te faut supprimer celle que tu as mis dans "Progression" :

UserForm1.Label4.Caption = Format(Valeur, "#,##0"" 0%")

sinon, conflit !

(3) Voir svp le fichier ci-joint ou j'ai mis quelques explications.

Dans le code Initialize du formulaire, tu rajoutes ces deux lignes afin de cacher les Labels :

LblCache.Visible = False
Lblimage.Visible = False

Bonsoir Theze,

Merci pour toutes ces infos et codes, j'ai encore avancer, merci

J'ai remarquer que le défilement du progress bar ne reste pas afficher a la fin de son parcours

il disparait pour laisser la place a l'affichage du MSGBOX

Voila merci pour ton aide bonne soirée a toi

* je t'ai fait une réponse par mail

a plus tard

Cdlt Raymond

Bonjour,

Si tu veux que la barre de progression reste à 100% une fois fini, supprimes ces deux lignes de la proc "Progression" :

LblCache.Width = Lblimage.Width
LblCache.Left = Lblimage.Left

Salut Theze,

Merci pour la modification, ca fonctionne comme je le souhaitai.

Serait t'il possible de faire se déplacer de gauche a droite le petit Label4 (rose) voir la photo de façon

a ce que le label4 suive le même déplacement que le progress et tous en conservant les données du Label4 .

voir svp la photo ci-jointe

Merci beaucoup pour ton aide efficace, je vais pouvoir bientôt passer aux choses sérieuses.

Je te souhaite un excellent W-end, merci.

Cordialement Raymond

Bonjour Raymond et tous le monde,

Dans la proc "Progression" à la fin, tu rajoutes la ligne de code suivante :

Label4.Left = LblCache.Left - Label4.Width / 2

Salut Theze,

Merci pour la réponse et pour le code, pourtant j'ai essayer et je ne suis pas parvenu

a faire bouger le Label d'un pixel.

J'ai persévérer car j'avais déjà vu ce style de déplacement.

Encore merci a toi.

Très bon w-end a toi, ainsi qu'a tous

Cdlt Ray

Bonjour Raymond,

Alors voici le code de la proc "Progression" avec la ligne de code servant au déplacement du Label :

Sub Progression(ByVal Valeur As Double, ByVal Maxi As Double)

    Dim R As Double

      R = Lblimage.Width / Maxi

    LblCache.Width = Lblimage.Width - Valeur * R
    LblCache.Left = Lblimage.Left + Lblimage.Width - LblCache.Width

    Label4.Left = LblCache.Left - Label4.Width / 2

    If Valeur = Maxi Then

'        LblCache.Width = Lblimage.Width
'        LblCache.Left = Lblimage.Left
        MsgBox "C'est bio hein !"

    End If

End Sub

Salut Theze,

Merci pour la modification, je vais adapter a mon programme.

Sur mon programme d'essai ca fonctionne bien nickel comme souhaiter.

Encore de l'ordre a faire sur le programme principal puis j'adapterai tout les derniers codes de ce poste.

Je clos ce sujet dans l'immédiat, pour sans doute bientôt un autre

Encore merci Theze bon dimanche a toi et bon dimanche a tous.

Cdlt Raymond