J'ai encore un problème. Pour simplifier j'ai deux images Image1 et Image2
dans feuil1.
Je veux lorque je clique sur l'image 1, mettre l'image 2 dans l'image1.
voici mon code :
Private Sub Image1_Click()
Feuil1.OLEObjects("Image1").Object.Picture =
Feuil1.OLEObjects("Image2").Object.Picture
End Sub
Mais rien ne se passe aussitot. Il faut ensuite soit changer de feuille et
revenir sur la feuil1 (et là l'image s'est mise) soit cliquer sur une image
(image2, image3, ou autre mais pas image1) puis sur Image1 pour qu'enfin
l'image s'affiche.
Je ne comprends pas trop le pourquoi de ceci et encore moins comment y
remédier.
Merci
Olivier
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
GD
Bonsour® Olivier voir l'utilisation de l'instruction DoEvents @+ wrote:
J'ai encore un problème. Pour simplifier j'ai deux images Image1 et Image2 dans feuil1. Je veux lorque je clique sur l'image 1, mettre l'image 2 dans l'image1. voici mon code : Private Sub Image1_Click() Feuil1.OLEObjects("Image1").Object.Picture > Feuil1.OLEObjects("Image2").Object.Picture End Sub Mais rien ne se passe aussitot. Il faut ensuite soit changer de feuille et revenir sur la feuil1 (et là l'image s'est mise) soit cliquer sur une image (image2, image3, ou autre mais pas image1) puis sur Image1 pour qu'enfin l'image s'affiche. Je ne comprends pas trop le pourquoi de ceci et encore moins comment y remédier. Merci Olivier
Bonsour® Olivier
voir l'utilisation de l'instruction DoEvents
@+
wrote:
J'ai encore un problème. Pour simplifier j'ai deux images Image1 et
Image2 dans feuil1.
Je veux lorque je clique sur l'image 1, mettre l'image 2 dans
l'image1. voici mon code :
Private Sub Image1_Click()
Feuil1.OLEObjects("Image1").Object.Picture > Feuil1.OLEObjects("Image2").Object.Picture
End Sub
Mais rien ne se passe aussitot. Il faut ensuite soit changer de
feuille et revenir sur la feuil1 (et là l'image s'est mise) soit
cliquer sur une image (image2, image3, ou autre mais pas image1) puis
sur Image1 pour qu'enfin l'image s'affiche.
Je ne comprends pas trop le pourquoi de ceci et encore moins comment y
remédier.
Merci
Olivier
Bonsour® Olivier voir l'utilisation de l'instruction DoEvents @+ wrote:
J'ai encore un problème. Pour simplifier j'ai deux images Image1 et Image2 dans feuil1. Je veux lorque je clique sur l'image 1, mettre l'image 2 dans l'image1. voici mon code : Private Sub Image1_Click() Feuil1.OLEObjects("Image1").Object.Picture > Feuil1.OLEObjects("Image2").Object.Picture End Sub Mais rien ne se passe aussitot. Il faut ensuite soit changer de feuille et revenir sur la feuil1 (et là l'image s'est mise) soit cliquer sur une image (image2, image3, ou autre mais pas image1) puis sur Image1 pour qu'enfin l'image s'affiche. Je ne comprends pas trop le pourquoi de ceci et encore moins comment y remédier. Merci Olivier
