AFFICHER IMAGE DANS USERFORM SELON TEXTBOX Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
Avatar du membre
maximob
Membre fidèle
Membre fidèle
Messages : 290
Inscrit le : 14 octobre 2014
Version d'Excel : EXCEL 2010

Message par maximob » 1 janvier 2015, 10:50

Bonjour tout le monde,

je voudrai que l'image5 de la banque change selon la valeur du textbox13. j'espère avoir une réponse de votre part les amis. merci

voici mon fichier :
Excel-pratique v1.xlsm
(263.1 Kio) Téléchargé 504 fois

N.B : si vous avez des propositions à faire pour les codes utilisés, elles seront les bienvenues.
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 7'073
Appréciations reçues : 370
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 1 janvier 2015, 12:02

Bonjour et Bonne Année et Bonne Santé !!! :D

petit code à tester, en sachant que les images auront comme nom la valeur du combobox avec l'extension ".JPG"
et qu'elles se trouveront dans le dossier Images_banques qui lui sera sur C:\
Private Sub ComboBox1_Change()
Le_chemin_de_mon_Image = "c:\Images_banques\" & ComboBox1.Value & ".jpg"
Image5.Picture = LoadPicture(Le_chemin_de_mon_Image)
End Sub
Après il faut parfaire cette idée en faisant des tests sur l'existance du fichier ou tout simplement en rajoutant
On error resume next avant de demander d'afficher l'imege et en mettant
On Error Goto 0
Private Sub ComboBox1_Change()
Le_chemin_de_mon_Image = "c:\Images_banques\" & ComboBox1.Value & ".jpg"
On Error Resume Next ' inhibition des erreurs
Image5.Picture = LoadPicture(Le_chemin_de_mon_Image) ' si le fichier n'existe pas, pas d'erreur vu l'instruction juste au dessus
On Error Goto 0 ' on remet la gestion des erreurs pour la suite du code
End Sub
@ bientôt

LouReed
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Avatar du membre
maximob
Membre fidèle
Membre fidèle
Messages : 290
Inscrit le : 14 octobre 2014
Version d'Excel : EXCEL 2010

Message par maximob » 1 janvier 2015, 15:00

Bonne année LouReed, pleine de joie de bonheur et de prospérité.

a tester , je te confirmerai ma réponse positive cher génie ;;)
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 7'073
Appréciations reçues : 370
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 1 janvier 2015, 15:14

:lol:
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Avatar du membre
maximob
Membre fidèle
Membre fidèle
Messages : 290
Inscrit le : 14 octobre 2014
Version d'Excel : EXCEL 2010

Message par maximob » 2 janvier 2015, 09:05

Eh oui, je te l'avais dis, t'es vraiment un génie et j'insiste . c'est impeccable , introuvable et ça se voit.
Avatar du membre
LouReeD
Contributeur
Contributeur
Messages : 7'073
Appréciations reçues : 370
Inscrit le : 14 octobre 2014
Version d'Excel : 2013 FR, 2016 FR
Contact :
Téléchargements : Mes applications

Message par LouReeD » 2 janvier 2015, 11:27

:) :D :o :lol: :oops: ::B. ::B-
Merci quoi...

@ bientôt

LouReeD
Quelques règles à lire ICI ;;)
______________________________________________________Vous pouvez allez faire un tour sur : Index de "Mes applications" ;;)
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message