Rechercher - Remplacer dans des formes

Bonjour à tous

je vous expose mon problème : j'ai 2 feuilles Vue et Donnees.

Dans la feuille Données je fais mes calculs et dans Vue j'affiche dans des formes les résultats avec par exemple =Donnees!E1

Le souci est que j'ai besoin de changer dans toutes les formes la formule =Donnees!E1 en =Donnees!F1

Donc je voudrai faire un rechercher remplacer dans toutes mes formes et faire ce changement.

Je ne peux pas le faire à la main car j'en ai plus de 2500 à faire

Quelqu'un peut m'aider ?

Merci d'avance

Bonjour,

Un petit fichier illustratif avec 4 - 5 'formes' à modifier ... serait le bienvenu ...

le voici

Re,

Merci pour ton fichier test ...

Ci-joint ton fichier ... avec la macro de modification ...

En espèrant que cela t'aide ...

Bonjour,

Un code qui fait la modif :

Sub Test()

    Dim S As Shape
    Dim Cel As Range

    For Each S In ActiveSheet.Shapes

        'récupère l'objet cellule avec un décalage de colonne vers la droite (dans l'exemple, colonne D), à adapter !
        Set Cel = Range(S.TextFrame.Characters.Parent.Formula).Offset(, 1)

        'reconstruit la formule avec référence à la feuille DONNEES
        S.TextFrame.Characters.Parent.Formula = "DONNEES!" & Cel.Address(0, 0)

    Next S

End Sub

merci beaucoup

Une dernière question : dans une cellule j'ai mis une image et je recopie cette image dans une autre cellule grace à l'appareil photo.

Cela marche impeccablement. Mon petit soucis c'est que autour de l'image recopiée dans l'autre cellule j'ai une sorte de cadre gris que je n'arrive pas à enlever.

Sais-tu comment faire ?

Merci ... pour tes remerciements ...

Pour éviter le cadre, tu peux recopier ton image avec une macro ...

Et sans vouloir abuser, tu peux me dire comment on fait cette macro ...

merci

Re,

Je ne connais pas ton degré ton degré de familiarité avec les macros ...

Sais-tu faire un Copy Paste ...???

oui ...

florian699 a écrit :

oui ...

Alors tu peux tester ... c'est le même principe ...

cela dit ... si tu rencontres un obstacle ... comme pour ta première question ... un fichier test est tellement plus explicite ...!!!