Discussion :

[friout]

Bonjour à tous,

Je souhaiterai télécharger une image dans le cadre image d'un userform lorsque l'on clique sur ce cadre.
En gros, ce que je souhaite, c'est que l'userform s'affiche avec un cadre vierge, l'utilisateur clique sur ce cadre et une image apparait dans ce cadre. La réponse me semblait facile avec ce code :

Code :

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

1
2
3
4
5
 
Private Sub Image1_Click()
UserForm1.Image1.Picture = LoadPicture("le chemin d'accès")
Cells(1, 1).Value = 1
End Sub

(j'ai mis le cells(1,1)=1 pour m'assurer qu'on passait bien dans le code).

Mais rien ne s'affiche. Le plus énervant, c'est qu'en exécutant ce petit bout de code en pas à pas, il fonctionne très bien...
J'ai aussi essayé ce code avec deux images : lorsque l'on clique sur l'une le code affiche une image dans l'autre, celà fonctionne, mais modifier le cadre sur lequel l'utilisateur a cliqué ne marche jamais (sauf en débogage).

Savez-vous ce qui cloche ?

Merci à vous, bonne journée !

[mercatog]

Code :

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

1
2
3
4
Private Sub Image1_Click()
Me.Image1.Picture = LoadPicture("C:\Users\user\Pictures\kachet.jpg")
Me.Repaint
End Sub

[friout]

Merci pour ton aide, effectivement, c'est l'instruction Me.repaint qu'il me manquait.
Calà dit je ne comprends pas pourquoi mon code initial fonctionnait bien en pas à pas...

Merci encore !