Boucle sur objet activeX

Bonjour, j'ai inséré plusieurs Controles active X image sur une page excel et en VBA, je souhaiterai faire une boucle pour les cacher toutes d'un coup. Cependant dans le code suivant, à la 4° ligne, il ne reconnait pas le format de test qui contient pourtant Image1. En revanche les 3 dernières lignes fonctionnent.
Comment faire?
Merci de votre aide

Code:

---

1 2 3 4 5 6 7 8

'For i = 1 To 13 ' Dim test As Variant ' test = "Image" & i ' Sheets("Choice").test.Visible = False 'Next i Sheets("Choice").Image1.Visible = False Sheets("Choice").Image2.Visible = False Sheets("Choice").Image3.Visible = False

---

Bonjour,

2 possibilités :

Code:

---

1 2 3 4 5 6 7

Sub test1() Dim i As Byte   For i = 1 To 13 Sheets("Choice").Shapes("image" & i).Visible = False Next End Sub

---

Code:

---

1 2 3 4 5 6 7

Sub test2() Dim Pic As Picture   For Each Pic In Sheets("Choice").Pictures Pic.Visible = False Next End Sub

---

L'avantage de la seconde solution est qu'il n'est pas besoin de connaître le nombre d'images insérées.

Merci, parfait