Ouvrir une feuille en fonction de la valeur d'une cellule

J'ai trois feuilles nommées aqw,1 et 2

Dans aqw en A1 j'ai soit 1 soit 2

une macro pour ouvrir la feuille correspondante.

Merci

Bonsoir,

sur ce forum, un bonjour (ou un bonsoir) pour commencer un sujet fait bonne impression, surtout pour un tout premier message.

Pour votre macro, 3 cas de figure ;

1) pour l'exécuter à partir d'un bouton (ou manuellement via la liste de macros), mettre ce code dans un module ;

Sub ChoixF()
    Dim r1 As String
    r1 = Worksheets("aqw").Range("$A$1")
    On Error GoTo Fin
    Sheets(r1).Select
Fin:
End Sub

2) pour l'exécuter à l'ouverture du fichier, mettre ce code sur ThisWorkbook ;

Private Sub Workbook_Open()
    Dim r1 As String
    r1 = Worksheets("aqw").Range("$A$1")
    On Error GoTo Fin
    Sheets(r1).Select
Fin:
End Sub

3) pour l'exécuter dès que vous changez le chiffre en A1, mettre ce code sur aqw ;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
    Dim r1 As String
    r1 = Worksheets("aqw").Range("$A$1")
    On Error GoTo Fin
    Sheets(r1).Select
    End If
Fin:
End Sub

On peut cumuler les 3.

Un grand merci. Le code fonctionne très bien. Très bonne journée