Excel/VBA - Remplir ComboBox avec valeurs
Résolu/Fermé
RussellD
RussellD
- Messages postés
- 57
- Date d'inscription
- jeudi 18 mars 2010
- Statut
- Membre
- Dernière intervention
- 6 septembre 2010
RussellD
- Messages postés
- 57
- Date d'inscription
- jeudi 18 mars 2010
- Statut
- Membre
- Dernière intervention
- 6 septembre 2010
A voir également:
- Remplir combobox vba
- Affecter valeur combobox vba - Meilleures réponses
- Vba remplir combobox - Meilleures réponses
- VBA: remplir combobox à partir d'une colonne ✓ - Forum - Excel
- Excel/VBA - Remplir ComboBox avec valeurs ✓ - Forum - VB / VBA
- Remplir combobox selon conditon ✓ - Forum - VB / VBA
- VBA-Excel Une boucle pour remplir une combobox ✓ - Forum - VB / VBA
- [VBA-E] Remplir combobox à partir de cellules ✓ - Forum - Excel
6 réponses
RussellD
11 mai 2010 à 12:49
- Messages postés
- 57
- Date d'inscription
- jeudi 18 mars 2010
- Statut
- Membre
- Dernière intervention
- 6 septembre 2010
11 mai 2010 à 12:49
Bonjour pijaku,
merci beaucoup, ton astuce fonctionne parfaitement. Néanmoins j'ai un nouveau problème : les valeurs se stockent bien dans la ComboBox, mais lorsque je clique dessus elles ne s'affichent pas dans celle-ci... Est-ce lié à l'évenement utilisé?
merci beaucoup, ton astuce fonctionne parfaitement. Néanmoins j'ai un nouveau problème : les valeurs se stockent bien dans la ComboBox, mais lorsque je clique dessus elles ne s'affichent pas dans celle-ci... Est-ce lié à l'évenement utilisé?
pijaku
11 mai 2010 à 15:13
- Messages postés
- 12257
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 3 septembre 2021
11 mai 2010 à 15:13
Je ne sais pas réellement en quoi consistent tous les évènements... Je teste et je regarde celui qui fonctionne. J'ai cru naïvement qu'en changeant d'évènement cela aurait pu fonctionner. De ce fait, je t'ai induit en erreur. Tu étais bien parti. Il convient effectivement de combiner ce que tu as fait (ton évènement était bon : WorkBooks_Open) et mon code :
Private Sub Workbook_Open() Sheets("Feuil1").ComboBox1.Clear Dim i As Integer For i = 1 To 6 Sheets("Feuil1").ComboBox1.AddItem Sheets("Feuil1").Cells(i, 17) Next i End Sub
pijaku
Modifié par pijaku le 11/05/2010 à 11:45
- Messages postés
- 12257
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 3 septembre 2021
Modifié par pijaku le 11/05/2010 à 11:45
Salut,
Essaye de faire fonctionner ta combobox avec l' évènement DropButtonClick(). Le code doit ressembler à cela :
Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --
Essaye de faire fonctionner ta combobox avec l' évènement DropButtonClick(). Le code doit ressembler à cela :
Private Sub ComboBox1_DropButtonClick() ComboBox1.Clear Dim i As Integer With Sheets("Déperditions") For i = 1 To 4 ComboBox1.AddItem .Cells(i, 17) Next i End With End Sub
Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --
RussellD
11 mai 2010 à 15:40
- Messages postés
- 57
- Date d'inscription
- jeudi 18 mars 2010
- Statut
- Membre
- Dernière intervention
- 6 septembre 2010
11 mai 2010 à 15:40
Re,
j'ai eu la même idée que toi, j'ai essayé le code que tu viens d'écrire. Mais cela ne fonctionne pas, et il me met à chaque fois "Objet Requis" en erreur et en parlant du ComboBox1.. C'est étrange car ton code marchait très bien avec l'évenement DropButtonClick (mis a part le petit pb dont on a parlé..)
En gros c'est comme si au moment où le fichier Excel s'ouvrait, il ne detectait pas la présence de ma combobox, c'est bizarre...
Je continue à chercher, en tout cas merci beaucoup pour ton aide.
Si je trouve une solution je la ferai bien sur partager
Cordialement
j'ai eu la même idée que toi, j'ai essayé le code que tu viens d'écrire. Mais cela ne fonctionne pas, et il me met à chaque fois "Objet Requis" en erreur et en parlant du ComboBox1.. C'est étrange car ton code marchait très bien avec l'évenement DropButtonClick (mis a part le petit pb dont on a parlé..)
En gros c'est comme si au moment où le fichier Excel s'ouvrait, il ne detectait pas la présence de ma combobox, c'est bizarre...
Je continue à chercher, en tout cas merci beaucoup pour ton aide.
Si je trouve une solution je la ferai bien sur partager
Cordialement
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
pijaku
11 mai 2010 à 15:45
- Messages postés
- 12257
- Date d'inscription
- jeudi 15 mai 2008
- Statut
- Modérateur
- Dernière intervention
- 3 septembre 2021
11 mai 2010 à 15:45
Cela fonctionne bien chez moi, vérifie le nom de tes feuilles dans :
Private Sub Workbook_Open() Sheets("Feuil1").ComboBox1.Clear Dim i As Integer For i = 1 To 6 Sheets("Feuil1").ComboBox1.AddItem Sheets("Feuil1").Cells(i, 17) Next i End Sub
RussellD
11 mai 2010 à 15:51
- Messages postés
- 57
- Date d'inscription
- jeudi 18 mars 2010
- Statut
- Membre
- Dernière intervention
- 6 septembre 2010
11 mai 2010 à 15:51
: - ) ca marche nikel !
En effet je n'avais pas précisé la feuille dans laquelle se trouvait ma combobox, c'est pour ça qu'il ne la trouvait pas. Tout est réglé maintenant.
En tout cas merci beaucoup pour ton aide pijaku, a bientot !
Cordialement
En effet je n'avais pas précisé la feuille dans laquelle se trouvait ma combobox, c'est pour ça qu'il ne la trouvait pas. Tout est réglé maintenant.
En tout cas merci beaucoup pour ton aide pijaku, a bientot !
Cordialement
11 mai 2010 à 12:52
11 mai 2010 à 14:02
Cela ne fonctionne pas, les valeurs ne se listent même plus dans le combobox.. Qu'est ce que l'évenement BeforeDropAndPaste exactement?