Discussion :

[Anduriel]

Bonjour,

J'ai un rectangle situé n'importe où sur ma page excel.
Je connais les coordonnées de ce rectangle (avec Top, Left).
J'aimerai savoir si c'est possible, simplement, de trouver à quelle cellule ces coordonnées font références.

Est-ce possible?
Merci

P.S J'ai posté ce topic sur un mauvais forum auparavant, désolé !

[ESVBA]

Ayant un doute sur la compréhension du problème, je récapitule :

il y a une forme "rectangle" dessinée sur la feuille excel

trouver à quelle cellule ces coordonnées font références

"Coordonnées" veut dire trouver les coordonnées (exemple "C15") de la cellule en haut à gauche recouverte par la forme "Rectangle" ?

ESVBA

[Anduriel]

Le problème est bien là, mais quand je parlais de coordonnées, je parlais de ceux du rectangle, par exemple (97, 125).
Ensuite, à partir des coordonnées du rectangle, trouver quelle cellule contient ce point (qui n'est autre que le sommet haut gauche du rectangle)

[Anduriel]

Ah si je n'ai pas de réponse sur ce forum, c'est qu'il n'y a pas de solution.

[Gorfael]

Salut Anduriel et le forum

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim x As Range, y As Range
Dim Z As Shape
For Each Z In ActiveSheet.Shapes
    Set x = Z.TopLeftCell
    Set y = Z.BottomRightCell
    Range(x, y).Select
    MsgBox "la forme " & Z.Name & " va de la cellule " & x.Address(0, 0) & Chr(13) & _
        " à la cellule " & y.Address(0, 0)
Next Z
End Sub

A+