Combobox : bug quand une seule valeur [Résolu]
cs_lucky78
- Messages postés
- 3
- Date d'inscription
- dimanche 14 mars 2010
- Dernière intervention
- 12 juin 2012
- Messages postés
- 3
- Date d'inscription
- dimanche 14 mars 2010
- Dernière intervention
- 12 juin 2012
A voir également:
- Combobox : bug quand une seule valeur
- Combobox en couleurs, lecture seule...(api) - Codes sources - C / C++ / C++.NET (API)
- INSERT INTO une seule valeur ✓ - Forum - SQL
- Recuperer une valeur d'un combobox ✓ - Forum - C# / .NET
- Recherche selon valeur du ComboBox ✓ - Forum - Visual Basic 6
- Récupérer valeur combobox dynamique ✓ - Forum - Visual Basic
5 réponses
Meilleure réponse
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Pour que tu comprennes mieux. Et que tu n'appelles plus bug" ce qui n'est pas un bug.
Ton code, tel qu'il est, tend à dresser un tableau à 2 dimensions, que tu envoies ensuite vers ta combo.
Un tel tableau ne peut toutefois pas concerner une seule cellule.
Fais donc cette expérience :
Tout se passera bien si plus d'un rang, mais tu auras une erreur si un seul rang, bien évidemment.
Il te faudrait alors gérer, avec ta méthode, deux cas : un pour si plusieurs rangs (comme tu le fais) et un si moins de deux rangs (en alimentant alors avec additem) !
Lourd lourd et inutilement lourd alors que l'utilisation de la propriété RowSource fait tout ce travail-là !
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Ton code, tel qu'il est, tend à dresser un tableau à 2 dimensions, que tu envoies ensuite vers ta combo.
Un tel tableau ne peut toutefois pas concerner une seule cellule.
Fais donc cette expérience :
With Sheets("Lists")
toto = .Range("J2:J" & .Range("J500").End(xlUp).Row).Value
msgbox ubound(toto)
End With
Tout se passera bien si plus d'un rang, mais tu auras une erreur si un seul rang, bien évidemment.
Il te faudrait alors gérer, avec ta méthode, deux cas : un pour si plusieurs rangs (comme tu le fais) et un si moins de deux rangs (en alimentant alors avec additem) !
Lourd lourd et inutilement lourd alors que l'utilisation de la propriété RowSource fait tout ce travail-là !
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 101 internautes ce mois-ci
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bonjour,
Je ne parviens pas à générer cette situation, malgré mes efforts.
Montre-nous donc le code utilisé et les propriétés de ta combo.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
Je ne parviens pas à générer cette situation, malgré mes efforts.
Montre-nous donc le code utilisé et les propriétés de ta combo.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
- Messages postés
- 3
- Date d'inscription
- dimanche 14 mars 2010
- Dernière intervention
- 12 juin 2012
La liste est générée correctement, je ne pense pas que le problème vienne de là donc je ne mets pas le code. Ensuite j'appelle l'userform avec .Show et j'initialise la combobox comme ça :
L'erreur survient à ce moment là.
Pour les propriétés de la combobox, il doit y avoir un moyen simple de les récupérer mais je ne le connais pas. Sinon quelles sont les propriétés que tu aurais besoin de te connaitre ?
Merci de te pencher sur mon problème en tout cas !
Private Sub UserForm_Initialize()
With Sheets("Lists")
ComboBoxProjet.List = .Range("J2:J" & .Range("J500").End(xlUp).Row).Value
End With
End Sub
L'erreur survient à ce moment là.
Pour les propriétés de la combobox, il doit y avoir un moyen simple de les récupérer mais je ne le connais pas. Sinon quelles sont les propriétés que tu aurais besoin de te connaitre ?
Merci de te pencher sur mon problème en tout cas !
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
1) Affiche donc la fenêtre des propriétés !
2) tu t'y prends de mauvaise manière : intéresse-toi donc à la propriété RowSource et utilise-la, plutôt que de faire comme tu le fais. En d'autres termes : lie ta combo à tes cellules.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
2) tu t'y prends de mauvaise manière : intéresse-toi donc à la propriété RowSource et utilise-la, plutôt que de faire comme tu le fais. En d'autres termes : lie ta combo à tes cellules.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
- Messages postés
- 3
- Date d'inscription
- dimanche 14 mars 2010
- Dernière intervention
- 12 juin 2012
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.