Private Sub Cbn_Valider_Click()
Application.ScreenUpdating = False
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) Then
'MsgBox Me.ListBox1.List(i)
With Sheets("Base").ListObjects("t_Base")
.ListRows.Add 'on ajoute une ligne dans la table
derligne = .ListRows.Count
.DataBodyRange(derligne, 1).Value = CDbl(Me.TextBox_N°) 'N°
.DataBodyRange(derligne, 2).Value = Me.TextBox_DateDuJ 'Date'
.DataBodyRange(derligne, 3).Value = Me.ComboBox_Carte.Value 'N° de carte
.DataBodyRange(derligne, 4).Value = Me.TextBox11.Value 'Nb de points
.DataBodyRange(derligne, 5).Value = Me.TextBox10.Value 'Nom
.DataBodyRange(derligne, 6).Value = Me.TextBox4.Value 'prénom
.DataBodyRange(derligne, 7).Value = Me.ComboBox_Semaine 'N° Semaine
.DataBodyRange(derligne, 8).Value = Me.ListBox1.List(i) 'Désignation
.DataBodyRange(derligne, 9).Value = Me.TextBox7.Value 'Quantité prise
.DataBodyRange(derligne, 10).Value = Me.TextBox8.Value 'Commentaires
End With
Sheets("Articles").Range("O2") = Me.ComboBox_Carte 'on inscrit le numéro de carte en O2
End If
Next i
'Raz USF
Me.ComboBox_Carte.ListIndex = -1
Me.TextBox11.Value = ""
Me.ComboBox_Semaine.ListIndex = -1
Me.TextBox7.Value = ""
Me.TextBox10.Value = ""
Me.TextBox4.Value = ""
Me.TextBox12.Value = ""
Me.TextBox13.Value = ""
For i = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.Selected(i) = False
Next i
Me.TextBox_N° = Me.TextBox_N° + 1
Application.ScreenUpdating = True
End Sub