selectionner un objet en VBA

Bonjour,


Comment selectionner un objet en VBA en fonction de sa position?

J'aimerais faire quelque chose du type

Code:

---

1 2	cells(1,1).selection activeshape(activecell)).select

---

merci par avance :)

Salut amaryllis et le forum
Utiliser les Select/Activate est rarement une bonne idée.

Code:

---

1 2	cells(1,1).selection activeshape(activecell)).select

---

Heu... tu veux sélectionner la Shape active (qui est donc sélectionnée) ???

En prenant le problème par l'autre bout :

Code:

---

1 2 3 4 5 6 7

Sub test() Dim Sh As Shape For Each Sh In ActiveSheet.Shapes If Not (Intersect(Sh.TopLeftCell, Columns(6)) Is Nothing) Then Exit For Next Sh If Not (Sh Is Nothing) Then MsgBox Sh.Name End Sub

---

Trouvera la 1re Shape dont la cellule en haut à gauche est au-dessus de la colonne F.
A+

Citation:

---

Heu... tu veux sélectionner la Shape active (qui est donc sélectionnée) ???

---

Citation:

---

activeshape(activecell)).select

---

Il n'existe de toutes façons pas de Shape active dans Excel.

La méthode Activate n'existe pas pour l'objet Shape et il n'y a pas de propriété ActiveShape.

On peut donc en sélectionner un ou plusieurs, mais on en active aucun.

cordialement,

Didier

Salut Ormonth et le forum
Oui, je sais, je suis un peu sarcastique : c'était juste pour dire qu'il faut réfléchir avant de se lancer dans du codage.
A+

Bonjour,

Merci pour les réponses, mais j'ai dû mal m'exprimer.
J'ai 5 graphiques sur une feuille excel. Ils changent de nom mais pas de position à chaque fois. C'est pour cela que j'aurais souhaité sélectionner le graphique dont le bord en haut à gauche est dans la cellule A1, celui dans la cellule A20, etc.. J'avais vu quelque part qu'on pouvait sélectionner un objet en fonction de sa position.

Désolée de mon erreur, c'était plus ça que je voulais faire:

Code:

---

1 2	cells(1,1).selection shape(activecell)).select

---

Il me semble qu'il y avait une solution plus directe que celle proposée par Gorfael

Merci de vos réponses :lol:

Bonjour,

Dans l'aide VBA, regardes dans les propriétés TopLeftCell et BottomRightCell de l'objet Shape.

cordialement,

Didier

Bonjour,

Merci pour les conseils. Pour info, j'ai utilisé le code suivant pour copier coller le graphique de la cellule A1 en image jpeg:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public sh as shape For Each Sh In ActiveSheet.Shapes If Sh.TopLeftCell.Address = "$A$1" Then Sh.Select Selection.Copy Sh.Select Selection.Delete Range("A1").Select ActiveSheet.PasteSpecial Format:="Image (JPEG)", Link:=False, _ DisplayAsIcon:=False Selection.ShapeRange.ZOrder msoSendToBack End If Next Sh

---

Problème résolu!! :D