ListBox Excel

Fermé
lemalin23 - 20 févr. 2007 à 13:23
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 - 21 févr. 2007 à 12:15
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

2 réponses

Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 214
20 févr. 2007 à 15:58
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
0
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
0
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 214
21 févr. 2007 à 12:15
en remplaçant
For Each wshFeuille In Sheets
par
For Each wshFeuille In WorkSheets
tu ignores les onglets graphiques (qui de toute façon provoquent une erreur avec la première boucle). De plus, tu peux aussi faire un simple test sur le nom de la feuille si tu dois en exclure certaine(s).
0