' Ajout des lignes de commande dans la listbox
Private Sub btnAjouterNouv_Click()
'Déclaration des variales
Dim nbControles As Integer
Dim nbItem As Integer
'affectation des variables
nbControles = 11
Me.lstItem.AddItem txtNumero
nbItem = Me.lstItem.ListCount - 1 ' on compte le nombre d'item dans la liste box
' on charge les controles dans la listebox
Me.lstItem.List(nbItem, 0) = Me.cboCommercial
Me.lstItem.List(nbItem, 1) = Me.cboVille
Me.lstItem.List(nbItem, 2) = Me.cboRegion
Me.lstItem.List(nbItem, 3) = Me.txtClient
Me.lstItem.List(nbItem, 4) = Me.txtDate
Me.lstItem.List(nbItem, 5) = Me.cboArticle
Me.lstItem.List(nbItem, 6) = Me.txtQuantite
Me.lstItem.List(nbItem, 7) = Me.txtPrix
Me.lstItem.List(nbItem, 8) = Me.txtCa
Me.lstItem.List(nbItem, 9) = Me.txtBenefice
End Sub