Rechercher et remplacer du texte dans une formule

Je vais avoir du mal à comprendre comment faire une macro.

Je recherche dans une colonne et dans chaque cellule de vérifier le texte "TODAY()", et de le remplacer avec "TODAY() + B2" où B2 est un certain nombre de jours.

J'ai cherché et je pense que je suis proche, mais je suis toujours avoir des ennuis.

Sub findrep()
    Dim Findtext As String
    Dim Replacetext As String
    Findtext = "TODAY()"
    Replacetext = SUM(TODAY(),"Sheets("Sheet1").Range("B2").Value")
    Columns("A").Replace what:=Findtext, replacement:=Replacetext, lookat:=xlPart, MatchCase:=False

End Sub

Je suis désireux d'afficher la date dans la cellule dans le futur en fonction du nombre de jours dans la cellule B2. Le VBA doit être en mesure de rechercher par le biais de la formule dans la cellule car il est plus que juste "TODAY()" dans la formule.

Merci d'avance.

OriginalL'auteur Jazz | 2014-01-28