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
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