Microsoft 365 Mise en forme conditionnelle dans userform

  • Initiateur de la discussion Initiateur de la discussion bibbip35
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bibbip35

XLDnaute Occasionnel
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
 

Pièces jointes

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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
103
Réponses
6
Affichages
159
Réponses
25
Affichages
612
Retour