Problème formule dans une macro

Bonjour,

Je souhaite copier le texte d'une cellule : "NB(;H4:J4;E5;H5;E6;H6:J6;H7;H10:J10;H13:J13;E15;H15;H17;E19;H19:J19)"
Mais il peut changer avec une autre macro
et je souhaite après avoir la cellule du dessous avec la formule
j'ai donc fait une macro qui me met un égal devant mon texte mais une erreur d’exécution 1004.

Voici la macro

Je suis dans une impasse, si l'un d'entre vous à une idée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Macro13() ' ' Macro13 Macro '   '   Dim X As String   Range("M2").Select X = ActiveCell.FormulaR1C1 Range("L2").Select ActiveCell.FormulaR1C1 = "=" & X   End Sub

---

Bonjour,

Essaie avec

Code:

---

1 2 3 4 5

Sub Macro13() Dim X As String X = Range("M2").FormulaR1C1 Range("L2").FormulaR1C1 = X End Sub

---

Cordialement.

Merci de la réponse rapide, mais cela ne marche pas, je voudrais rajouter le "=" devant ce qui fait planter ma macro excel

Bonjour,

Si dans la cellule M2, tu as le texte suivant

Code:

---

NB(H4:J4;E5;H5;E6;H6:J6;H7;H10:J10;H13:J13;E15;H15;H17;E19;H19:J19)

---

Tu peux traduire la formule correspondante en L2 avec

Code:

---

1 2 3 4 5

Sub Macro13() Dim X As String X = Range("M2").Value Range("L2").FormulaLocal = "=" & X End Sub

---

Cordialement.