Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Gros problème de chargement liste combobox

  • Initiateur de la discussion Initiateur de la discussion kohta
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

kohta

XLDnaute Occasionnel
Bonjour à tous

J'ai crée une USF contenant deux Combobox; et lancée par un CommandButton situé sur une de mes feuilles excel.

Chacune d'elle contient une liste déroulante personnalisée, et je viens donc les charger sous la macro Private Sub UserForm_Initialize() .

Voici à quoi ressemble le code:
Code:
'Chargement de la liste de la combobox2 d'après range1
[B]   ComboBox2.Column = Sheets("Données").Range("D1:AE1").Value[/B]
'Chargement de la liste de la combobox1 d'après range2
   ComboBox1.Column = Sheets("Dataprev").Range("D2:AC2").Value

Seulement voila, lorsque je ne met que la première ligne, en gras ici, tout fonctionne, mais lorsque je met la seconde, pour charger la combobox1, j'ai le droit à l'erreur suivante lors du clic sur le commandbutton:

HTML:
Erreur (9): L'indice n'appartient pas à la sélection.

D'ou cela vient?
Je ne peut pas initialiser deux combobox en même temps?

Merci de votre aide
 
Re : Gros problème de chargement liste combobox

Bonjour

essaies

for x=4 to 31
ComboBox2.Additem Sheets("Données").cells(1,x)
next x
for x = 4 to 29
ComboBox1.additem Sheets("Dataprev").cells(2,x)
next x
 
Re : Gros problème de chargement liste combobox

Merci, je vais essayer de suite.

J'ai un peu de mal à comprendre la syntaxe, pourrait tu me dire quelles sont les partie à adapter à mon range ou autre?

Merci encore
 
Re : Gros problème de chargement liste combobox

Re

C'est adapté à ton code

for x=4 to 31 'Pour x = 4 à 31 colonne 4 D à 31 AE
ComboBox2.Additem Sheets("Données").cells(1,x) 'Ajoutes de la feuille Données les cellules ligne 1 colonne x
next x
for x = 4 to 29
ComboBox1.additem Sheets("Dataprev").cells(2,x)
next x
 
Re : Gros problème de chargement liste combobox

Merci beaucoup, mais ta solution ne fonctionne qu'a moitié, comme la mienne.

Quand je ne met que la première partie:
Code:
for x=4 to 31
ComboBox2.Additem Sheets("Données").cells(1,x)
next x

cela fonctionne bien, mais que je met la seconde partie
Code:
For x = 4 To 29
ComboBox1.AddItem Sheets("Dataprev").Cells(2, x)
Next x

J'obtiens le même code d'erreur qu'avant...😱
Je ne comprends pas pourquoi excel pose problème pour charger une liste dans la deuxième combobox...

Une autre idée?🙁
 
Re : Gros problème de chargement liste combobox

oui, c'est la première chose à laquelle j'ai pensé... je tavoue que je suis coincé...
La deuxième combobox ne veut pas etre chargée, pourtant le range est bon, la feuille est bonne... ...
 
Re : Gros problème de chargement liste combobox

La blague...
Je me doutai que c'était un bug stupide mais à ce point....

Mea Culpa😱😱😱

Merci pour ton aide en tout cas, et je te souhaite une bonne journée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…