Comment identifier les shape ovale en VBA

Bonjour à tous

Je suis face à un problème. J'ai plusieurs shape ovales et quelques rectangles sur une sheet. Je chercher à changer les textes contenus à l'intérieur des shape ovales uniquement.

Question: comment peut-on identifier uniquement les shape ovales ?

Si quelqu'un peut m'aider je lui serai très reconnaissant.

Merci d'avance

exemple avec les noms

Code:

---

1 2 3 4 5 6

Sub test() Dim ovShap As Shape For Each ovShap In ActiveSheet.Shapes If InStr(ovShap.Name, "Ova") > 0 Then MsgBox "kuku" Next ovShap End Sub

---

Merci mercatog :ccool:

Bonne journée