Comment faire le plus simple pour importer le contenu d'une ListBox dans Un tabl

Résolu
Signaler
Messages postés
51
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
17 novembre 2008
-
Messages postés
39
Date d'inscription
mardi 13 avril 2004
Statut
Membre
Dernière intervention
14 novembre 2006
-
Voilà, comme le dit le sujet, je connais pas si il y a moyen assez simple pour importer ces données dans la feuille 2 d'excel par exemple...

donc si qqun à une idée, merci d'avance :o)

4 réponses

Messages postés
182
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
14 mars 2011

eN SUPOSANT QUE TU SOIT EN VB6
Public Sub EXPORT())
Dim i,LIG As Integer
Static Xl As Excel.Application
Set Xl = New Excel.Application
With Xl
.Workbooks.Add
.Range("A:J").HorizontalAlignment = xlRight
.Range("A:B").HorizontalAlignment = xlLeft
.Range("A:k").Font.Name = "Tahoma"
.Range("A:k").Font.Size = 7
.Range("A:k").ColumnWidth = 18
.Range("A1").Font.Color = vbBlue
.Range("A3").Borders.LineStyle = 7
.Range("A1").Value = "MON TITRE BIDON"
.ActiveCell(1, 8) = "Relévé du " & DATE
.Range("D3").Font.Bold = True
.Range("E5").Font.Bold = True
.Range("A6").Font.Bold = True
.Range("B6").Font.Bold = True
.Range("C6").Font.Bold = True
.Range("D6").Font.Bold = True
.Range("E6").Font.Bold = True
.Range("F6").Font.Bold = True
.Range("G6").Font.Bold = True
.Range("H6").Font.Bold = True
.Range("i6").Font.Bold = True
.Range("j6").Font.Bold = True
.Range("k6").Font.Bold = True
.Range("a6:k6").Font.Color = vbBlue
.ActiveCell(6, 1) = "REFERENCE DE LA DEPENSE"
LIG = 6
For i = 0 To TON_COMBO.LISTCOUNT-1

.ActiveCell(LIG + i, 1) = TON_COMBO.LIST(i)

Next i
.Visible = True
End With
End Sub
Messages postés
39
Date d'inscription
mardi 13 avril 2004
Statut
Membre
Dernière intervention
14 novembre 2006

hello ,
inspire toi de ca

Dim Exc As Excel.Application
Set Exc = New Excel.Application
Exc.Visible = True
Exc.Workbooks.Add
  Exc.Sheets("Feuil2").Select
  Exc.Sheets("Feuil2").Name = "MonDoc"


Exc.Range("A1:B1").Select
Exc.ActiveCell.FormulaR1C1 = "test"
Exc.Cells(13, 1) = "Réference"


L = 14
For i = 0 To List1.ListCount - 1


Exc.ActiveCell(L + i, 1) = List1.List(i)


Next i

Bon code
Messages postés
182
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
14 mars 2011

quel langage?
Messages postés
182
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
14 mars 2011

en supossant que tes sur vb.net

Public Sub export()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)
' Tu peux toujours decider de remplire un fichier excell existant tu utilise la ligne qui suis en precisant le chemein de ce fichier
'xlBook = CType(xlApp.Workbooks.Open(MON_CHEMIN_FICHIER_XLS), Excel.Workbook)
xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)

dim y as integer
'tu range dans NB_LIGNE le nombre d'element que ta dans ton combobox
'j'ai pas le code en tete
For y = 0 To NB_LIGNE
xlSheet.Cells(y + 2, 1) = TON_COMBO.Items(y).ToString
xlSheet.Application.Visible = True

xlApp.Quit()
xlSheet = Nothing
xlBook = Nothing
xlApp = Nothing
End Sub