Sub Affich_LvVtes()
'Affichage de ListeView du Ventes*****************************************************************
With frm_QuinqVBA.lstv_Vtes
.ListItems.Clear
.Top = 94
.Left = 250
.Height = 500
.Width = 865
'.CheckBoxes = True
With .ColumnHeaders
.Clear
.Add Text:="Référence Article", Width:=120, Alignment:=fmAlignmentLeft
.Add Text:="Désignation", Width:=300, Alignment:=fmAlignmentLeft
.Add Text:="Quantité", Width:=75, Alignment:=lvwColumnCenter
.Add Text:="P.U Achat", Width:=75, Alignment:=lvwColumnCenter
.Add Text:="P.U Vente", Width:=75, Alignment:=lvwColumnCenter
.Add Text:="Montant Ventes", Width:=100, Alignment:=lvwColumnCenter
.Add Text:="Marges Bénéficieres", Width:=115, Alignment:=lvwColumnCenter
End With
.Gridlines = True
.BorderStyle = ccFixedSingle
.FullRowSelect = True
.View = lvwReport
End With
End Sub