Création
d'entreprise
Posez votre question Signaler

ListBox Excel

lemalin23 - Dernière réponse le 21 fév 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
Lire la suite 

ListBox Excel »

3 réponses
Réponse
+0
moins plus
Kobaya 289Messages postés 28 mai 2004Date d'inscription 20 fév 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

Ajouter un commentaire
Ajouter un commentaire
Réponse
+0
moins plus
lemalin23 20 fév 2007 à 16:41
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

 Ajouter un commentaire
Kobaya - 21 fév 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).
Ajouter un commentaire
Posez votre question
Ce document intitulé « ListBox Excel » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
5 extensions si vous voulez revenir à l'ancien Facebook