Utiliser un "group" dynamiquement en VBA

Bonjour à tous,

Je vous expose un nouveau problème.
J'ai plusieurs objets sur une feuille et je veux les grouper par VBA.
D'après ce que je comprends pour utiliser un group, il faut passer par un array:

Code:

---

ActiveSheet.Shapes.Range(Array(arglist)).Group

---

Le problème avec ce code c'est qu' Array me fixe le nombre d'objets alors que ce dernier peut changer.
Je pensais mettre Array dans une variable variant, redimensionner à chaque fois cette variable et l'insérer dans range. Mais il me ressort une erreur.

Voilà ce que je pensais faire:

Code:

---

1 2 3 4 5 6 7 8 9

dim tab as Variant   tab = Array() redim preserve tab(2) tab(0) = "Form1" tab(1) = "Form2"   ActiveSheet.Shapes.Range(tab).Group

---

Je ne vois pas d'autres solutions et celle-là ne fonctionne pas.
N'y aurait-il pas un autre moyen de créer un groupe dynamiquement?

Je vous remercie d'avance

Bon ben mon problème est résolu.

En fait la solution que j'ai proposé plus haut est bonne. C'est juste que j'avais mis des valeurs, dans mon tableau, qui ne correspondaient à aucune forme (flèche, trait, zone de texte, etc...).

Je vais même réécrire mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10

dim tab()   Redim tab(1) 'le preserve sert à préserver les valeurs initialement mises dans 'tab. Ici tab n'est pas initialisé. On n'en a pas besoin.   tab(0) = "Form1" tab(1) = "Form2"   ActiveSheet.Shapes.Range(tab).Group

---

Désolé du dérangement si quelqu'un était en train de chercher la solution pour moi.
Mais bon j'espère pouvoir aider plus d'un avec ce que j'ai proposé.

Au revoir