Discussion :

[bennp]

Bonjour,

j'ai plusieurs formules écrites sans "=" et je voudrais créer une macro pour copier chaque cellule et les coller dans une autre en y ajoutant le "=" pour créer la formule dans la nouvelle cellule. Une idée ?

Merci d'avance

Ben

[pijaku]

Bonjour,

Tout simplement :

Code :

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

1
2
3
Sub TransformeTexteEnFormule()
Range("A1").FormulaLocal = "=" & Range("A1").Value
End Sub

A voir s'il y a plusieurs types de formules, notamment des formules matricielles.

[bennp]

J'ai pensé à ça mais ça fonctionne pas :

Code :

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

1
2
3
4
5
6
7
Sub Macro7()
'
Dim j As String
j = Feuil1.Range("CL9").Text
 
Feuil1.Range("AJ9").Value = "=" & j
End Sub

EDIT : J'avais pas vu ta proposition, encore plus simple, merci