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
A voir également:
- ListBox Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
- Excel trier par ordre croissant chiffre - Guide
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 :
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
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
