Résolu Userform ajout photos suivant valeur textbox

raf26

XLDnaute Occasionnel
Bonjour,

Je coince sur mon userform malgré 2 jours de recherche, je n'ai pas trouvé le code qui me convient.

Je souhaite que :

- dans mon userform, que la photo de la voiture correspondante à la textbox 1 soit affichée.

- La textbox 1 est alimentée par la combobox 1.

- Les images (au nombre de 3) sont dans une feuille du classeur et sont nommées par véhicule.

Cela ne doit pas être compliqué, mais je n'ai pas trouvé le bon code malgré mes recherches (soit je trouve photo alimentée par combobox et je n'arrive pas à adapter pour textbox, soit photo via un chemin sur disque dur).

Je précise que je souhaite les photos dans une feuille du classeur, le fichier sera utilisé par plusieurs pc et la question de poids de fichier ne se pose pas (seulement 3 images).

Je vous joint un fichier test épuré.

Merci d'avance pour vos contributions.

Bonne journée et.....restez chez vous !
 

Fichiers joints

Pounet95

XLDnaute Occasionnel
Bonjour,
Dans mon fichier relatif à l'Euro 2020 il y a un module VBA qui le fait.
Idem pour le fil de Dim hier et ce matin
VB:
Sub Logo_Truc()
    'L Longre, mpfe
    Dim FicTmp As String
        
    FicTmp = Space(200)
    GetTempFileNameA Environ("TMP"), "", 0, FicTmp
    FicTmp = Left$(FicTmp, InStr(FicTmp, vbNullChar) - 1)
 
    Worksheets("Paramètres").Range("K27").CopyPicture       'K27 cellule contenant l'image

    OpenClipboard 0
    DeleteEnhMetaFile CopyEnhMetaFileA(GetClipboardData(14), FicTmp)
    CloseClipboard
    With USF_MAGASIN
        .img_Logo_Truc.Picture = LoadPicture(FicTmp)
        Kill FicTmp
        Exit Sub
    End With
End Sub
 

raf26

XLDnaute Occasionnel
Bonjour Pounet95

Merci pour ton retour.

Je viens de télécharger ton fichier Euro2020 mais je plane complet, je n'arrive pas à transposer sur mon fichier, trop complexe pour moi.

Au passage, bravo pour ce boulot !
 

raf26

XLDnaute Occasionnel
Bonjour Modeste Geedee

Merci pour ton retour, génial.

Cependant je voudrais que la photo ne soit affichée que dans l'userform (qui se lancera à l'ouverture du fichier) et non pas sur la feuille active.


J'ai trouvé ce code sur le site de Boisgontier, mais je n'arrive pas à adapter pour que ce soit la valeur de ma textox qui déclenche l'image, et non pas la valeur de la combobox.

Capture d’écran 2020-03-26 à 12.25.52.jpg


Merci
 
Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas