Set pour toute le projet

Dim formule As String: Dim i: Dim fin As Range
Dim formule2

Public Function f() As Worksheet
Set f = ThisWorkbook.Sheets("RtnVsM")
Set f2 = ThisWorkbook.Sheets("Rtn")
End Function


Sub RtnVsM()
Clear
SetDate
SetRtnVsM

End Sub

Sub SetRtnVsM()

formule = _
"=(Rtn!RC)"

For i = 2 To Evaluate(ActiveWorkbook.Names("NbSymbol").Value)
Set fin = f2.Cells(65536, i).End(xlUp).Offset(-1, 0)
f.Range(f.Cells(2, i), _
fin.Address).FormulaR1C1 = formule
Next
f.Range(Range("B2"), Range("BB2").End(xlDown)).NumberFormat = "0.0000"
End Sub

Sub SetDate()

formule2 = _
"=(Px!RC)"

For i = 2 To 2 'Evaluate(ActiveWorkbook.Names("NbRtn").Value)
Set fin = _
f2.Cells(i, 1).End(xlDown)
f.Range(f.Cells(i, 1), _
fin.Address).FormulaR1C1 = formule2
Next
f.Range(Range("A2"), Range("A2").End(xlDown)).NumberFormat = "mmm d/yy"
End Sub

Sub Clear()
f.Range("B2").CurrentRegion.ClearContents
End Sub

Cliquez pour agrandir...