Pb selection - shapes - range

Version imprimable

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:

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

27/07/2007, 14h04
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:

Dim selec As Shape
27/07/2007, 14h11
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 ?

bonsoir

Tu peux utiliser cette syntaxe

Code:

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