Private Sub UserForm_Initialize()
Tiers.RowSource = "Tables!C26:C" & Sheets("Tables").[C100].End(xlUp).Row
Categ.RowSource = "Tables!A2:C" & Sheets("Tables").[A24].End(xlUp).Row
'SousCateg.RowSource = "Tables!A2:C" & Sheets("Tables").[A24].End(xlUp).Row
End Sub
Private Sub CommandButton2_Click()
Dim En_cours As String
En_cours = ActiveSheet.Name
Select Case True
Case Controls("Carte")
Sheets("" & En_cours).Range("D87").End(xlUp).Offset(1, 1) = Controls("Carte").Caption
Case Controls("Prelevement")
Sheets("" & En_cours).Range("D87").End(xlUp).Offset(1, 1) = Controls("Prelevement").Caption
Case Controls("TIP")
Sheets("" & En_cours).Range("D87").End(xlUp).Offset(1, 1) = Controls("TIP").Caption
Case Controls("Retrait")
Sheets("" & En_cours).Range("D87").End(xlUp).Offset(1, 1) = Controls("Retrait").Caption
Case Controls("VirementEmis")
Sheets("" & En_cours).Range("D87").End(xlUp).Offset(1, 1) = Controls("VirementEmis").Caption
Case Controls("Cheque")
Sheets("" & En_cours).Range("D87").End(xlUp).Offset(1, 1) = Controls("Cheque").Caption
Case Controls("Virement")
Sheets("" & En_cours).Range("D87").End(xlUp).Offset(1, 1) = Controls("Virement").Caption
Case Controls("RemCheque")
Sheets("" & En_cours).Range("D87").End(xlUp).Offset(1, 1) = Controls("RemCheque").Caption
Case Controls("DepotEspeces")
Sheets("" & En_cours).Range("D87").End(xlUp).Offset(1, 1) = Controls("DepotEspeces").Caption
End Select
Me.Dat = Format(Me.Dat, "mm/dd/yyyy")
Sheets("" & En_cours).Range("D87").End(xlUp).Offset(1, 0) = Me.Dat.Value
Sheets("" & En_cours).Range("G87").End(xlUp).Offset(1, 0) = Me.Tiers.Value
Sheets("" & En_cours).Range("H87").End(xlUp).Offset(1, 0) = Me.Categ.Value
End Sub
Private Sub Dat_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.Dat = Format(Me.Dat, "dd/mm/yyyy")
End Sub
Private Sub Categ_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("Tables").Range("H26").Value = Categ.Value
End Sub
Private Sub CommandButton1_Click()
Unload UserForm3
End Sub