images avec commentaires

[jtitin]

bonjour à tous

je cherche à ajouter un commentaire en fonction de l'image afficher et tous cela dans un userform. les images sont intégrées à l'userform et non appelé depuis l'exterrieur.
j'utilise un SpinButton1 pour changer les image avec ce code

Private Sub SpinButton1_Change()
For i = 1 To 22
Me.Controls("Image" & i).Visible = False
Next
label1.Caption = Format(SpinButton1.Value)
X = Format(SpinButton1.Value)
Me.Controls("Image" & X).Visible = True

'### donc ici le code pour afficher dans un label ou autre du texte
'### en fonction de l'image

End Sub


Merci pour votre aide

 

[jtitin]

Re : images avec commentaires

avec un fichier c'est mieux..

merci pour votre solution

 

[kjin]

Re : images avec commentaires

Bonjour,
Avec ce que j'ai compris et sans fichier
Edit: ici avec 5 images à adapter avec 22
A+
kjin

 

[jtitin]

Re : images avec commentaires

merci KJIN pour ta réponse
mais ce n'est pas ce que je recherche.
le texte à afficher est un texte particulier et non le n° de l'image
exemple: si Image1 alors affiche le texte "c'est l'hivers"
si Image2 --> " avec de beaux nuages"
etc


merci

 

[jtitin]

Re : images avec commentaires

pardon kjin je n'avais pas tous vue
oui ton fichier c'est bon
il y a plusieurs label appelé de la même manière que les images

donc texte modifiable à souhait
c'est OK

merci

 

[kjin]

Re : images avec commentaires

Re,
😕🙄
Le commentaire est dans le label ! j'ai juste ajouté la textbox pour connaitre le N° de l'image affichée mais supprime la, si elle ne te sert pas
Ton fichier adapté
A+
kjin