<HTML>Bonsoir
Voici une macro en VBA qui affiche un message pour chaque ellipse rencontrée sur la feuille 2 du classeur actif.
Sub Elipses()
Dim Ellipse As Shape
For Each Ellipse In Feuil2.Shapes
If Ellipse.AutoShapeType = msoShapeOval Then
With Ellipse
MsgBox "X point supérieur gauche = " & .Left & _
Chr(13) & _
"Y point supérieur gauche = " & .Top & _
Chr(13) & _
"Hauteur = " & .Height & _
Chr(13) & _
"Largeur = " & .Width
End With
End If
Next Ellipse
End Sub
D'une façon générale, l'enregistreur de macros permet de "trouver une piste" pour la rédaction d'une macro. Ne connaissant pas par coeur toutes les propriétés des objets Shapes, j'ai utilisé l'enregistreur de macros pour dessiner une ellipse, de manière à retrouver notamment la constante msoShapeOval...
Bon travail
Pierre Fauconnier</HTML>