Discussion :

[akane]

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

[bosk1000]

salut

essaye ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[helas]

ceci semble fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aalex_38]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[akane]

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.

@+