Bonjour,

Apres moultes recheres, je refais appelle à vous

Mon pb :
Je veux affecter à une cellule, une formule qui a pour entrée la case d'à coté... pour chaque ligne l... c'est sur ce dernier point que cela bug...

Le code reprenant juste l'interessant (Tout est declaré (Sh2, Sh1...) :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
For j = 7 To LetzteLinie
With Sh1
.Range(.Cells(j, 4), .Cells(j, 4)).Copy Sh2.Range(Sh2.Cells(l, 3), Sh2.Cells(l, 3))
Sh2.Cells(l, 2).FormulaR1C1 = "=TEXT("Cells(l, 3)",""ttt"")"
End With
Next
j'ai aussi testé, sans resultat....
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sh2.Cells(l, 2).FormulaR1C1 = "=TEXT(C"l"),""ttt"")"
Thks