Discussion :

[vbfoxter]

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

[mercatog]

exemple avec les noms

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vbfoxter]

Merci mercatog

Bonne journée