Private Sub CommandButton2_Click()
Dim dte As Date
If Me.ComboBox1 = "" Or Me.TextBox10 = "" Or Me.TextBox5 = "" Then
MsgBox ("Il manque des informations!")
Else
Dim xdte
If ComboBox_Mois.ListIndex > -1 And ComboBox_Mois.ListIndex < 12 Then
xdte = Sheets("PARAM").Range("MOIS").Cells(ComboBox_Mois.ListIndex + 1, 1)
If IsDate(xdte) Then dte = CDate(xdte) Else MsgBox ("date non valide dans la combo"): Exit Sub
' Pour l'item "Encours"
ElseIf ComboBox_Mois.Value = "Encours" Then
' date du mois en cours
dte = DateSerial(Year(Date), Month(Date), 1)
End If
Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 2) = Me.TextBox10
Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 3) = Me.ComboBox1
Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 4) = Me.ComboBox2
Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 5) = Me.TextBox3
Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 6) = Me.ComboBox3.Value
Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 7) = Me.TextBox5.Value
Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 8) = Me.TextBox6.Value
Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 9) = Me.ComboBox_devise
Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 10) = Me.ComboBox_Facture
Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 11) = dte
Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 12) = Me.TextBox7
Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 13) = Me.TextBox8
Sheets("DATA").ListObjects(1).DataBodyRange(Me.Rowid, 14) = Me.TextBox9
Range("tableau1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("DATA").Range("Z2:Z3"), CopyToRange:=Sheets("DATA").Range("AB2:AP2"), Unique:=False
Me.ListBox1.RowSource = "decal"
ThisWorkbook.RefreshAll
ThisWorkbook.Save
End If
End Sub