Private Sub Cbn_Valider_Click() 'au clic sur le bouton Valider
Application.ScreenUpdating = False 'désactive le refresh
Application.Calculation = xlCalculationManual 'désactive le calcul auto
For i = 0 To Me.ListBox1.ListCount - 1 'pour chaque élément de la listbox
If Me.ListBox1.Selected(i) Then 'si l'élément est selectionné
ItemsSélectionnés = ItemsSélectionnés & Chr(10) & Me.ListBox1.List(i) 'on ajoute l'élément à la variable "ItemsSélectionnés"
'MsgBox Me.ListBox1.List(i)
With Sheets("Base").ListObjects("t_Base") 'avec la table "t_Base" de la feuille "Base"
.ListRows.Add 'on ajoute une ligne dans la table
derligne = .ListRows.Count 'dernière ligne de la table = celle qu'on vient d'ajouté
.DataBodyRange(derligne, 1).Value = CDbl(Me.TextBox_N°) 'N° dans la colonne 1
.DataBodyRange(derligne, 2).Value = Me.TextBox_DateDuJ 'Date dans la colonne 2
.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 dans la feuille Articles en O2
Sheets("Articles").Range("S2") = ItemsSélectionnés 'on inscrit les ItemsSélectionnés dans la feuille Articles en S2
End If
Next i
'Raz USF ==> on déselectionne les combo et on vide les textbox
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 'on déselectionne tous les éléments de la listbox
Me.ListBox1.Selected(i) = False
Next i
Me.TextBox_N° = Me.TextBox_N° + 1
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub