ListBox Excel
lemalin23
-
Kobaya Messages postés 282 Date d'inscription Statut Membre Dernière intervention -
Kobaya Messages postés 282 Date d'inscription Statut Membre Dernière intervention -
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
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
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
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 -
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
