Discussion :

[Exson13]

Bonjour,

Je crée en se moment un petit fichier de gestion contenant notamment un planning sur une feuille.
Je ne veux pas que les utilisateurs aient accès à une cellule Excel c'est pour cela que je passe majoritairement par des UserForm et des pictures à l'interieur.

Pour effectuer cela j'ai un dossier à la source de mon disque dur qui stock les CopyPictures que je crée via VBA et qui s'actualisent à chaque fois que j'en appelle les procédures.
Puis je les charge sur mes contrôles Images.
des Textbox relié à mon planning permettent de changer les jours du planning

Problème avec mon ancien PC qui lorsque je lançais l'userform m'affichais bien l'image du planning dans mon contrôle mais à chaque changement de jour l'image avait un décalage de jours ( un peu de l'image précédente et un peu de la nouvelle, si j’actualisais 1 ou 2 fois cela se remettais bien ) Je me suis dit que ça venais du PC un peu flemmard.

PC changé , nouveau problème l'image est loadé mais elle est toute blanche, sans le paste du planning

Serait-ce une erreur dans mon code ? Je n'arrive pas à trouver

L'intrigue est de plus que lorsque j'effectue l'ensemble de la procédure en pas à pas elle fonctionne très bien et mon planning s'affiche parfaitement

Voilà le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Planning_Disponibilité()
Dim dossier As String, Image2
Dim Plage As Range
 
On Error GoTo 1
Chemin_Planning = Sheets("Paramètre").Range("E7").Value ' Paramètre Liaison
    Image1 = Chemin_Planning & "\Image_Planning_Disponibilité.jpg"
    Sheets("planning").Select
        Set Plage = Sheets("planning").Range("G2:Ak5")
            Plage.CopyPicture
            With Sheets("planning").ChartObjects.Add(0, 0, Plage.Width, Plage.Height).Chart
                .Paste
                .Export Image2
            End With
 
    Sheets("planning").ChartObjects(Sheets("planning").ChartObjects.Count).Delete
 
    Me.Image2.Picture = LoadPicture(Image1)
 
1
 
End Sub

Je vous remercie d'avance pour vos avis sur le sujet

[clementmarcotte]

Bonjour,

Commence par zigouiller ton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 on error goto

Tu vas avoir au moins les messages d'horreur.

[Exson13]

salut clementmarcotte,

merci pour ta réponse.

aucunes erreurs n'interviennent

as-tu d'autres suggestions ?

[joe.levrai]

Bonjour,

peut-être qu'en rafraichissant ton Userform ça devrait le soulager ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Repaint

juste après la ligne où tu ajoutes l'image

si ça ne suffit pas :

- prévoir d'effacer l'image précédente
- prévoir une temporisation juste avant et après l'insertion

[Exson13]

Bonjour,

Je vous remercie encore pour vos réponses !

Rien des propositions citées n'ont résolu le souci........

Je vais reprendre différemment avec un autre fichier et les mêmes méthodes pour clarifier la procédure

Je reviens vers vous avec un fichier claire si je n'y arrive pas.

N'hésitez pas à rebondir si d'autres recommandations vous viennent

Même résultat avec un autre fichier très simplifié..

Quel est le résultat chez vous ?

Je pense que ça pourrait venir du passage par graphique, ai-je une autre solution ? test.xlsm

[Exson13]

bonjour,

je relance car je n'ai toujours pas résolu mon problème...

J'ai testé au boulot et ça marche très bien sous xl 2007 .

la je ne trouve pas de solution.. j'ai essayé avec un graphique ordinaire et j'arrive bien à avoir une image , mais en partant d'une plage de cellule non

connaissez vous un autre moyen d'afficher une image de cellule dans un formulaire?