renvoie d'une plage de cellule dans une listboxRésolu

Question

Bonjour,ce soir mon prob est que je n'arrive pas &#224; renvoyer dans ma Listbox2
la plage de cellule (Cellule &#224; droite et celle du dessous:EXEMPLE: B10et B11)
situ&#233; dans une colonne &#224; droite ayant le meme index (Index de la listbox1 (A11))

Ligne=LisBox1.ListIndex
Ligne2=Ligne +1
Colone=1
ListBox2.RowSource=Range(Cells(Ligne,Colone),Cells(Ligne2,Colone))

Ca bug toujours &#224; la derniere ligne et je ne trouve pas d'exemple dans les 
codes source.
Merci de m'aider pour la syntaxe ou autre

cs_PROGRAMMIX · Answer

JE crois que Range attends par exemple "A2:B5" comme valeur.
Il faudrait donc revoir ta formulation.
Essaie Range(Cells(Ligne,Colone).Adress &":" &Cells(Ligne2,Colone).Adress)
PS: je sais plus si c'est adress ou address

Programmix

ecthug · Answer

Salut Programmix
Range(Cells(Ligne,Colone).Adress &":" &Cells(Ligne2,Colone).Adress)

Ne fonctionne pas pour envoyer dans ma listbox
je ne comprend plus rien
manu

cs_PROGRAMMIX · Answer

Dis-moi, ton code, tu veux le faire tourner dans VBA d'Excel ou VB6 ?

Programmix

ecthug · Answer

C'est du VBA avec excel 2000
Manu

ecthug · Answer

en fait si dans ma listbox1  je choisi  l'item correspondant &#224; la case A10
Je veux que dans ma listbox2  il m'affiche les valeur dans les cases
B10 et B11
je ne trouve pas la syntaxe
merci de m'aider (tout cela en VBA)
merci 
Manu

cs_PROGRAMMIX · Answer

Voici la m&#233;thode que j'utilise g&#233;n&#233;ralement pour me d&#233;panner en VBA : je cr&#233;e un nouveau dossier, j'enclenche l'enregistreur de macro et je r&#233;alise ce qui me pose probl&#232;me.

Ensuite, il ne me reste plus qu'&#224; lire le code (attention de ne pas oublier d'&#233;teindre l'enregistreur &#224; ce moment-l&#224;... &#231;a m'arrive parfois).

Ainsi, dans 90% des cas, la solution appara&#238;t.

J'ai donc appliqu&#233; la m&#234;me m&#233;thode pour ton probl&#232;me, ce qui donne les 2 macros suivantes :

'Pour cr&#233;er Macro1, j'avais pr&#233;par&#233; une liste d'item dans une colonne.
'J'ai ensuite proc&#233;d&#233; &#224; l'enregistrement de la mise en place d'une listbox avec d&#233;finition de la plage des donn&#233;es et la plage r&#233;sultat.

Sub Macro1()
    'Insertion d'une listboxe
    ActiveSheet.ListBoxes.Add(60, 52.5, 178.5, 81).Select
    With Selection
        .ListFillRange = "$A$5:$A$8"
        .LinkedCell = "$A$1"
        .MultiSelect = xlNone
        .Display3DShading = False
    End With
    Range("D4").Select
End Sub
'Comme tu peux le constater la plage est d&#233;finie par .ListFillRange et non par .RowSource.

'Avec la Macro2, j'ai tester le changement d'attribution de la plage des donn&#233;es

Sub Macro2()
    ActiveSheet.Shapes("List Box 2").Select
    Selection.ListFillRange = "A6:A7"
    Range("A1").Select
End Sub

Je te laisse &#233;plucher ce plus en d&#233;tail...et 'adapter &#224; tes besoins.

Programmix

ecthug · Answer

ok merci pour le tuyau,je vais d&#233;cortiquer 
je te tiens au courant
manu

ecthug · Answer

J'ai r&#233;ussi


en selectionnant par exemple A12 dans ma listbox1

Ligne=LisBox1.ListIndex
Ligne2=Ligne +2
Ligne3=Ligne+3
Colone=1
Un=Cells(Ligne2,Colone)
Deux=Cells(Ligne3,Colone)

'ici je renvoie les valeurs dans la listbox2
ListBox2.AddItem Un
ListBox2.AddItem Deux

Ca marche Merci beaucoup 

Manu

Renvoie d'une plage de cellule dans une listbox

8 réponses

Discussions similaires