Microsoft 365 Valeur Textbox détermine image

[raf26]

Bonjour,

Je ré edite mon post précédent, les solutions apportées ne correspondaient pas à mes attentes.



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

1 - La combobox alimente la textbox --> c'est ok

2 - Je voudrais que la photo de la voiture correspondante à la textbox 1 soit affichée dans l'userform (seulement et pas dans une feuille du classeur)

3 - 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 directement par un combobox et je n'arrive pas à adapter pour textbox, soit les photos sont stockés sur le sur disque dur, ce qui n'est pas mon cas).

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


J'ai essayé plusieurs codes sur le site de Mr Boigontier (pffff quel boulot il fait !), mais pas réussi à adapter.

Je vous joint un fichier test épuré.

Merci d'avance pour vos contributions.

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

 

[Modeste geedee]

Bonsour®
mettre les 3 images dans le userform
Dimensions et proportions identiques
superposer, aligner
le code fera le reste

Private Sub UserForm_Initialize()
Me.Image1.Visible = False
Me.Image2.Visible = False
Me.Image3.Visible = False
End Sub
Private Sub ComboBox1_Change()
With ThisWorkbook.Sheets("donnees")
    Me.Image1.Visible = False
    Me.Image2.Visible = False
    Me.Image3.Visible = False
    For Each Nom In .Range("A2:A" & .[A6500].End(xlUp).Row)
        If CStr(Nom) = CStr(Me.ComboBox1.Value) Then '
            Me.TextBox1.Value = .Cells(Nom.Row, 2)
            Select Case Nom.Row - 1
                Case 1
                    Me.Image1.Visible = True
                Case 2
                    Me.Image2.Visible = True
                Case 3
                    Me.Image3.Visible = True
                Case Else
            End Select
        End If
    Next
End With
DoEvents
End Sub

 

[raf26]

Bonjour Modeste Geedee,

Merci pour ton retour, cela me convient nickel !!

Bravo et encore merci.

Cordialement