Microsoft 365 Placer une image localisé sur une sheet, dans un formulaire

Staple1600

XLDnaute Barbatruc

• 3 Mars 2021

• #2

Bonsoir le fil,

Test OK chez moi
1) Insertion d'un contrôle Image sur la feuille
2) Insertion d'un contrôle Image sur l'Userform

VB:

Private Sub UserForm_Initialize()
Image1.Picture = Sheets(1).Image1.Picture
End Sub

Voila ce que donne mon exemple

 

Vote positif 0 Vote négatif

A

Antipode

XLDnaute Nouveau

• 3 Mars 2021

• #3

Staple1600 à dit:

Bonjour

Test OK chez moi
1) Insertion d'un contrôle Image sur la feuille
2) Insertion d'un contrôle Image sur l'Userform

Code de l'userform

VB:

Private Sub UserForm_Initialize()
Image1.Picture = Sheets(1).Image1.Picture
End Sub

Cliquez pour agrandir...

salut Staple1600,
Merci pour ton aide,..
cela passe toujours pas chez moi...
la photo ne s'affiche pas et si je lance pas à pas, j'ai un message d'erreur:
"Propriété ou méthode non gérée par cet objet"
peux-tu joindre ton ficher stp avec une simple photo?
:

​

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Mars 2021

• #4

Re

Il faut insérer un contrôle Image sur la feuille
=>Développeur/Insérer/Image (Contrôle ActiveX)
Dans ce contrôle, il faut insérer un image
(En mode création-> Clic-droit sur le contrôle->Propriétés>Cliquer sur Picture pour choisir l'image

Ensuite sur l'Userform
Insérer un contrôle Image

Puis utilisez le code de mon 1er message.

NB: je ne joins de fichier Excel sur le forum le 22 mai 1968, 15 heures de l'aprés-midi.

 

Vote positif 0 Vote négatif

A

Antipode

XLDnaute Nouveau

• 3 Mars 2021

• #5

OK merci, je ré-essaye... truc de fou !... des heures que je passe sur ce stupide prob...

 

Vote positif 0 Vote négatif

A

Antipode

XLDnaute Nouveau

• 3 Mars 2021

• #6

bon, cela ne passe toujours pas... le form s'affiche mais le controle image est vide..

voici ce que j'ai :

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Mars 2021

• #7

Re

Dans mon exemple, le code est dans l'Initialize
Testes déjà comme expliqué dans mon premier message.

 

Vote positif 0 Vote négatif

A

Antipode

XLDnaute Nouveau

• 3 Mars 2021

• #8

c'est ce que j'ai commencé à faire...mais comme cela donnait rien, j'ai adapté..
mais je vais recommencer du début !... vraiment désolé d'abuser de ton temps et merci encore de ton aide

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Mars 2021

• #9

Re

Chez moi, ces quatre procédures fonctionnent

VB:

Private Sub Fermer_Click()
'Image1.Picture = Sheets(1).Image1.Picture
End Sub

Private Sub Image1_Click()
Image1.Picture = Sheets(1).Image1.Picture
UserForm1.Repaint
End Sub

Private Sub UserForm_Click()
'Image1.Picture = Sheets(1).Image1.Picture
End Sub

Private Sub UserForm_Initialize()
'Image1.Picture = Sheets(1).Image1.Picture
End Sub

NB: Je dois juste ajouter UserForm1.Repaint pour Image1_Click

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Mars 2021

• #10

Re

Je te laisse faire différents tests
Je vais regarder un peut la TV (pour changer un peu d'Excel )
Je repasse plus tard pour voir si tu as réussi.

NB: Je viens de voir où tu fais erreur
La ligne concernant l'image ne doit pas être avec le code du bouton sur la feuille
mais dans le code de l'userform
(comme précisé dans le message#2)

 

Vote positif 0 Vote négatif

A

Antipode

XLDnaute Nouveau

• 3 Mars 2021

• #11

il y a un truc incompréhensible !!..ca passe pas !!

 

Vote positif 0 Vote négatif

A

Antipode

XLDnaute Nouveau

• 3 Mars 2021

• #12

ok je check..merci!!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Mars 2021

• #13

Re

Tu peux joindre ton fichier de test.
Je te dirais où cela pêche
(mais fais-vite ma soirée TV va commencer )

 

Vote positif 0 Vote négatif

A

Antipode

XLDnaute Nouveau

• 3 Mars 2021

• #14

je suis dépité et m'en veut tellement !!..
Ca marche !!... toute mes excuses pour avoir été le boulet du jour !!.
merci pour ta patience....
pfff.. je peux avancer..
merci merci !!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Mars 2021

• #15

Re

Pour ma gouverne:
Tu avais fait quelle erreur?

 

Vote positif 0 Vote négatif