Pb Sélection multiple - Please Help

Bonjour

Mettons que j'aie une shape qui soit déjà sélectionnée, et qui est donc stockée dans Selection .

Supposons que je veuille rajouter une autre shape, de nom "ma_shape" par exemple, à la sélection.

Je veux ainsi que la sélection finale contienne mes deux shapes.

Que faire ?
J'ai essayé avec l'enregistreur de Macro mais ça donne quelque chose de pas génial :

Code:

---

ActiveSheet.Shapes.Range(Array("Line 253", "Line 252")).Select

---

mais ça marche uniquement parce qu'il a accés à tous les noms, ce qui ne sera pas forcément mon cas

en gros ce que j'aimerai c'est connaitre une fonction qui joue le rôle du ctrl+clic (ou shift + clic, j me souviens plus)

pour rajouter une selection 2 a une selection 1 utilise :

Code:

---

Selection = Union(Selection1,Selection2)

---

euh, peux tu détailler un tout petit peu ?

prenons un exemple alors :

Code:

---

1 2 3 4 5 6

Sub TestUnionDeSelection() Dim Selec As Range Set Selec = Range("A1") 'Je selectionne la cellule A1 Set Selec = Union(Selec, Range("B4")) 'j'ajoute à la séléction courante (Selec) la cellule B4 Selec.Select End Sub

---

Union, va rajouter à Selec le second paramètre : Range("B4")

assez clair ?

nickel :)
merci bcp

J'avais marqué Résolu mais en fait j'y arrive toujours pas.

Voici mon code
J'ai deux lignes qui me font des erreurs, que j'arrive + ou - à comprendre, mais pas suffisemment pour les résoudre.

Si quelqu'un avait une idée

Code:

---

1 2 3 4 5 6

Dim selec1 As Range Dim selec2 As Range Set selec1 = .Shapes(Selection.ShapeRange) 'Ligne qui c****** ; je veux récupérer dans selec1 la Selection actuelle Set selec2 = .Shapes.AddLine(x1, y1, x2, y2).Select ' Ligne qui c****** aussi, je veux récupérer le trait que j'ajoute avec Addline selec2 = Union(selec1, selec2) 'Je veux l'union des deux selec.Select

---

Le msg d'erreur causé par la 1ère ligne est : incompatibilité de type
Le msg d'erreur causé par la 2ème ligne est : Objet requis

Euh bien entendu y a un With autour, qu'on ne voit pas... De même les x1, machins chouette, sont déclarés et défninis plus tôt dans le code.