Utilisation de Range(array)

Bonjour à tou(te)s,

Pourriez-vous m'apporter une aide dominicale ?

Je cherche le moyen de sélectionner un nombre n d'images afin de les grouper. Le problème est que je ne connais pas n à l'avance.

Normalement, pour sélectionner 3 images, j'utilise :

Code:

---

ActiveSheet.Shapes.Range(Array(("img_001"), ("img_002"), ("img_003"))).Select

---

Comment faire si j'ai 10 images par exemple ? Y a-t-il une syntaxe particulière ou une autre fonction ? Ou une autre méthode ? Ou un moyen d'ajouter une nouvelle image à un groupe créé, au fur et à mesure ?

Merci à tou(te)s

BC

Bonjour,

Avec une syntaxe comme ça peut être:

Code:

---

1 2 3 4 5 6 7 8

Sub TEST() Dim TabImage() As Variant ReDim TabImage(1 To 3) For i = 1 To 3 TabImage(i) = "img00 " & i Next i ActiveSheet.Shapes.Range(TabImage).Select End Sub

---

Pour ajouter une (ou des) image(s) tu redimensionnes ton tableau et y ajoute la(les) nouvelle(s) images (leurs noms). Ensuite pour y accéder

Code:

---

ActiveSheet.Shapes.Range(TabImage)

---

Bon dimanche

Bonjour,
Une autre option pour sélectionner toutes les images de la feuille active

Code:

---

ActiveSheet.Shapes.SelectAll

---

et pour grouper les images sélectionnées

Code:

---

Selection.ShapeRange.Group.Select

---

Citation:

---

Envoyé par issoram

Bonjour,

Avec une syntaxe comme ça peut être:

Code:

---

1 2 3 4 5 6 7 8

Sub TEST() Dim TabImage() As Variant ReDim TabImage(1 To 3) For i = 1 To 3 TabImage(i) = "img00 " & i Next i ActiveSheet.Shapes.Range(TabImage).Select End Sub

---

Pour ajouter une (ou des) image(s) tu redimensionnes ton tableau et y ajoute la(les) nouvelle(s) images (leurs noms). Ensuite pour y accéder

Code:

---

ActiveSheet.Shapes.Range(TabImage)

---

Bon dimanche

---

Merci. C'est presque ça. En tout cas ça me donne une piste solide pour finaliser mon morceau de code.

Merci :)