Discussion :

[DJ_972]

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

[DJ_972]

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 :

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

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