Discussion :

[Korleone]

Bonjour,
J'ai un petit soucis avec mon code qui doit me permettre d'effectuer un boucle sur des contrôles ActiveX d'une feuille.

Sauf que si

Code :

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

Me.Controls

fonction pour un contrôle situé sur un UserForm, je n'ai pas trouvé d'équivalent pour un contrôle situé sur une feuille de calcul. Du coup, j'ai essayé avec

Code :

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

Worksheets("Page1").controls

, mais ça n'a pas l'air d'être la bonne syntaxe...

Voici mon code actuel :

Code :

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

1
2
3
4
5
 
img = ThisWorkbook.Path & "\Image\" & MonImage & ".jpg"
For i = 1 To 30
Worksheets("Page1").Controls("Image" & i + 1).Picture = LoadPicture(Img, Worksheets("Page1").Controls("Image" & i + 1).Width, Worksheets("Page1").Controls("Image" & i + 1).Height)
Next i

[tedo01]

Bonjour,
Dans une feuille, les contrôles se trouvent dans la collection Shapes.
Au lieu d'écrire

Code :

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

Worksheets("Page1").controls

essaie plutôt

Code :

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

Worksheets("Page1").Shapes

[mercatog]

Code :

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

1
2
3
4
5
6
7
Dim Img As String
Dim i As Byte
 
Img = ThisWorkbook.Path & "\Image\" & MonImage & ".jpg"
For i = 1 To 30
    Worksheets("Page1").OLEObjects("Image" & i + 1).Object.Picture = LoadPicture(Img, Worksheets("Page1").Controls("Image" & i + 1).Width, Worksheets("Page1").Controls("Image" & i + 1).Height)
Next i

[Korleone]

Super, ça fonctionne, merci beaucoup pour votre aide.

Par contre, j'ai du mettre des OLEObjects à la place de tous les Controls.

Code :

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

Worksheets("Page1").OLEObjects("Image" & i + 1).Object.Picture = LoadPicture(Img, Worksheets("Page1").OLEObjects("Image" & i + 1).Width, Worksheets("Page1").OLEObjects("Image" & i + 1).Height)