Microsoft 365 Userform ajout photos suivant valeur textbox

raf26 · 26 Mars 2020

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 · 26 Mars 2020

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 · 26 Mars 2020

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 · 26 Mars 2020

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

raf26 · 26 Mars 2020

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 · 26 Mars 2020

Je ferme ce fil et ré ouvre un nouveau.

Cordialement

Microsoft 365 Userform ajout photos suivant valeur textbox

raf26

XLDnaute Occasionnel

Pounet95

XLDnaute Occasionnel

raf26

XLDnaute Occasionnel

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

raf26

XLDnaute Occasionnel

raf26

XLDnaute Occasionnel

Discussions similaires