Listbox1

Le
Michel MTO
Bonjour,
Voilà mon souci :

J'ai créer un userform sur lequel apparait un bouton de comande et une
listbox que je cache avec l'instruction suivante :

Private Sub UserForm_Activate()
Caption = "A c c u e i l"
ListBox1.Visible = False
End Sub

Lorsque je clic sur mon bouton de commande, qui est le seul apparent, sur
mon formulaire, il fait appel à une macro installé dans un module.

Dans ce module j'ai mis le code suivant :

'Place Les onglets des mois dans une liste box
Dim EntryCount As String
For u = Worksheets.Count - 19 To Worksheets.Count - 8
EntryCount = Worksheets(u).Name
ListBox1.AddItem (EntryCount)
Next u
ListBox1.Visible = True

Lorsque j'execute le userform, il me ramène l'erreur suivante :

Objet requis sur la ligne ListBox1.AddItem (EntryCount)
et sur la ligne ListBox1.Visible = True


Mon objectif c'est de créer une listbox avec le nom de certaines feuilles du
classeur (Worksheets.Count - 19 To Worksheets.Count - 8)
pour pouvoir ensuite sélection un nom et m'en servir ensuite comme variable
dans la suite de mon code.

Merci pour votre aide

Michel MTO
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #19494391
Bonjour.
UserForm1.ListBox1.AddItem (EntryCount)
UserForm1.ListBox1.Visible = True
Daniel

Bonjour,
Voilà mon souci :

J'ai créer un userform sur lequel apparait un bouton de comande et une
listbox que je cache avec l'instruction suivante :

Private Sub UserForm_Activate()
Caption = "A c c u e i l"
ListBox1.Visible = False
End Sub

Lorsque je clic sur mon bouton de commande, qui est le seul apparent, sur
mon formulaire, il fait appel à une macro installé dans un module.

Dans ce module j'ai mis le code suivant :

'Place Les onglets des mois dans une liste box
Dim EntryCount As String
For u = Worksheets.Count - 19 To Worksheets.Count - 8
EntryCount = Worksheets(u).Name
ListBox1.AddItem (EntryCount)
Next u
ListBox1.Visible = True

Lorsque j'execute le userform, il me ramène l'erreur suivante :

Objet requis sur la ligne ListBox1.AddItem (EntryCount)
et sur la ligne ListBox1.Visible = True


Mon objectif c'est de créer une listbox avec le nom de certaines feuilles du
classeur (Worksheets.Count - 19 To Worksheets.Count - 8)
pour pouvoir ensuite sélection un nom et m'en servir ensuite comme variable
dans la suite de mon code.

Merci pour votre aide

Michel MTO


MichDenis
Le #19494381
Bonjour Michel,

Si ta procédure est dans un module autre que celui du formulaire, tu dois ajouter le nom
de l'objet (formulaire) à la ligne de code suivante

Userform1.ListBox1.Visible = True




"Michel MTO" 4a29184e$0$292$
Bonjour,
Voilà mon souci :

J'ai créer un userform sur lequel apparait un bouton de comande et une
listbox que je cache avec l'instruction suivante :

Private Sub UserForm_Activate()
Caption = "A c c u e i l"
ListBox1.Visible = False
End Sub

Lorsque je clic sur mon bouton de commande, qui est le seul apparent, sur
mon formulaire, il fait appel à une macro installé dans un module.

Dans ce module j'ai mis le code suivant :

'Place Les onglets des mois dans une liste box
Dim EntryCount As String
For u = Worksheets.Count - 19 To Worksheets.Count - 8
EntryCount = Worksheets(u).Name
ListBox1.AddItem (EntryCount)
Next u
ListBox1.Visible = True

Lorsque j'execute le userform, il me ramène l'erreur suivante :

Objet requis sur la ligne ListBox1.AddItem (EntryCount)
et sur la ligne ListBox1.Visible = True


Mon objectif c'est de créer une listbox avec le nom de certaines feuilles du
classeur (Worksheets.Count - 19 To Worksheets.Count - 8)
pour pouvoir ensuite sélection un nom et m'en servir ensuite comme variable
dans la suite de mon code.

Merci pour votre aide

Michel MTO
Michel MTO
Le #19494351
Ok ça fonctionne super, merci à tous les 2.

Quelle instruction dois je utiliser pour que la prodécure s'arrête et
attente le choix de l'utilisateur (le choix se fait sur clic dans cette
liste ainsi crée).
Puis se servir du choix et le stocker dans une variable.



"MichDenis" news:
Bonjour Michel,

Si ta procédure est dans un module autre que celui du formulaire, tu dois


ajouter le nom
de l'objet (formulaire) à la ligne de code suivante

Userform1.ListBox1.Visible = True




"Michel MTO"

de discussion :
4a29184e$0$292$
Bonjour,
Voilà mon souci :

J'ai créer un userform sur lequel apparait un bouton de comande et une
listbox que je cache avec l'instruction suivante :

Private Sub UserForm_Activate()
Caption = "A c c u e i l"
ListBox1.Visible = False
End Sub

Lorsque je clic sur mon bouton de commande, qui est le seul apparent, sur
mon formulaire, il fait appel à une macro installé dans un module.

Dans ce module j'ai mis le code suivant :

'Place Les onglets des mois dans une liste box
Dim EntryCount As String
For u = Worksheets.Count - 19 To Worksheets.Count - 8
EntryCount = Worksheets(u).Name
ListBox1.AddItem (EntryCount)
Next u
ListBox1.Visible = True

Lorsque j'execute le userform, il me ramène l'erreur suivante :

Objet requis sur la ligne ListBox1.AddItem (EntryCount)
et sur la ligne ListBox1.Visible = True


Mon objectif c'est de créer une listbox avec le nom de certaines feuilles


du
classeur (Worksheets.Count - 19 To Worksheets.Count - 8)
pour pouvoir ensuite sélection un nom et m'en servir ensuite comme


variable
dans la suite de mon code.

Merci pour votre aide

Michel MTO



Publicité
Poster une réponse
Anonyme