Bonjour,
merci Hervé,
voici une macro que Zon a faite une nuit au cours d'une de nos soirées d'apprentissage : on passe par une combo, on selectionne la feuille,
les feuilles s'incrémentent au fur et à mesure
1 À l'aide du menu :affichage - barre d'outils - boîtes à outils contrôles
Choisir Zone de liste modifiable
2 Copier les macros suivantes dans la feuille de code correspondant à cette feuille ("TaFeuille")
Option Explicit
Zon 04-04-04
Private Sub ComboBox1_Change()
On Error Resume Next
Sheets(ComboBox1.List(ComboBox1.ListIndex)).Activate
End Sub
Private Sub ComboBox1_GotFocus()
ComboBox1.List = RecupF
End Sub
Function RecupF()
Dim I&, J&, T()
For I = 1 To ThisWorkbook.Worksheets.Count
With Sheets(I)
If .Visible Then
ReDim Preserve T(J)
T(J) = .Name
J = J + 1
End If
End With
Next I
RecupF = T
End Function
Private Sub ComboBox1_LostFocus()
ComboBox1.Value = ""
End Sub
Merci Zon
Celeda