Localisation d'un objet.

  • Initiateur de la discussion Initiateur de la discussion MJ13
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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é.
 
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
 
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
 
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

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour