Dans mon userform, j'alimente ma listview avec les infos provenant de détails facture.
je voudrais que lorsque celle ci est alimenter (listview) pouvoir avec le bouton enregistrer exporter les données contenues dans le listview vers la feuille e calcul (Achat).
j'ai essayer avec ce code mais il passe. aucune info n'est copié.
je sais que ce n'est pas l'objet du topic. mais si tu pouvais y jeter un coup d'œil
merci
je voudrais que lorsque celle ci est alimenter (listview) pouvoir avec le bouton enregistrer exporter les données contenues dans le listview vers la feuille e calcul (Achat).
j'ai essayer avec ce code mais il passe. aucune info n'est copié.
je sais que ce n'est pas l'objet du topic. mais si tu pouvais y jeter un coup d'œil
merci
VB:
Private Sub BtnEnregistrer_Click()
Dim Ws As Worksheet
Dim L As Long, Cl As Long, i As Long, j As Long, Lr As Long
Dim Tbl() As Variant
Set Ws = Worksheets("Achat")
Ws.Select
With Me.ListVAppro
'mise en memoire de la listview
L = .ListItems.Count
Cl = .ColumnHeaders.Count
ReDim Tbl(1 To L + 1, 1 To Cl)
For i = 1 To L
Tbl(i, 1) = .ListItems(i).Text
For j = 1 To Cl - 1
Tbl(i, j + 1) = .ListItems(i).ListSubItems(j).Text
Next j
Next i
If .ListItems.Count < 1 Then
MsgBox " Ajouter des produits a la facture!", vbCritical + vbOKOnly, ""
Exit Sub
Else
If MsgBox("Voulez - vous enregistrer cette facture?", vbYesNo, "Demande de confirmation") = vbYes Then
With Ws
Lr = .Cells(Rows.Count, 1).End(xlUp).Row 'derniere ligne ocuppe sur la ligne A
For i = 1 To L ' boucle sur les lignes du tableau
.Range("c" & Lr + i) = Tbl(i, 1) ' Articles
.Range("D" & Lr + i) = Tbl(i, 2) ' Qte
.Range("e" & Lr + i) = Tbl(i, 3) ' PU
.Range("f" & Lr + i) = Tbl(i, 4) ' Remise
.Range("g" & Lr + i) = Tbl(i, 5) ' Montant
.Range("b" & Lr + i) = CDate(Me.TextDate) ' Date
.Range("h" & Lr + i) = Me.ComboFrs ' fournisseurs
.Range("i" & Lr + i) = Tbl(i, 1) ' code facture
Next i
End With
End If
End If
End With
Unload Me
FrmAppro.show
' reinitialiser listview
'Me.ListVAppro.ListItems.Clear
End Sub
