XL 2013 Grouper des shapes dans une range par VBA

[nicroq]

Bonjour a tous et merci pour votre aide ,

Je souhaiterai grouper un ensemble de shapes present dans une range definie.. Voici le code VBA que j'ai créé mais celui ci ne fonctionne pas :

Dim emplacement2 As Range
Set emplacement2 = Worksheets("Graph").Range(Worksheets("Graph").Cells(10, 1), Worksheets("Graph").Cells(30, 13))

For Each Forme In f1.Shapes
If Forme.Name <> "Button 2" Then
If Forme.Name <> "Button 38" Then
Set xshaperg = Worksheets("Graph").Range(Forme.TopLeftCell.Address & ":" & Forme.BottomRightCell.Address)
If Not Intersect(emplacement2, xshaperg) Is Nothing Then
Forme.Select

End If
End If
End If
Next Forme
Selection.Group

en fait je n'arrive pas a tous les selectionner pour les grouper ensuite..
merci de votre aide
cordialemeent

 

[nicroq]

Bonjour Pierre,

En effet la liste S marche bien, cependant f1.Shapes.Range((T)).Group ne semble pas fonctionne car l'ensemble des shapes listé dans S ne se groupent pas....
merci pour ton aide

 

[nicroq]

Re bonjour
Le code fonctionne tres bien , il y avait un probleme dans le nom de mes shapes !!! La msgbox de la variable S m' a bien aidé!!!
Merci bcq
bonne journée