Bonsoir Seb,
Je ne peux pas te fournir de fichier mais cette macro peut t'aider peut être
Pour voir l'exemple tu mets quelques phrases dans une colonne A à partir de la 2ème ligne
tu réserves deux cellules fixes à n'importe quel endroit de la feuille que tu nommes "anciennephrase" et "nouvelledate" . Ces cellules servent à récupérer l'ancienne phrase et la nouvelle date.
J'ai mis une petite boite pour récupérer la nouvelle date mais elle peut être remplacée directement par une autre action
si ta macro remplace déjà la date effacée alors tu n'ajoute pas la boite "inputbox" ni la "nouvelle date" dans la formule remplacer. la phrase sera tronquée de la date et c'est ta macro qui la rajoutera.
Sub Remplacerdate()
Dim nouvelledate As String
Range("A2").Select
Do While IsEmpty(ActiveCell) = False
ActiveCell.Select
ActiveWorkbook.Names.Add Name:="nouvellephrase", RefersToR1C1:="=selection"
anciennephrase = ActiveCell
Range("A1").Value = anciennephrase
nouvelledate = InputBox("entrer la nouvelle date")
Range("nouvelledate").Value = nouvelledate
ActiveCell.FormulaR1C1 = "=REPLACE(anciennephrase,13,10,nouvelledate)"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveCell.Offset(1, 0).Select
Loop
End Sub
bon courage.
Yolène