Microsoft 365 Mise en forme conditionnelle dans userform

fanch55

XLDnaute Barbatruc

• 3 Avril 2021

• #2

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Avril 2021

• #3

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 3 Avril 2021

• #4

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Avril 2021

• #5

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

 

Vote positif 0 Vote négatif

B

bibbip35

XLDnaute Occasionnel

• 3 Avril 2021

• #6

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

 

Vote positif 0 Vote négatif

B

bibbip35

XLDnaute Occasionnel

• 3 Avril 2021

• #7

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

 

Pièces jointes

• Controle par prelevement BIBBIP35.xlsm

  37.3 KB · Affichages: 12

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 3 Avril 2021

• #8

A mettre dans votre UserForm:

VB:

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

 

Vote positif 0 Vote négatif

B

bibbip35

XLDnaute Occasionnel

• 4 Avril 2021

• #9

Merci Impecable ca fonctionne parfaitement

 

Vote positif 0 Vote négatif