Discussion :

[massa45]

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 :

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

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

[gFZT82]

Bonjour,

Essaie avec

Code :

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

1
2
3
4
5
Sub Macro13()
Dim X As String
    X = Range("M2").FormulaR1C1
    Range("L2").FormulaR1C1 = X
End Sub

Cordialement.

[massa45]

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

[gFZT82]

Bonjour,

Si dans la cellule M2, tu as le texte suivant

Code :

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

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 :

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

1
2
3
4
5
Sub Macro13()
Dim X As String
    X = Range("M2").Value
    Range("L2").FormulaLocal = "=" & X
End Sub

Cordialement.