Discussion :

[abennis]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[mordrhim]

pour rajouter une selection 2 a une selection 1 utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection = Union(Selection1,Selection2)

[abennis]

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

[mordrhim]

prenons un exemple alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[abennis]

nickel
merci bcp

[abennis]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.