Localisation d'un objet.

MJ13

XLDnaute Barbatruc
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

XLDnaute Junior
Re : Localisation d'un objet.

Bonjour!
Voici une petite piste de recherche. J'espère que ça va te permettre d'avancer.
Code:
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
 

Hervé

XLDnaute Barbatruc
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.

Code:
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

XLDnaute Barbatruc
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.
 

Pièces jointes

  • LocalisationObjets.xls
    23.5 KB · Affichages: 92
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 017
Messages
2 084 627
Membres
102 618
dernier inscrit
Elise751