Simplifier un code

Y compris Power BI, Power Query et toute autre question en lien avec Excel
p
poutch89
Membre habitué
Membre habitué
Messages : 124
Inscrit le : 28 novembre 2014
Version d'Excel : 2010

Message par poutch89 » 16 novembre 2015, 04:21

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
Avatar du membre
Sharney
Membre fidèle
Membre fidèle
Messages : 302
Appréciations reçues : 5
Inscrit le : 15 octobre 2013
Version d'Excel : 2013

Message par Sharney » 16 novembre 2015, 06:56

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
Avatar du membre
[Wilder]
Membre habitué
Membre habitué
Messages : 146
Inscrit le : 14 novembre 2015
Version d'Excel : 2007fr

Message par [Wilder] » 16 novembre 2015, 08:15

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[surligner]?[/surligner].AddItem f.Name
        End If
    Next
p
poutch89
Membre habitué
Membre habitué
Messages : 124
Inscrit le : 28 novembre 2014
Version d'Excel : 2010

Message par poutch89 » 20 novembre 2015, 15:41

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
Classeur1.xls
(59.5 Kio) Téléchargé 10 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message