Résolu Valeur Textbox détermine image

raf26

XLDnaute Junior
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 !
 

Fichiers joints

Modeste geedee

XLDnaute Barbatruc
Bonsour®
mettre les 3 images dans le userform
Dimensions et proportions identiques
superposer, aligner
le code fera le reste
VB:
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
1585253180375.png
 

Fichiers joints

raf26

XLDnaute Junior
Bonjour Modeste Geedee,

Merci pour ton retour, cela me convient nickel !!

Bravo et encore merci.

Cordialement
 

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