Discussion :

[benjamin82]

Bonjour à tous et à toutes

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

Code :

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

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 :

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

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... help me please

[Philippe Tulliez]

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 :

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

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

[benjamin82]

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!!!