vba assignation d'une sous-routine à une variable

Question

J'ai la sous-routine suivante (dans module10).

Sub varWorksheet(wksht As String) 
Dim ws As Worksheet 

Set ws = ThisWorkbook.Sheets(wksht) 

Set ws = Nothing 
End Sub 

Je veux être en mesure de passer cette sous routine comme une référence à une variable avec quelque chose comme ça plutôt que d'avoir à déclarer explicitement dans chaque routine:

Set ws = module10.varWorksheet("Sheet1") 

Je reçois erreur de compilation -> fonction attendue ou variable.

Answer 1

Vous devriez utiliser une fonction comme celle-ci.

Function varWorksheet(wksht As String) As Worksheet 
    On Error Resume Next 
    Set varWorksheet = ThisWorkbook.Sheets(wksht) 
End Function 

Il ne retournera rien si la feuille de calcul n'existe pas. Cela fonctionne bien.

Sub Test() 
    Dim ws As Worksheet 

    Set ws = Modul10.varWorksheet("Tabelle4") 
    If ws Is Nothing Then 
     Debug.Print "No worksheet" 
    Else 
     ' what ever you want 
    End If 
End Sub