Listbox / texbox vers Excel

Version imprimable

19/01/2013, 16h56
Okuden

Listbox / texbox vers Excel

Bonjour,

après plusieurs recherches infructueuses je viens demander votre aide.
Pour simplifier, j'ai une application avec :
- une DateTimePicker
- une Listbox (alimentée par un fichier xml)
- une Textbox (alimentée par un fichier xml)
- un fichier Excel avec 3 colonnes pour récupérer la valeur de chaque élément

Lorsque j'appuie sur un bouton j'aimerais que la valeur de chaque élément soit exporté vers des cellules et sur une seule ligne Excel.
J'arrive à écrire chaque élément dans une cellule spécifique mais ce que je souhaiterais c'est que le programme écrive ces valeurs sur une ligne vide sans écraser la ligne précédente si des valeurs sont inscrites.

Avez-vous une idée à me suggérer ?

Merci d'avance.

Il suffit de trouver la premiere ligne vide et d'ecrire dessus.

Code:

1
2
Dim PremiereLigneVide as string
PremiereLigneVide = Worksheets("Feuil1").Range("A1").End(xlDown).Address

ou petite fonction qui recherche la premiere ligne vide en fonction d'une colonne

Code:

1
2
3
4
5
6
7
8
Public Function PremiereLigneVide(ByVal Colonne As Integer) As Integer
If Not excelapp.ActiveWorkbook.ActiveSheet.cells(1, Colonne).value = "" Then
PremiereLigneVide = excelapp.ActiveWorkbook.Worksheets("Feuil1").Columns(Colonne).Find("").Row 
Return PremiereLigneVide
Else
Return PremiereLigneVide = 1 
End If
End Function

19/01/2013, 20h16
Okuden

Merci hugoclo mais il me semble que c'est du VBA. Auriez-vous la même chose en VB.NET ?

Merci d'avance.
19/01/2013, 21h00
wallace1

Regardes par ici pour implémenter Excel dans VbNet : http://www.developpez.net/forums/d12...s/#post7056762

A+
19/01/2013, 21h42
Okuden

Merci wallace1 pour ton lien. C'est bien ce que j'ai fait dans mon code donc aucun problème de ce côté là tout fonctionne.
Ce que je cherche à faire c'est détecter la première ligne vide de la feuille Excel afin de pouvoir y écrire le contenu de mes listbox, textbox etc... tout ça pour ne pas écraser les valeurs des lignes précédentes.
19/01/2013, 22h35
Okuden

C'est OK le problème est résolu. Merci à vous pour votre aide !
20/06/2016, 14h14
ricardams

resolu comment

bonjour,

j'ai le même problème en vb.net pour écrire sous Excel en denier cellule vide ,
comment as tu fais ?