Microsoft 365 Mise en forme conditionnelle dans userform

[bibbip35]

Bonjour à tous

Je cherche a afficher une mise en forme conditionnelle type Barre de donnée dans un userfom
afin de l'utiliser comme barre d'avancement de taches

Mon idée était de copier la cellule en question en image puis de l'afficher dans un userform tous comme un graphique

Mais est-ce la bonne piste ?

Merci encore pour votre aide

Bibbip35

 

[fanch55]

Bonjour, pourquoi pas un progress bar dans l'userform ?

Progress Indicator in Excel VBA

Learn how to create a program in Excel VBA that creates a progress indicator. We've kept the progress indicator as simple as possible, yet it looks professional. Are you ready?

www.excel-easy.com

Comment afficher une barre de progression avec un formulaire utilisateur dans Excel - Office

Décrit comment afficher une barre de progression avec un formulaire utilisateur dans Excel.

docs.microsoft.com

 

[patricktoulon]

bonjour
une autre methode

un barre de progression simple avec look seven ,vista ,xp,etc

bonjour a tous cet userform est une barre de progression offrant une visibilité sur l'avancement dans une boucle de travail elle offre un look simple mais néanmoins vous avez 3/4 choix de style couleur

www.excel-downloads.com

 

[fanch55]

Salut @patricktoulon ,
Désolé, j'avais pas vu sur XLD, je viens de découvrir la zone Téléchargements ...

 

[patricktoulon]

bonjour @fanch55
tu n'a pas a être désolé 3 propositions a étudier c'est toujours mieux
et il y en a d'autres me semble t il dans le forum
ca fait de la lecture

 

[bibbip35]

Merci
Mais je pense que je me suis mal expliqué . ce que je cherche à faire est une barre d'avancement
a chaque fois que je prélève un produit...
Exemple : Pour un prélèvement de 7 sur 10 , je souhaiterais avoir 70% , etc...
La valeur de 70% etant affiché par la mise en forme condittionnelle

Merci

 

[bibbip35]

Bonjour à tous

Je reviens avec un fichier exemple ... Pour être plus factuel
Mon but serait d'afficher l'image de "avancement" dans l'image2 de l'userform

Avez-vous une idée ? Je suis passer par une macro que j'utilisais pour afficher les graphique
mais sans succès ...

Set g = Sheets("Calcul").Shapes.Range(Array("avancement"))
fichier = ActiveWorkbook.Path & "\" & "graphe.gif"
g.Export Filename:=fichier, FilterName:="gif"

Merci encore pour votre aide

Bibbip35

 

[fanch55]

A mettre dans votre UserForm:

Private Sub UserForm_Initialize()
Dim File As String
Dim Group_Pictures As Object

File = ActiveWorkbook.Path & "\UImg" & Format(Now, "yyyymmddhhmmss") & ".jpg"
    Set Group_Pictures = [avancement]
        With ActiveSheet.ChartObjects.Add(0, 0, Group_Pictures.Width, Group_Pictures.Height)
            Group_Pictures.CopyPicture
            .Chart.ChartArea.Select
            .Chart.Paste
            .Chart.Export File
            .Delete
        End With
        Image2.Picture = LoadPicture(File)
    Set Group_Pictures = Nothing
Kill File

End Sub

 

[bibbip35]

Merci Impecable ca fonctionne parfaitement