probleme avec ListFillRange

Question

bonjour
 
je cherche a creer une liste box dynamique selon la selection faite dans une autre listbox

je m explique : 
si tel element est selectionn&#233; dans la premiere listbox , la macro va selectionner dans une feuille un range correspondant qui sera : range(cells( abscissedebut, ordonnee),cells(abscissefin,ordonnee) ) afin d afficher les donn&#233;es du range dans la 2e listbox
tous les parametres du range sont donc des variables et lorsque j essaye de recuperer ce range dans le ListFillRange , j ai une erreur et ca ne fonctionne pas !!

voila l exemple :
.ListFillRange = "menudata!" & Range(Cells(depart, colonne), Cells(der, colonne))

( avec menudata le nom de la feuille ou je vais chercher mes infos )

Quelqu un peut il m aider ?

merci d avance

mrdep1978 · Answer

Range(Cells(depart, colonne), Cells(der, colonne))
renvoie une plage de cellules = renvoie un objet de type Range, et pas une chaine de caract&#232;res (m&#234;me si en debug il te donne la plage de cellules concern&#233;es).

Il faut utiliser la propri&#233;t&#233; Address pour avoir la plage sous forme de String

.ListFillRange = "Feuil1!" & Range(Cells(depart, colonne), Cells(der, colonne)).Address

cs_beub · Answer

salut !
helas j ai toujours un pb d incompatibilit&#233; de type ! :(

mrdep1978 · Answer

Pourtant, j'ai fait &#231;a et &#231;a marche nickel 

Dim depart As Integer
Dim colonne As Integer
Dim der As Integer
depart = 1
colonne = 1
der = 10
With ListBox1
    .ListFillRange = "menudata!" & Range(Cells(depart, colonne), Cells(der, colonne)).Address
End With

Peux-tu afficher un morceau de ton code ?

cs_beub · Answer

ok :

Sheets("Dialogue1").Shapes("Drop Down 8").Select
    With Selection
.ListFillRange = "menudata!" & Range(Cells(depart, colonne), Cells(der, colonne)).Address
end with

voila et snif ca marche pas , il me met propri&#233;t&#233; ou methode non ger&#233;e par cet objet

mrdep1978 · Answer

Tu es s&#251;r du nom de ta liste (Drop Down 8) ?
Normalement VB (ou VBA) ne te laisse pas donner de nom avec des espaces.
Ce ne serait pas pl&#251;to Drop_Down_8 ?

cs_beub · Answer

non a priori je viens de verifier et c est le bon nom !!
je comprends pas ! :(

Probleme avec ListFillRange

6 réponses

Discussions similaires