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 :
Merci d'avance à quiconque pourrait m'aider
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
Partager