Simplifier un code
p
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
p
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