Image dans userform (sous condition)
Bonjour,
Je me permets de vous solliciter car j'ai un léger problème sur le développement d'une de mes macros.
Mon but : Afficher une image si une TextBox contient le texte "Voir image :" et utiliser le nom de l'image à la suite pour générer le lien.
Exemple d'un contenu de Textbox pour être plus explicite :
- Lance la balle au chien
- Le chien l'attrappe
- Voir image : Chien
Dans ma macro, je procède de la façon suivante :
Code:
1
2
3
4
5
6
7
8
9
| 'Si ma textbox contient Voir image alors
If TextBox1.Text Like "*Voir image :*" Then
'Je découpe le contenu au niveau de "Voir image"
tabImg() = Split(TextBox17.Text, "Voir image :")
'Je me place dans le bon dossier
ChDir (ActiveWorkbook.Path)
'Je charge l'image qui se trouve dans le dossier "Image"
Image1.Picture = LoadPicture("Image\" & Trim(tabImg(UBound(tabImg))) & ".jpg")
End If |
Le problème retourné est que le chemin spécifié est introuvable.
A la suite de cela, j'ai fait un Debug.Print et je me suis rendu compte que la valeur retournée était (le retour à la ligne n'est pas une faute de frappe) :
Image\Chien
.jpg
J'ai essayé de contourner le problème et je me suis rendu compte que si je met directement la valeur de la TextBox dans Split alors le résultat est différent.
Autre Code :
Code:
1
2
3
4
5
6
7
8
9
| 'Si ma textbox contient Voir image alors
If TextBox1.Text Like "*Voir image :*" Then
'Je découpe le contenu au niveau de "Voir image"
tabImg() = Split("- Lance la balle au chien - Le chien l'attrappe - Voir image : Chien", "Voir image :")
'Je me place dans le bon dossier
ChDir (ActiveWorkbook.Path)
'Je charge l'image qui se trouve dans le dossier "Image"
Image1.Picture = LoadPicture("Image\" & Trim(tabImg(UBound(tabImg))) & ".jpg")
End If |
Autre résultat (sans le retour à la ligne cette fois là et sans soucis d'affichage) :
Image\Chien.jpg
Je souhaiterais donc savoir pourquoi j'ai l'apparition de ce retour à ligne lorsque je travaille sur une variable et non sur une valeur donnée.
En espérant que vous pourrez m'éclairer, je vous remercie du temps que vous aurez accordé à ma demande.
Pierre
