Graphique du classeur dans userform

Bonjour,

J'ai un userform qui sert à enregistrer la gestion des machines à laver dans une blanchisserie d'un ESAT.

J'aimerai donner accès aux graphiques aux personnes en situation de handicap directement sur l'userform. Aujourd'hui, les graphiques sont accessibles sur le classeur.

Les graphiques ne s'affichent que si je vais sur l'onglet, que je les sélectionne et que je les agrandis ou réduit, enfin que je "joue" avec la taille du graphique. Lorsque je retourne sur l'userform là, ils s'affichent...

Bref, j'ai un bug de création de l'image je crois? mais je ne vois plus.

Pour ouvrir l'userform, il faut cliquer sur la machine à laver en haut à gauche de l'onglet "poids de linge".

Merci de votre soutien.

Leakim

EDIT Fichier retiré

Bonjour,

Un p'tit UP

Je vous laisse lire le premier post dans lequel j'ai corrigé mes fautes enfin je crois ?

Leakim

Hello !

Pour info, j'ai téléchargé ton fichier mais il plante sur 2013. Je ne suis pas certain que j'aurais pu t'aider dans tous les cas. Mais je bosse avec pas mal d'ESAT, le principe du fichier est intéressant.

Bonjour JoyeuxNoel, merci de ton intérêt.

Me voilà bien avec des bug sur mon fichier test...

Voici le code en question :

Sub Graphique()
Dim i As Long
Dim g as chart
Dim fichier as string

On Error GoTo errgraph

    For i = 1 To 5
        Set g = Sheets("Graph").ChartObjects("Graph " & i).Chart
            fichier = ThisWorkbook.Path & "\ImageTemp" & i & ".gif"
            g.Export Filename:=fichier, FilterName:="GIF"
            UsFAct.Controls("graph" & i).AutoSize = True
            UsFAct.Controls("graph" & i).Picture = LoadPicture(fichier)
            Kill fichier
        Set g = Nothing
    Next i

Exit Sub
errgraph:

    MsgBox "Graphique " & i & " absent de ce PC.", vbExclamation, "ERREUR graphique"

End Sub

Merci

Leakim

Ps: il faudra que l'on reparle de nos expériences respectives avec les outils en ESAT

Bonjour,

Cherchant une issue à mon problème, j'ai élargie les ressources en postant mon problème sur un autre forum.

J'ai trouvé une réponse qui mérite d'être rapportée ici.

La proposition de résolution était de faire un scroll sur la feuille afin qu'Excel découvre le graphique non visible sur la feuille...

La théorie qui serait que pour faire des économie de mémoire, Excel n'explore que la zone visible de la feuille non son intégralité.

Je reviens pour valider la théorie !

J'ai refait ma mise en page des graphiques quitte à la mettre en tas les uns par dessus les autres et bien, OUI !

Ils s'affichent tous sans bug

Mon code initiale fonctionne même si j'avais pas bien déclaré les variables.

Alors, sachez le, l'affichage des graphiques en userform est conditionné par leur visibilité sur la feuille du classeur.

Un GRAND MERCI Fanch55.

Leakim