Microsoft 365 Userform ajout photos suivant valeur textbox

[raf26]

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 !

 

[Pounet95]

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

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]

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 !

 

[Modeste geedee]

Bonsour®
code épuré ... une seule ligne de code !

 

[raf26]

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.

Merci

 

[raf26]

Je ferme ce fil et ré ouvre un nouveau.

Cordialement