[VBA-E] plage de reference dans une autre feuille

Version imprimable

22/02/2007, 14h37
gruget

[VBA-E] plage de reference dans une autre feuille

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
22/02/2007, 15h41
SfJ5Rpw8

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

Code:

Feuil1!$C$6:$C$24
22/02/2007, 15h49
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
23/02/2007, 12h34
yogyx

Bonjour,

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

Code:

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
23/02/2007, 16h08
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

Citation:

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
26/02/2007, 09h54
yogyx

Désolé, je sèche :?

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:

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

Code:

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

26/02/2007, 17h44
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
02/09/2009, 13h28
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...