ListBox Excel

Question

Bonjour, 
voila mon programme:

Private Sub ListBox1_DropButtonClick()
    ListBox1.Clear
    ListBox1.AddItem Sheets("Couv R1").Name
    ListBox1.AddItem Sheets("Couv R2").Name
    ListBox1.AddItem Sheets("Couv R3").Name
    ListBox1.AddItem Sheets("Couv R4").Name
    ListBox1.AddItem Sheets("Couv R5").Name
    ListBox1.AddItem Sheets("Couv R6").Name
    ListBox1.AddItem Sheets("Couv R7").Name
    ListBox1.AddItem Sheets("Couv R8").Name
    ListBox1.AddItem Sheets("Couv R9").Name
    ListBox1.AddItem Sheets("Couv R10").Name
    ListBox1.AddItem Sheets("Couv R11").Name
    ListBox1.AddItem Sheets("Couv R12").Name
    ListBox1.AddItem Sheets("Couv FR").Name
End Sub

Private Sub ListBox1_Click()
    Sheets(ListBox1.Value).Activate
End Sub

il me renvoie le message d'erreur suivant : erreur d'exceution incomptabilité type '13

merci de m'aider pour corriger cette erreur

Kobaya · Answer

salut,

moi, j'ai pas d'erreur avec ton code...

mais je te propose un petit bout de code pour alimenter ta listbox :
Sub AlimListBox()
    Dim wshFeuille  As Worksheet
    
    For Each wshFeuille In Sheets
        ActiveSheet.ListBox1.AddItem wshFeuille.Name
    Next
End Sub

lemalin23 · Answer

ok merci pour l'astuce 
mais juste une chose comment mettre uniquement les items que l'on souhaite voir apparaitre dans la listbox?
sachant que j'ai pour la plupart des onglets des graphiques

Merci d'avance

ListBox Excel

2 réponses

Newsletters