Magic_Doctor
XLDnaute Barbatruc
Bonjour,
Je voudrais faire une petite modification d'une boucle dans une macro. Je remplis la liste d'une ComboBox avec les noms des différentes feuilles d'un classeur, est exclue la feuille active :
Mais je voudrais éliminer systématiquement de cette liste les noms des 3 dernières feuilles du classeur.
Comment modifier le :
pour que la boucle ne concerne que l'ensemble des feuilles du classeur amputé des 3 dernières ?
Merci pour toute aide et bonne journée.
Je voudrais faire une petite modification d'une boucle dans une macro. Je remplis la liste d'une ComboBox avec les noms des différentes feuilles d'un classeur, est exclue la feuille active :
VB:
Sub Menu()
'BOISGONTIER
Dim s As Object
Me.ComboBox1.Clear
Me.ComboBox1.AddItem "--- ALLER À ---"
For Each s In ActiveWorkbook.Sheets
If s.Name <> ActiveSheet.Name Then Me.ComboBox1.AddItem s.Name
Next s
Me.ComboBox1.ListIndex = 0
End Sub
Comment modifier le :
VB:
For Each s In ActiveWorkbook.Sheets
Merci pour toute aide et bonne journée.