Private Sub enregistrer_Click()
Dim x As Integer
Dim i As Integer
Dim ligne As Integer
If Me.ListBox_liste.ListCount > 0 Then
'demander confirmation d'enregistrement
If MsgBox("Voulez-vous enregistrer les" & vbLf & vbLf & _
" " & Me.ListBox_liste.ListCount & " entrée(s)", _
vbQuestion + vbYesNo) = vbYes Then
For ligne = 0 To Me.ListBox_liste.ListCount - 1
[Tableau_Stock_Congel].ListObject.ListRows.Add
Dim R As Long
R = [Tableau_Stock_Congel].ListObject.ListRows.Count
[Tableau_Stock_Congel[Reference]].Rows(R) = Me.ListBox_liste.List(ligne, 0)
[Tableau_Stock_Congel[Lots]].Rows(R) = Me.ListBox_liste.List(ligne, 1)
[Tableau_Stock_Congel[Date Congel]].Rows(R) = Me.ListBox_liste.List(ligne, 2)
[Tableau_Stock_Congel[DLC]].Rows(R) = Me.ListBox_liste.List(ligne, 3)
[Tableau_Stock_Congel[Quantité]].Rows(R) = Me.ListBox_liste.List(ligne, 4)
[Tableau_Stock_Congel[Numéro Cadre]].Rows(R) = Me.ListBox_liste.List(ligne, 5)
[Tableau_Stock_Congel[Entrée le]].Rows(R) = CDate(Now())
' ?????????????????????????????????????????????????????????????????????????????????????????????????????????
' Si Id doit servir de clé ,
' une valeur chronologique me semble plus appropriée
' ?????????????????????????????????????????????????????????????????????????????????????????????????????????
[Tableau_Stock_Congel[Id]].Rows(R) = CDate(Now()) & Right(Format(Timer, "#0.00"), 2)
' [Tableau_Stock_Congel[ID]].Rows(R) = Sheets("Stock_Congel").Range("q3")
'incrémenter n°ID de 1
Sheets("Stock_Congel").Range("q3") = Sheets("Stock_Congel").Range("q3") + 1
' ?????????????????????????????????????????????????????????????????????????????????????????????????????????
' la partie ci-dessous est nébuleuse :
' elle semble traiter la Désignation ???
' dans la table de stock_congel, la désignation est associée à celle de Config ( voir formule qui par ailleur n'est pas adaptée )
' alors pourquoi vouloir mettre à jour Config à partir de stock_congel,
' la désignation ne concernant pas forcément la bonne référence ?????
' pourquoi utiliser Textbox_reference qui peut être différent de la référence de la ligne de la listbox
' et même ne pas avoir été validé ?
' ?????????????????????????????????????????????????????????????????????????????????????????????????????????
' i = 6
' Do While Sheets("Config").Cells(i, 2) <> ""
' If Sheets("Config").Cells(i, 2) Like TextBox_reference Then
' Sheets("Config").Cells(i, 3).Value = Sheets("Stock_Congel").Cells(i, 4).Value
' End If
' i = i + 1
' Loop
' ?????????????????????????????????????????????????????????????????????????????????????????????????????????
' Je suppose que c'est la "colonne1" en bout du tableau9 de la feuille Config
' pourquoi ne pas l'avoir traitée en même temps que le code au dessus ?
' ?????????????????????????????????????????????????????????????????????????????????????????????????????????
'incrémentation de 1 au numéro du cadre après click enregistrement
' x = 6
' Do While Sheets("Config").Cells(x, 2) <> ""
' If Sheets("Config").Cells(x, 2) Like TextBox_reference Then
' Sheets("Config").Cells(x, 6).Value = Sheets("Config").Cells(x, 6).Value + 1
' End If
' x = x + 1
' Loop
Dim L As Range
Set L = [Tableau9[Reference]].Find([Tableau_Stock_Congel[Reference]].Rows(R))
Set L = [Tableau9[Colonne1]].Rows(L.Row - [Tableau9[#headers]].Row)
L = L + 1
Set L = Nothing
Next
ListBox_liste.Clear
End If
Else
MsgBox "Pas d'entrée disponible"
End If
TextBox_numero_cadre = ""
Unload Stock_Cadre
Stock_Cadre.Show
End Sub