Déclaration feuille à partir de la valeur d'une cellule

Bonjour,

En B2, j'ai la valeur texte = S_3. Et j'ai une feuille nommée S_3.

Pour résumer, j'aimerai arriver a attribuer une référence d'objet (set) à partir de la valeur de B2

Option Explicit
Private Sub cmd1_Click()
Dim Ws As Worksheet
    ' Code?
    '
    Set Ws = Worksheets("S_3")
    MsgBox Ws.[A2]
End Sub

J'ai tenté vainement de trouver une solution, et je fatigue

Merci par avance.

Cdlt

27test.zip (13.98 Ko)

Bonjour

Pas trop saisie ce que tu veux faier

Déjà tu n'es pas dans la bonne macro

Essayes

Private Sub CommandButton1_Click()
Dim Ws As Worksheet
    ' Code?
    '
    'Set Ws = Worksheets("S_3")
    Set Ws = Worksheets(Range("B2").Value)
    MsgBox Ws.[A2]

End Sub

Re,

Merci Banzai64,

Je m'étais égaré dans l'avenue Gaston Cambot

Je vais m'endormir sereinement.

Cdlt

Rechercher des sujets similaires à "declaration feuille partir valeur"