Remplir une feuille Excel avec des éléments d'une zone de liste?

Question

essayé d'utiliser ce codage, mais pas de chance:

MsExcel.Range("B2").Value = List5.List(0) 

MsExcel.Range("c2").Value = List5.List(1) 

ma liste nom de la boîte est listbox5. Merci pour toute aide que vous pouvez fournir

Modifier par Bélisaire

Tout en ajoutant du texte de commentaire

est le code ici de l'auteur que je suis en train de l'utiliser avec:

 
Private Sub mdofficecommandbutton_Click() 
    Workbooks.Open FileName:="C:\Documents and Settings\o075535\Desktop\Workstation- printer setup\Workstation blank template.xls" 
    Sheets("LWS NEW BUILD").Cells(3, 6) = txtdepartment.Text 
    Sheets("LWS NEW BUILD").Cells(3, 7) = 17012 
    Sheets("LWS NEW BUILD").Cells(3, 8) = txtprinter.Text 
    Sheets("LWS NEW BUILD").Cells(3, 7) = 17004 
    Sheets("LWS NEW BUILD").Cells(3, 8) = txtprinter.Text 
    MsExcel.Range("B2").Value = List5.List(0) 
    MsExcel.Range("c2").Value = List5.List(1) 
End Sub 

Answer 1

Voici un exemple

Sheet3.Range("E4").Value = Sheet3.ListObjects(1).ListRows(3).Range(1, 2).Value 

Il prend la 1ère liste, 3ème rangée, 2ème valeur de colonne et le place dans "E4". Vous référencez la liste avec le membre ListObjects.

Voici comment copier plusieurs valeurs dans une liste dans la feuille de calcul

Dim n As Integer 
n = Sheet3.ListObjects(1).ListRows.Count 

Sheet3.Range("E5").Resize(n, 1).Value = _ 
    Sheet3.ListObjects(1).ListRows(1).Range(1, 2).Resize(n, 1).Value 

la n variable contient le nombre de copier (ici n = # lignes), puis utiliser la 2ème colonne (avec Range (1 , 2)) avec des n-ième rangées.