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
Vous devez vous connecter pour publier un commentaire.
Essayer de changer cette ligne
à
OriginalL'auteur Dmitry Pavliv