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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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