ecrire dans excel

Question

Bonjour,
Voilà mon problème:
je veux ouvrir excel et remplir les cases avec les éléments selectionnés dans un listbox.
Pour l'instant tout ce que j'arrive à faire c'est l'ouverture d'excel.Mais j'ai des problème pour ecrire dans les cases.
voici mon code:

Private Sub Command1_Click()
Dim xlapp As Excel.Application
Set xlapp = New Excel.Application
With xlapp
          .Visible = True
          .Workbooks.Add
          .Range("a1").Value = list1.text 
End With
End Sub

Le problème c'est que je mets qu'une valeur de ma liste dans la cellule A1.comment faire pour ranger les autres valeurs dans A2;A3 etc.Et m'arreter quand il n'y a plus d'entrées selectionnés.De même lits1.text ne convient pas mais je ne sais pas quoi mettre.
Si vous avez des idées merci d'avance.
zx10

BasicInstinct · Answer

' a mettre a la place de ton .range

for I=1 to list1.listcount
.cells(I,1)=list1.list(i-1)  'ou contraire je sais pas cells(1,I)
next

@++

 :clown)  BasicInstinct  :clown)

zx10 · Answer

Un grand MERCI à toi, çà ma évite de me prendre la tête pendant des heures pour un resultat desesperant.
MERCI
zx10

Ecrire dans excel

2 réponses

Discussions similaires