Microsoft 365 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 !
 

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
 

Modeste geedee

XLDnaute Barbatruc
Bonsour®
code épuré ... une seule ligne de code !
1585220448264.png
 

Pièces jointes

  • test2 (1).xlsm
    303.4 KB · Affichages: 14

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:

Discussions similaires

Réponses
12
Affichages
394

Statistiques des forums

Discussions
311 726
Messages
2 081 955
Membres
101 852
dernier inscrit
dthi16088