Copie d'une formule avec VBA

Bonjour à tous

J'utilise Excel2003 et à l'aide d'une macro je souhaiterai copier les formules de la colonne D pour les retrouver de façon littérale dans la colonne E

Un peu de conpréhension SVP je débute.

D'avance merci

salut

essaye ça

Code:

---

1 2 3 4 5 6 7 8

Sub Macro1() Columns("D:D").Copy Columns("E:E") Columns("E:E").Select Selection.Replace What:="=", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub

---

ceci semble fonctionner

Code:

---

1 2 3

Columns("C:C").Copy Columns("D:D") Columns("D:D").TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, FieldInfo:=Array(1, 2)

---

Bonjour à tous, une autre façon de faire :

Code:

---

1 2 3

For i = 1 To Cells(65536, 4).End(xlUp).Row Cells(i, 5) = Replace(Cells(i, 4).FormulaLocal, "=", "") Next

---

Edit: je me suis inspiré de Bosk pour cette solution, et pour ma part j'aime bien la solution de helas qui ne nécessite pas de boucle (ni celle de Bosk d'ailleur et je n'ai pas testé les deux autres solution), mais bon les gouts et les couleurs ...;)

Les trois solutions fonctionnent avec tout de même une petite préférence pour celle d'aalex_38.

Merci à vous pour le temps que vous n'avez consacré, il m'a permis d'économiser quelques heures.

@+