Acttiver une image sur un userform

Bonjour

J’ai sur userform avec un contrôle Image et un textbox j’essaie d’afficher une image en fonction du texte de la textbox.

Si je rentre le nom dans le textbox manuellement et que je clique sur entrer l’image apparait

J’aimerais que l’image apparaisse automatiquement

Mon code est ceci:

Private Sub TextBox1_Change()
 On Error Resume Next
 Image1.Picture = LoadPicture("E:\Le Monde\Etats Unis\Carte\" & TextBox1 & ".Gif")
 On Error GoTo 0

 End Sub

Je vous remercie de votre aide

Cordialement

Max

28cl1.xlsm (165.69 Ko)

Bonjour,

Pour avoir ton image par défaut ... il faut simplement intégrer ton instruction dans le code ta UserForm : UserForm_Initialize()

Bonjour James007,

Je te remercie mais sa ne fonctionne pas voici mon code en entier :

[code][/Private Sub TextBox1_Change()

On Error Resume Next

Image1.Picture = LoadPicture("E:\Le Monde\Etats Unis\Carte\" & TextBox1 & ".Gif")

On Error GoTo 0

End Sub

Public Sub UserForm_Activate()

UserForm2.Left = 827

UserForm2.Top = 180

'Affiche le nom du pays en haut gauche du Formulaire

UserForm2.Caption = " Etat de..." & " " & TextBox1.Value

End Sub

Private Sub UserForm_Initialize()

On Error Resume Next

Image1.Picture = LoadPicture("E:\Le Monde\Etats Unis\Carte\" & TextBox1 & ".Gif")

On Error GoTo 0

End Subcode]

Je dois a tout pris cliquer sur le textbox pour afficher l'image

Bonne journée

Max

Re,

Si ton instruction initiale dans ton Private Sub UserForm_Initialize() utilise la variable TextBox1.Value ... juste avant LoadPicture ... tu vas avoir besoin de spécifier :

Me.TextBox1.Value = "nom de ton image"

Re,

En faite j'ai compris il faut que réinscrive les noms dans les cellules pour que sa fonctionne.

Mais un chose que je voudrais savoir les images je les affiche en cliquant sur une carte de France "interactive" mais il faut que je ferme mon userform pour afficher une autre image en sachant que mon userform est ShowModa=True

Je te remercie beaucoup

Max

salut

regarder ça ,mais il faut penser aux noms incorrects

une petite expression est mis en commentaire peut vous aider essai avec

MERCI

44cl1image.xlsm (166.07 Ko)
Rechercher des sujets similaires à "acttiver image userform"