Discussion :

[Lise_]

Bonjour,

En VB, comment faire une recherche de texte dans les formes automatiques (carré, rond, fleches..) présentes dans une zone de dessin ou non.

exemple:

Je voudrais rechercher les 'TOTO' du rectangle et du tube, et les remplacer.

Mais si j'execute:

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "TOTO"
.Replacement.Text = "TUTU"
.Forward = True
... etc

ça ne s'applique que sur le corps de texte, pas à l'intérieur des formes.

Merci de votre réponse!

[Heureux-oli]

Salut,

J'ai jamais essayé de recherche dans les formes.

Mais .AlternativeText renvoie entre autre le contenu des formes.

A toi de voir si ce sont des shapes ou des inlineshapes.