Localisation d'un objet.

[MJ13]

Bonjour à tous.

Je voudrais connaître la localisation d'un objet (forme, image, bouton).
En fait, je voudrais trouvé en VBA l'adresse d'un rectangle, par exemple, en quelle ligne et colonne par rapport au bord haut et gauche de la cellule où est positionné l'objet.

Je suis sur que quelqu'un a la solution.

Merci d'avance mon forum préféré.

 

[bonsouarmessieux]

Re : Localisation d'un objet.

Bonjour!
Voici une petite piste de recherche. J'espère que ça va te permettre d'avancer.

Sub TraceRectangle()
' Trace un rectangle blanc sur la feuille active.
' Les valeur d'abscisse et d'ordonnée sont pour le coin en haut à gauche

    Abscisse = 0
    Ordonnée = 0
    Largeur = 100
    Hauteur = 100
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, Abscisse, Ordonnée, Largeur, Hauteur). _
        Select
End Sub

Cordialement

 

[bonsouarmessieux]

Re : Localisation d'un objet.

!Erratum!
En fait le rectangle qui est tracé est un peu particulier puisqu'il sagit d'un carré.
A plus

 

[mutzik]

Re : Localisation d'un objet.

bonjour,

teste le code suivant
Sub test()
Dim sh As Shape
For Each sh In Sheets("Feuil1").Shapes()
MsgBox sh.TopLeftCell.Address
Next
End Sub

 

[Hervé]

Re : Localisation d'un objet.

bonjour

un code qui repertorie tout les shapes de la feuille active, en donnant leur nom et les cellules haut gauche et inferieur droit.

renvoi sur la meme feuille en A1.

Dim tablo()
Dim x As Integer
Dim obj As Shape
 
ReDim tablo(2, 0)
 
tablo(0, 0) = "nom"
tablo(1, 0) = "cellule haut gauche"
tablo(2, 0) = "cellule inferieur droit"
 
For Each obj In ActiveSheet.Shapes
    x = x + 1
    ReDim Preserve tablo(2, x)
    tablo(0, x) = obj.Name
    tablo(1, x) = obj.TopLeftCell.Address(0, 0)
    tablo(2, x) = obj.BottomRightCell.Address(0, 0)
Next obj
 
Range("a1").Resize(UBound(tablo, 2) + 1, 3) = Application.Transpose(tablo)

salut

edit : salut mutzik, désolé pour la collision

 

[MJ13]

Re : Localisation d'un objet.

Bonjour à tous

Merci à vous 3, c'est plus que ce que je demandais, mais au moins , on a un peu fait le tour de la question.

J'ai mis un fichier pour mettre en pratique vos codes.


Encore Merci , je savais que je pouvais compter sur vous.