XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule

[berru76]

Bonjour
Si possible ouvrir une feuille dont le nom est la valeur d'une cellule
Dans l'exemple ci-joint
Selon la valeur en Q10 de la feuille "Inscriptions" ouvrir la feuille correspondante
afin de la copier dans la feuille Gains
Apres j'essaierai de la mettre au début de la macro "Afficherconcours"
Exemple ci-joint
Merci pour votre aide

 

[Dranreb]

Bonsoir.

Sheets([Q10].Text).Activate

 

[berru76]

Bonsoir.

Sheets([Q10].Text).Activate

Un grand merci
fonctionne très bien

 

[Dan]

Bonsoir,

Mettez ces deux codes dans un module
Ensuite vous associez le code Copiegains à votre bouton "Ouvrir selon Q10"

Sub Copiegains()
Dim nom As String, Nomfeuille As String
Dim i As Byte

nom = (Sheets("Inscriptions").Range("Q10") * 100) & "%"
FeuilleExiste (Nomfeuille)
If FeuilleExiste(nom) = True Then
    For i = 2 To 89 Step 3
        Sheets("Gains").Cells(1, i) = Sheets(nom).Cells(1, i)
    Next i
End If
End Sub

Function FeuilleExiste(Nomfeuille As String) As Boolean
    On Error Resume Next
    FeuilleExiste = Sheets(Nomfeuille).Name <> ""
    On Error GoTo 0
End Function

le code copie les valeurs dans la feuille Gains

---

Oups, je n'avais pas vu les réponses... 😱
Si intérêt je laisse le post sinon je supprimerai