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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
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
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.
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
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" a écrit dans le message de groupe 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
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" <comptabilite@olcoven.fr> a écrit dans le message de groupe de discussion :
4a29184e$0$292$7a628cd7@news.club-internet.fr...
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.
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" a écrit dans le message de groupe 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
Michel MTO
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" a écrit dans le message de 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" a écrit dans le message de groupe
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
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" <michdenis@hotmail.com> a écrit dans le message de
news:OlmbODe5JHA.3860@TK2MSFTNGP05.phx.gbl...
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" <comptabilite@olcoven.fr> a écrit dans le message de groupe
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
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" a écrit dans le message de 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" a écrit dans le message de groupe
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