Simplifier un code

Bonjour à tous,

j'ai un petit souci je dispose de ce code ci dessous pour permettre d'incerer des nom d'onglet dans une combobox:

Sheets(Array("Janvier NUIT","Fevrier NUIT","Mars NUIT","Avril NUIT","Mai NUIT","Juin NUIT","Juillet NUIT","Aout NUIT","Septembre NUIT","Octobre NUIT","Novembre NUIT"," Decembre NUIT" ,"01 2015 HC" ,"Janvier HC","Fevrier HC","Mars HC","Avril HC","Mai HC","Juin HC","Juillet HC","Aout HC","Septembre HC","Octobre HC","Novembre HC","Decembre HC","Janvier HEMOSTASE","Fevrier HEMOSTASE","Mars HEMOSTASE","Avril HEMOSTASE","Mai HEMOSTASE","Juin HEMOSTASE","Juillet HEMOSTASE","Aout HEMOSTASE","Septembre HEMOSTASE","Octobre HEMOSTASE","Novembre HEMOSTASE","Decembre HEMOSTASE","Janvier OP","Fevrier OP","Mars OP","Avril OP","Mai OP","Juin OP","Juillet OP","Aout OP","Septembre OP","Octobre OP","Novembre OP","Decembre OP","Janvier SECRETAIRE","Fevrier SECRETAIRE","Mars SECRETAIRE","Avril SECRETAIRE","Mai SECRETAIRE","Juin SECRETAIRE","Juillet SECRETAIRE","Aout SECRETAIRE","Septembre SECRETAIRE","Octobre SECRETAIRE","Novembre SECRETAIRE","Decembre SECRETAIRE","Janvier IDE","Fevrier IDE","Mars IDE","Avril IDE","Mai IDE","Juin IDE","Juillet IDE","Aout IDE","Septembre IDE","Octobre IDE","Novembre IDE","Decembre IDE","JANVIER ARC","FEVRIER ARC","MARS ARC","AVRIL ARC","MAI ARC","JUIN ARC","JUILLET ARC","AOUT ARC","SEPTEMBRE ARC","OCTOBRE ARC","NOVEMBRE ARC","DECEMBRE ARC")).Select

je suis obliger de lister tous les onglets pour éviter de visualiser certain onglet dans ma combobox or VBA considere qu'il y a trop de caractere. existerais t'il un code permettant de dire je veux tous les onglets entre l'onglet Janvier NUIT et DECEMBRE ARC

merci pour votre aide

Bonjour poutch,

S'agit-il de toutes les feuilles de ton fichier ? Si oui, il y a une en réalisant une boucle comme suit :

Sub Toto()
Dim Compteur As Integer
    Application.DisplayAlerts = False
    For Compteur = Worksheets.Count To 1 Step -1
        '----METTRE LA MACRO
    Next Compteur
    Application.DisplayAlerts = True
End Sub

Bonjour.

Dim f As Worksheet
    For Each f In Worksheets
        If f.Name = "Janvier NUIT" Then
            dp = f.Index
        ElseIf f.Name = "DECEMBRE ARC" Then
            fn = f.Index
        End If
    Next
If fn < dp Then MsgBox "Vérifier l'index des onglets", , "Fin de la procédure": Exit Sub

    For Each f In Worksheets
        If f.Index >= deb And f.Index <= fn Then
            Combobox?.AddItem f.Name
        End If
    Next

Bonjour,

Désolé d'avoir tardé à vous répondre j'ai un peu de mal à utilisé vos codes concrétement donc je vous joins un fichier

merci

11classeur1.zip (12.96 Ko)
Rechercher des sujets similaires à "simplifier code"