Discussion :

[daniel_a1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

Bonjour,

2 possibilités :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[daniel_a1]

Merci, parfait