Discussion :

[gruget]

Bonjour à tous
J'ai posé hier une question sur une erreur de combobox.
J'ai compris que mon pb venait du fait que la plage où pointai la liste n'est pas dans la même feuille que la combobox.
Est-il possible de mettre dans listefillrange une plage de donnée placée dans une feuille différente.
Si oui comment faire?
J'ai essayé en nommant ma plage de cellule comme pour une liste déroulante mais cela de marche pas.
merci
rémi

[SfJ5Rpw8]

Elle est où finalement la combobox ... sur quel genre de feuille... ? comment affectez-vous la plage de donnée ...?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Feuil1!$C$6:$C$24

[gruget]

Voila jai deux feuilles de calcul Excel classique une "modele" sur laquelle est placé la combobox
une autre "configuration" qui comprend entre autres une liste de configuration dans la colonne 1
Pour le moment j'affecte la plage de donnée en remplissant la propriété ListFillRange
mais lorsque je rentre ma plage situé dans une autre feuille, excel ne veut pas "mémoire insuffisante pour afficher en entier"
du coup j'ai tenté d'attribuer un nom a ma plage car j'ai lu que ca marchait pour une liste déroulante classique mais il me donne la mm erreur
Il y a peut etre une option a mettre qq part? mais j'ai beau chercher je ne l'ai pas trouvé
merci
rémi

[yogyx]

Bonjour,

J'avais un pb du même type et je m'en suis sorti en faisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("modele").OLEObjects("Nom_de_ta_combobox").ListFillRange = "configuration!A1:A20"

Ici, j'ai pris le noms de tes feuilles mais le nom de la combobox et la plage (A2:A20) sont des exemples

Chez moi, ça marche !

Bon courage

[gruget]

Bonjour,
merci de ta réponse yogyx
en fait mon pb ne vient pas du fait que je n'arrive pas à remplir la propiété listfillrange de ma combobox, ca, ca marche bien.
Non le pb c'est que une fois que listfillrange est remplie avec les coordonnées de ma plage, des que je touche à ma combobox, il m'affiche l'erreur cité plus haut

mémoire insuffisante pour afficher en entier

même si il a l'air d'avoir compris ou il devait aller chercher les données (liste bien rempli mais une fois seulement)
par contre si je rentre une plage de cellule présente dans la même feuille, il n'y a pas de problème
rémi

[yogyx]

Désolé, je sèche

[gruget]

Non c pas grave tant pis
Pour contourner le pb je me suis résolu à copier ma plage de valeur sur la bonne feuille (pas top pasque je voulais pas trop utiliser des plages pour ca sur ma feuille de valeur)
de cette manière:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_open()
Dim i As Integer
 
i = 2
Do While Worksheets("Configuration").Cells(i, 1).Value <> ""
Worksheets("modele").Cells(i, 20).Value = Worksheets("Configuration").Cells(i, 1).Value
 
i = i + 1
Loop
 
Worksheets("modele").Activate
 
End Sub

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub WorkSheet_activate()
 
Dim marange As Range
Dim i As Integer
i = 2
While Worksheets("modele").Cells(i, 20) <> ""
 i = i + 1
Wend
Set marange = Range(Worksheets("modele").Cells(2, 20), Worksheets("modele").Cells(i, 20))
If ComboBox1.ListFillRange <> marange.Address Then ComboBox1.ListFillRange = marange.Address
 
End Sub

mais merci beaucoup de vous etre attelé au pb
rémi

[gruget]

EUh je sais plus trop la je dois mettre resolu ou delestage (sachant que jai pas vraiment répondu a ma question mais que j'ai contourné le pb)
rémi

[thierryyyyyyy]

Tu peux mettre "résolu" parce que moi, ca m'a bien aidé de savoir qu'en mettant ma liste de valeur dans la même page ca marcherait !!!
Trop merci en tout cas !

Surtout pas délestage puisqu'en général on ne lit pas un tel sujet ...

et c'est un vrai problème de 2007, je trouve que c'est honteux qu'après le service pack 2 il reste toujours ce genre de bug dans un tel produit.

Je précise que j'avais fait ma macro sur une version bien plus vieille et que ca marchait parfaitement.

Ah, et moi, j'avais une autre manière de contourner (bien moins satisfaisante)...
au lieu d'utiliser la liste avec la souris, je mettait mon curseur dans la liste (là, pas de message, ou juste 1), et je passais à la valeur suivante ou précédente avec les flèches du clavier...