Boucle pour cacher des images dans un formulaire & diaporama

Bonjour,

1) Boucle pour cacher des images dans un formulaire

Je souhaiterai faire une boucle me permettant de cacher des images présents sur mon formulaire.

J'ai 10 images les unes sur les autres (image1, image2, image3,...)

Lors de l'initialisation de mon formulaire je souhaiterai afficher seulement l'image 1 et cacher toute les autres.

J'ai qq chose comme ça :

Dim pic As Integer

Dim Picname

pic = 1

While pic <= 10

Picname = ("Image" & pic)

Picname.Visible = False

pic = pic + 1

Wend

Image1.Visible = True

Mais j'ai une erreur 424: objet requis sur "Picname.Visible = False"

J'imagine que j'ai mal déclarer ma variable... Qqun pourrait m'aider ?

2) diaporama

Lors de l'exécution d'une fonction à chaque fois que je rentre dans une boucle (d'une fonction existante) je voudrai changer l'image qui s'affiche. J'ai au max 10 images, et je souhaiterai tourner sur ces dix images... genre diaporama.

Bonjour

Essayes

Sub test()
Dim pic As Integer
Dim Picname As String

  pic = 1
  While pic <= 10
    Picname = ("Image" & pic)
    ActiveSheet.Shapes(Picname).Visible = False
    pic = pic + 1
  Wend
  ActiveSheet.Shapes("Image1").Visible = True
End Sub

Mais pour trouver une solution à tes problèmes, ton fichier est indispensable

Merci pour ta réponse mais ça ne marche pas

Erreur d’exécution : L'élément portant ce nom est introuvable sur la ligne: ActiveSheet.Shapes(Picname).Visible = False

Pour info bien sur... ce code fonctionne:

Private Sub UserForm_Initialize()

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

Image6.Visible = False

Image7.Visible = False

Image8.Visible = False

Image9.Visible = False

Image10.Visible = False

Image1.Visible = True

End sub

Mais je voulais créer une boucle qui m'évite de mettre toute ces lignes...

Bonjour

Banzai64 a écrit :

Mais pour trouver une solution à tes problèmes, ton fichier est indispensable

A suivre