scripts VBA pour remplacer la valeur cellulaire et garder le formatage

Question

J'ai le tableau ci-dessous dans le mot que je suis en train d'écrire un script pour remplacer le contenu de la cellule ci-dessous avec un paiement de client différent (par exemple remplacer le £ 1,100 avec £ 2000). Ci-dessous un extrait de mon script mais quand j'écris à la cellule il perd tout le formatage et la liste numérotée.

Comment puis-je conserver remplacer les données de cellule avec des données très similaires et garder encore la mise en forme?

ps. J'ai simplifié le contenu de la cellule pour le rendre plus facile à lire, de sorte que le code ne sera pas applicable exactement que le contenu

DescPlan = Trim(t1.Cell(2, 2).Range.Text) 
DescTest = InStr(1, DescPlan, ":") 
finalString = Left(DescPlan, DescTest) 

t1.Cell(2, 2).Range.Text = Replace(DescPlan, finalString, "Payment by the customer of " + Format(v, "Currency") + " will be due upon completion of items below:") 

Answer 1

Je ne sais pas si cela aide, mais vous utilisez une table donc ce qui fonctionne pour Excel devrait également fonctionner pour vous.

Sub replace_keep_format() 

Dim t1 As Range 
Dim sStrng As String, rStrng As String 
Dim i As Integer 

sStrng = "£1,100" 
rStrng = "£2,000" 
i = 1 

Do Until ThisWorkbook.Sheets(1).Range("a" & i) = "" 
Set t1 = ThisWorkbook.Sheets(1).Range("a" & i) 
t1 = Replace(Expression:=t1, Find:=sStrng, Replace:=rStrng) 
i = i + 1 
Loop 

End Sub