Macro pour remplacer du texte dans une formule

Bonjour à tous.

Contexte:

J'ai un onglet avec un nombre important de formule du type somme.si.ens.

Certains des critères de sélection de ces formules sont "1-Trend" ou "*".

Problème:

Lorsque je fais un remplacement manuel de "*" par "1-Trend" je ne rencontre aucune difficulté.

Lorsque j'enregistre cette manipulation la macro est la suivante :

Rows("7:20").Replace What:="[INTRADAY CAT.];""1-Trend""", Replacement:="[INTRADAY CAT.];""*""", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Cependant la macro ne fonctionne pas, comme si elle ne trouvais rien à remplacer.

Question:

Je pense que le double <<"">> guillemet avant et après le texte entre guillemet n'est pas forcément la bonne syntaxe.

D'avance merci pour vos contributions.

Salut,

En écrivant comme ceci tu résous ton problème :

Rows("7:20").Replace What:="1-Trend", Replacement:="*", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

(Par contre j'ai gardé dans cette ordre mais ça va faire l'inverse de ce que tu souhaites, à savoir remplacer les "1-Trend" par des "*". Peut-être à adapter )

Girodo,

Salut pdm, salut Girodo,

essaie aussi cette methode:

For j = 1 To 26 ' de la colonne A à la colonne Z !! à adapter !!
For i = 7 to 20
Cells(i,j).Formula = Replace(Cells(i,j).Formula,"*","1-Trend")
next i
next j

Bonjour à tous,

Merci pour votre collaboration.

Cependant je précise que je ne souhaite pas remplacer "1-Trend" par "*" mais "[INTRADAY CAT.];""1-Trend""", par "[INTRADAY CAT.];""*""" et inversement.

Dans ce cas précis vos suggestions ne semblent pas fonctionner.