Chargement combobox

[tesmiro]

Bonjour à tous,
Pour charger dans un combobox le nom des feuilles d'un classeur en excluant la feuille extraction et les feuilles qui n'ont pas "Date" dans la cellule A1 (en faite, je ne charge dans mon combobox que les feuilles avec des années comme nom) , j'utilise se bout de code:

Dim NbreFeuil As Integer

CbxAnnée.Clear
For NbreFeuil = 1 To Sheets.Count
        
    If Sheets(NbreFeuil).Name <> "Extraction" Then

        If Sheets(NbreFeuil).Cells(1, 1) = "Date" Then
        CbxAnnée.AddItem Sheets(NbreFeuil).Name
         End If
    End If

Next NbreFeuil

Cela fonctionne tant que je n'ai pas de graphique comme feuilles.
comment exclure les graphiques ?
Merci de votre aide.

 

[Etienne2323]

Re : Chargement combobox

Saut tesmiro,
je n'ai pas pu teser, mais vous pouvez toujours essayer d'ajouter simplement une condition. Voici un exemple :

Dim NbreFeuil As Integer

CbxAnnée.Clear
For NbreFeuil = 1 To Sheets.Count
        
    If Sheets(NbreFeuil).Name <> "Extraction" Or Left(Sheets(NbreFeuil).Name, 5) = "Graph" Then

        If Sheets(NbreFeuil).Cells(1, 1) = "Date" Then
        CbxAnnée.AddItem Sheets(NbreFeuil).Name
         End If
    End If

Next NbreFeuil

Bonne continuité,

Étienne

 

[tesmiro]

Re : Chargement combobox

bonsoir Etienne2323,
Je viens de tester, idem. Le graph me génère une erreur.

 

[tesmiro]

Re : Chargement combobox

Salut,
Génial : Worksheets me permet de ne sélectionner que des feuilles
merci pour le coup de main