Set pour toute le projet

[bloomby]

Bonjour à tous,

j'utilise ce code

Dim f As Worksheet: Dim f2 As Worksheet

Set f = ThisWorkbook.Sheets("RtnVsM")
Set f2 = ThisWorkbook.Sheets("Rtn")

Je me demande de quel façon je peu faire pour ce Set
soit valable pour toute les macros dans le module

Par ce que j'ai différente macro

CLear (), Date () ....
et pour chaque macro je dois inscrire
Set f = ThisWorkbook.Sheets("RtnVsM")
Set f2 = ThisWorkbook.Sheets("Rtn")

quel serait la solution optimal
merci

 

[juju_69]

Re : Set pour toute le projet

Hello,
Peux tu essayer çà :

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

 

[bloomby]

Re : Set pour toute le projet

Bonjour fil JuJu_69,

Voici mon code; pour l'instant cela ne fonctionne pas
Je dois pas avoir inséré Pubilc function à la bonne place !

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

merci

 

[ledzepfred]

Re : Set pour toute le projet

Bonsoir juju,bloomby,

Pourquoi ne pas simplement mettre la déclaration suivante

Dim f, f2 As Worksheet

en haut du module (au même endroit que les autrres déclarations de variables)


a+

 

[bloomby]

Re : Set pour toute le projet

Bonjour LedZepFred,

C'est ce que javais fais, mais j'étais obliger de
redéfinir:

Set f = ThisWorkbook.Sheets("RtnVsM")
Set f2 = ThisWorkbook.Sheets("Rtn")

à chaque macro du projet