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

chaelie2015

XLDnaute Accro
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
 
Solution
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

XLDnaute Accro
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
 

Discussions similaires

Statistiques des forums

Discussions
299 850
Messages
1 979 570
Membres
206 781
dernier inscrit
BERTÉ