faire varier une image selon un textbox.value

[gbaneyo]

Bonjour à tous, est-il possible de faire varier une image en fonction d'un texbox.value

 

[_Thierry]

Re : faire varier une image selon un textbox.value

Bonjour gbaneyo, le Forum


Un approche assez simple avec "LoadPicture" pour tester faire un UserForm contenant un contrôle Textbox ("TextBox1") et un contrôle Image ("Image1"), et évidement les fichiers "Jpg" doivent exister dans le même répertoire que le classeur en question....

Private Sub TextBox1_Change()
Dim MyPicturePath As String

Select Case Me.TextBox1
    Case Is < 0
        MyPicturePath = ThisWorkbook.Path & "\Bad.jpg"
    Case 0
        MyPicturePath = ThisWorkbook.Path & "\Zero.jpg"
    Case Is > 0
        MyPicturePath = ThisWorkbook.Path & "\Good.jpg"
End Select
    If Not MyPicturePath = "" Then
    
        With Me.Image1
            .Picture = LoadPicture(MyPicturePath)
            .AutoSize = True
        End With
    
    End If
    
End Sub

Bon Aprèm

@+Thierry

 

[gbaneyo]

Re : faire varier une image selon un textbox.value

mon cher j'ai essayé et ça marche comme sur des roulettes merci bien!!!!!

 

[_Thierry]

Re : faire varier une image selon un textbox.value

Bonsoir gbaneyo, le Forum

Et bien j'en suis ravi mon cher 😉

Alors roulez jeunesse !!!

Bonne Soirée

@+Thierry
​

 

[Guigui]

Re : faire varier une image selon un textbox.value

hello all
je me permet de ré-ouvrir ce post ...

Dans le cas ou les images ne sont pas sur le pc mais dans une des feuilles du classeur xls ...
Comment charger cette image ?
(mon cas précis est concernant un tooglebutton qui a une image diferente suivant son état)

Merci d'avance pour votre aide

Guillaume

 

[Excel_lent]

Re : faire varier une image selon un textbox.value

Salut Guillaume, à tous et aux autres.

@voir et adapter le cas échéant.

 

[Guigui]

Re : faire varier une image selon un textbox.value

merci bcp pour ta soluce.

En fouillant un peu , j'ai trouvé l'existence du module ListImage ... bien pratique 😉

Merci encore
a+