Comment transmettre une feuille de calcul et des plages en tant que variables ?

Question

Je souhaite transmettre les noms des feuilles et des plages entre les sous-programmes. Ce qui suit provoque une erreur "Subscript out of range" :

Sub This()

    x = "Sheet1"
    y = "D3"

    MsgBox (x.Range(y).Value)

End Sub

Il s'agit de un exemple de mon Explorateur de projets .

Answer 1

La page de votre feuille de calcul Propriété .Name es Évaluation ; sa fiche de travail Propriété .CodeName es Fiche 1 .

dim x as string, y as string
dim xx as worksheet, yy as range

x = "Valuation"
set xx = worksheets(x)
y = "D3"
set yy = xx.range(y)
debug.print yy.address(0,0, external:=true)  '<~~returns Valuation!D3 (with the workbook name)

debug.print Sheet1.name    '<~~returns Valuation from CodeName