Code :
- Sub Bouton1_QuandClic()
- Dim i As Integer
- For i = 1 To 3 Step 1
- Sheets("Dossier(" & i & " )" ).Select
- MsgBox i
- Next i
- End Sub
|
Moi j'ai mis ça, j'ai nommé 3 Feuilles Dossier(3), Dossier(1) et Dossier(2), dans cet ordre, et ça marche. J'ai mis le messageBox pour vérifier... Qu'est-ce qu'il te met?