Bonjour à tous,

J'ai essayer de faire un code pour ouvrir une feuille en fonction de la case C4 et C5.
Il me semble que j'arrive au bout de mes petites compétences car je n'y suis pas arriver.

ma combobox s'appelle ListeEleve et ma userform Liens.
mes feuilles sont nommées "tableau synthèse" puis "Élève ligne 04" à "Élève ligne 17".

voici comment je charge ma combobox en prenant les 2 colonnes de ma première feuille Tableau synthèse

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
    Set Ws = Sheets("Tableau synthèse")
 
    With Me.ListeEleve
        For Plage = 4 To 17
        Text = Ws.Cells(Plage, 1)
            If Text <> "" Then
                .AddItem Ws.Range("A" & Plage) & " " & Ws.Range("F" & Plage)
            End If
        Next Plage
    End With
End Sub
Et j'essai de faire mes liens en comparant mes cases C4 et C5 qui sont un repports de mes 2 colonnes Tableau synthèse.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Valider_Click()
        For i = 4 To 17
        Dim sheetName As String
        sheetName = "Élève ligne 0" & i
 
        If Sheets(sheetName).Range("C4") & Sheets(sheetName).Range("C5") = ListeEleve Then
            Sheets(sheetName).Select
        End If
    Next i
 
    Unload Me
End Sub
Je ne sais pas si j'ai était clair dans mes explication et merci de votre aide.
Bonne soirée