cathodique
XLDnaute Barbatruc
Bonsoir,
J’ai un problème de transfert de données d’une Listbox vers une feuille excel (comptes).
La listbox contient 10 colonnes et la feuille 11 colonnes.
La colonne 6 de la listbox qui est un montant de recettes ou de dépenses.
Le problème réside à ce niveau, ce montant doit être mis sur la feuille en colonne 6 si c’est une dépense
et en colonne 7 si c’est une recette. Avec le bout de code ci-dessous, je transfère mais toujours dans la même colonne
Un coup de main est le bienvenu, je suis saturé.
Merci beaucoup.
J’ai un problème de transfert de données d’une Listbox vers une feuille excel (comptes).
La listbox contient 10 colonnes et la feuille 11 colonnes.
La colonne 6 de la listbox qui est un montant de recettes ou de dépenses.
Le problème réside à ce niveau, ce montant doit être mis sur la feuille en colonne 6 si c’est une dépense
et en colonne 7 si c’est une recette. Avec le bout de code ci-dessous, je transfère mais toujours dans la même colonne
VB:
Private Sub Cb_transfert_Click()
Dim ligne As Integer, n As Byte, Tbl, i As Byte
ligne = ShBd.[A65000].End(xlUp).Row + 1
n = Me.ListBox1.ListCount
If n > 0 Then
Tbl = Me.ListBox1.List
For i = 0 To n - 1
Tbl(i, 0) = CDate(Tbl(i, 0))
Next i
ShBd.Cells(ligne, "a").Resize(n, 10) = Tbl
Me.ListBox1.Clear
End If
End Sub
Merci beaucoup.