Discussion :

[abennis]

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

[zazaraignée]

Un objet Range fait référence à une cellule ou à une plage de cellule. Alors qu'un objet Shape peut être n'importe quoi qui se trouve par dessus une feuille de calcul. Ce peut être soit un graphe, soit une image, soit une forme automatique...

Tu dois donc déclarer ta variable en tant que Shape.

Code :

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

Dim selec As Shape

[abennis]

J'ai changé la déclaration de selec en mettant as Shape.

En effet la première erreur disparait.

Malheureusement la deuxième reste toujours, au niveau de la ligne

Set selec = Union ( ............... )

pcq dans le Union ( .... ) il attend des Range comme paramètre
que faire ?

[SilkyRoad]

bonsoir

Tu peux utiliser cette syntaxe

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
Sub GroupementShapes_Conditionnel()
    Dim Sh As Shape
    Dim Tableau() As String
    Dim i As Integer
 
    For Each Sh In ActiveSheet.Shapes
        If Left(Sh.Name, 3) = "Mvt" Then
            i = i + 1
            ReDim Preserve Tableau(i)
            Tableau(i) = Sh.Name
        End If
    Next
 
    Set Sh = ActiveSheet.Shapes.Range(Tableau).Group
    Sh.Name = "NomGroupe"
End Sub

bon week end
michel