boutons permettant de changer des images

[tasam]

Salut a tous,

je souhaite votre aide pour créer un bouton qui permettra de changer d'image au clic de souris;
exemple:
on part d'une image 1 ,
1er clic, image 2 apparait (remplace 1)
2ème clic , image 3 apparait (remplace 2)
3ème clic , image 4 apparait (remplace 3 )
4ème clic , image 1 réapparait (remplace 3)..

MERCI DE VOTRE AIDE !!!

 

[Gelinotte]

Re : boutons permettant de changer des images

Bonsoir,

Boisgonthier nous donne d'excellents exemples et explications sur le traitement des images ... ICI ...


G

 

[Si...]

Re : boutons permettant de changer des images

salut

Si... les images sont nommées "image 1", "image 2" ..., la première macro sert à initialiser, la seconde est lancée par le bouton :

dim x as byte
Private Sub départ()
  For x = 1 To 4
   ActiveSheet.Shapes("image " & x).Visible = x = 1
  Next
  CommandButton1.Caption = 1
End Sub

Private Sub CommandButton1_Click()
  CommandButton1.Caption = CommandButton1.Caption + 1
  If CommandButton1.Caption = 5 Then CommandButton1.Caption = 1
  For x = 1 To 4
   ActiveSheet.Shapes("image " & x).Visible = CommandButton1.Caption = x
  Next
End Sub

 

[tasam]

Re : boutons permettant de changer des images

merci bien
l'exemple proposé correspond a ce que je cherche, toutefois j'ai quelques questions:
- dans ton exemple, où sont stockés les images?
- j'ai un dossier qui contient toutes les images nécessaires à ce fichier, comment puis-je les "appeler" ?
- peut-on associer un texte en fonction du clic: exemple je clique : l'image 2 apparait (remplace l'image 1) dans une cellule un texte apparait (exemple : "ceci est l'image 2")

MERCI