sélection multiple de "shapes"

Bonjour Yves,




'Sélectionne toutes les shapes de la feuille de calcul
Feuil1.DrawingObjects.Select


Pour les Formes émanant du bouton "Forme automatique
'de la barre de dessin.
'----------------------------
Sub Test()

Dim X As MsoShapeType
X = msoAutoShape

For Each sh In Feuil1.Shapes
If sh.Type = X Then
sh.Select Replace:úlse
End If
Next
End Sub
'----------------------------


Saluations!





"YvesP" <YvesP@discussions.microsoft.com> a écrit dans le message de news: 2E040473-94D9-4264-B6FC-82E50E8CCB3B@microsoft.com...
Bonjour,

Sur une feuille de calcul contenant plusieurs formes (rectangle, trait,
groupe,..),l'utilisateur sélectionne un certain nombre de formes.

Je souhaiterais sélectionner par macro l'ensemble de la sélection de
l'utilisateur + une autre forme "toto" contenue dans la même feuille.

Existe-t-il une fonction du genre :

Selection = Selection + ActiveSheet.Shapes("toto")

?

Merci

Super, le 'select replace:úlse' (que je n'arrive pas à trouver dans l'aide
VBA Excel) est exactement ce qu'il me fallait.
Merci beaucoup

Bonjour Yves,




'Sélectionne toutes les shapes de la feuille de calcul
Feuil1.DrawingObjects.Select


Pour les Formes émanant du bouton "Forme automatique
'de la barre de dessin.
'----------------------------
Sub Test()

Dim X As MsoShapeType
X = msoAutoShape

For Each sh In Feuil1.Shapes
If sh.Type = X Then
sh.Select Replace:úlse
End If
Next
End Sub
'----------------------------


Saluations!





"YvesP" <YvesP@discussions.microsoft.com> a écrit dans le message de news: 2E040473-94D9-4264-B6FC-82E50E8CCB3B@microsoft.com...
Bonjour,

Sur une feuille de calcul contenant plusieurs formes (rectangle, trait,
groupe,..),l'utilisateur sélectionne un certain nombre de formes.

Je souhaiterais sélectionner par macro l'ensemble de la sélection de
l'utilisateur + une autre forme "toto" contenue dans la même feuille.

Existe-t-il une fonction du genre :

Selection = Selection + ActiveSheet.Shapes("toto")

?

Merci