Fonction replace

Bonjour à tous et à toutes

J'ai un soucis dans mon code vb sur la fonction replace

Code:

---

1 2 3 4

If InStr(1, PPTDoc.Slides(i).Shapes(j).TextFrame.TextRange.Text, Text_search, vbTextCompare) <> 0 Then MsgBox "C'est bon j'ai trouvé!!!" Replace(PPTDoc.Slides(i).Shapes(j).TextFrame.TextRange.Text, Dlast_old_month, Dlast_last_month) End If

---

Excel me met en rouge la fonction Replace et j'ai un message d'erreur qui me dit "erreur de compilation attendu : ="

Alors j'ai testé ça

Code:

---

Replace(PPTDoc.Slides(i).Shapes(j).TextFrame.TextRange.Text, Dlast_old_month, Dlast_last_month) = X

---

Et là plus de rouge mais impossible de lancer ma macro car un autre message d'erreur apparait...

Pour moi je pense qu'il y a un soucis au niveau de la fonction replace qui pour moi est justement une fonction prédéfinie de VB...

Je ne sais pas quoi faire...:rouleau: help me please:help:

Bonjour,
Comme tu l'écris très justement, Replace est une fonction et pas une méthode donc il faut renvoyer le résultat dans une variable comme ci-dessous

Code:

---

1 2 3

Dim txt As String txt = Replace("Toto sur Developpez", "Toto", "Tutu") Debug.Print txt

---

Ok je comprend mieux effectivement oui c'est une fonction tout comme un left() par exemple... Je me sent un peu bête sur le coup... :p

MERCI!!!