Bonjour.
J'ai un certain nombre d'objets graphiques (des Shapes) dont je dispose du nom.
Mon but est d'écrire une macro qui puisse les grouper en un seul objet.

Le souci, c'est que selon les fois, il n'y aura pas le même nombre d'objets.
Pour être plus clair, mes objets graphiques s'appellent "Mvt1" , "Mvt2" , "Mvt3", etc ...
Le problème c'est qu'il peut y en avoir un nombre indéterminé.

Bref, donc pour les grouper , voici ce que je faisais, et qui ne marche malheureusement pas vu que ça me déclenche des erreurs :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub grouperObjets()
    Dim selec As Range
    Dim i As Integer
 
    Set selec = Worksheets("Feuil1").Shapes("Mvt1") ' Erreur : Types incompatibles
 
    For i = 2 To nbMouvements()
        If nomExiste("Mvt" & i, "Feuil1") = True Then
            Set selec = Union(selec, Worksheets("Feuil1").Shapes("Mvt" & i)) ' Erreur : Types incompatibles
        End If
   Next i
   selec.Select
   Selection.Group
   Selection.ShapeRange.Name = "GroupeMouvements"
   End If
 
End Sub
Merci d'avance à quiconque pourrait m'aider