Réaliser une boucle sur un nombre donné de feuilles

[Magic_Doctor]

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 :

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

Mais je voudrais éliminer systématiquement de cette liste les noms des 3 dernières feuilles du classeur.
Comment modifier le :

    For Each s In ActiveWorkbook.Sheets

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.

 

[Efgé]

Re : Réaliser une boucle sur un nombre donné de feuilles

Bonjour Magic_Doctor
Une proposition :

Sub test()
 For Each s In ActiveWorkbook.Sheets
        If s.Name <> ActiveSheet.Name And s.Index <= Sheets.Count - 3 Then Me.ComboBox1.AddItem s.Name
    Next s
End Sub

Cordialement

 

[Pierrot93]

Re : Réaliser une boucle sur un nombre donné de feuilles

Bonjour,;

une autre approche :

Sub Menu()
'BOISGONTIER
Dim s As Integer
    Me.ComboBox1.Clear
    Me.ComboBox1.AddItem "---  ALLER À  ---"
    For s = 1 To ActiveWorkbook.Sheets.Count - 3
        If Sheets(s).Name <> ActiveSheet.Name Then Me.ComboBox1.AddItem Sheets(s).Name
    Next s
    Me.ComboBox1.ListIndex = 0
End Sub

bonne journée
@+

 

[Magic_Doctor]

Re : Réaliser une boucle sur un nombre donné de feuilles

Bonjour Efgé, Pierrot93,

Merci pour vos réponses.
La solution d'Efgé marche très bien. En revanche, celle de Pierrot93 plante, car "s" doit être un "Object".

Bonne journée.

 

[job75]

Re : Réaliser une boucle sur un nombre donné de feuilles

Bonsoir Magic_Doctor, Efgé, Pierrot,

En revanche, celle de Pierrot93 plante, car "s" doit être un "Object".

Allons Doctor que vas-tu chercher 😕

Pierrot a déclaré la variable s As Integer, ce n'est pas un objet !!!

Mais c'est vrai dans ce cas il est plus classique d'utiliser i ou n...

A+

 

[Magic_Doctor]

Re : Réaliser une boucle sur un nombre donné de feuilles

Bonsoir,

En effet, 1000 excuses, lors d'un premier essai la solution de Pierrot plantait.
J'ai tout revu proprement et les 2 fonctionnent.
Pour preuve : voir les 2 PJ

¡Hasta la vista!