Autres (RESOLU)Afficher des images dans Userform selon la valeur d'un Textbox

chaelie2015 · 3 Mai 2022

Bonjour Forum
je cherche un code pour afficher des images (bmp) dans un Userform selon textbox1
si textbox1 = 123 alors afficher image1 et masquer Image2 sinon c'est l'inverse.
Merci

Eric C · 3 Mai 2022

Bonjour le forum
Bonjour chaelie2015

Avec ce code ci :

VB:

Private Sub TextBox1_Change()
If TextBox1.Value = "123" Then
Image1.Visible = True: Image2.Visible = False
Else
Image1.Visible = False: Image2.Visible = True
End If
End Sub

Private Sub UserForm_Initialize()
Me.Image1.Picture = LoadPicture("C:\a\Images\Scoubidou.jpg")
Me.Image2.Picture = LoadPicture("C:\a\Images\images.jpg")
End Sub

P.s : je ne joints pas de fichier comme les chemins de fichiers sont à adapter
Cela fait toujours plaisir de savoir que la contribution a aidé (ou pas).

N'hésitez pas à marquer le sujet comme résolu le cas échéant ou à liker.

Bonne journée à toutes & à tous –
@+ Eric c

Eric C · 3 Mai 2022

Bonjour le forum
Bonjour chaelie2015

Avec ce code ci :

VB:

Private Sub TextBox1_Change()
If TextBox1.Value = "123" Then
Image1.Visible = True: Image2.Visible = False
Else
Image1.Visible = False: Image2.Visible = True
End If
End Sub

Private Sub UserForm_Initialize()
Me.Image1.Picture = LoadPicture("C:\a\Images\Scoubidou.jpg")
Me.Image2.Picture = LoadPicture("C:\a\Images\images.jpg")
End Sub

P.s : je ne joints pas de fichier comme les chemins de fichiers sont à adapter
Cela fait toujours plaisir de savoir que la contribution a aidé (ou pas).

N'hésitez pas à marquer le sujet comme résolu le cas échéant ou à liker.

Bonne journée à toutes & à tous –
@+ Eric c

chaelie2015 · 3 Mai 2022

Bonjour Eric c
Merci pour la réponse c'est parfait
A+

Autres (RESOLU)Afficher des images dans Userform selon la valeur d'un Textbox

chaelie2015

XLDnaute Accro

Eric C

Eric C

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Discussions similaires