1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69
|
'Bouton budgéter
Private Sub budgéter_Click()
Dim x As Integer
Dim MaDate As Date
Dim MaLigne As ListRow
If Me.txttype < 0 Or Me.montant = "" Or Me.période < 0 Or Me.catégorie < 0 Or Me.souscat < 0 Then
MsgBox ("Il manque des informations !")
Else
'Vérifier si la date de paiement est inscrite
If txtdatefin <> "" Then
MaDate = CDate(txtdate)
x = DateDiff("m", CDate(txtdate), CDate(txtdatefin))
Do Until x = 0
With Sheets("prévisions").ListObjects(1)
Set MaLigne = .ListRows.Add
With MaLigne
.Range(1, 1) = Sheets("prévisions").ListObjects(1).ListRows.Count ' Colonne AR
.Range(1, 2) = MaDate ' Colonne AR
.Range(1, 3) = Me.txttype ' Colonne AS
.Range(1, 4) = paiementmens ' Colonne AT
.Range(1, 5) = Me.catégorie ' Colonne AU
.Range(1, 5) = Me.catégorie ' Colonne AU
.Range(1, 7) = Me.catégorie ' Colonne AW
.Range(1, 9) = Me.txtdescription ' Colonne AY
End With
'Trouver la dernière ligne
' dlt = Sheets("prévisions").Range("ar10000").End(xlUp).Row
' Sheets("prévisions").Range("ar" & dlt).ListColumns("Date").DataBodyRange.NumberFormat = "yyyy-mm-dd"
' Sheets("prévisions").Range("as" & dlt) = Me.txttype
' Sheets("prévisions").Range("at" & dlt) = paiementmens
' Sheets("prévisions").Range("au" & dlt) = Me.catégorie
' Sheets("prévisions").Range("aw" & dlt) = Me.souscat
' Sheets("prévisions").Range("ay" & dlt) = Me.txtdescription
MaDate = DateAdd("m", 1, MaDate) '<-- Ajout d'un mois en plus à la date de départ
'Debug.Print x & ", " & MaDate
x = x - 1 '<-- Décompte du nombre de fois qu'il faut faire la boucle
Set MaLigne = Nothing
End With
Loop
End If
Me.txtdate = ""
Me.txttype = ""
Me.montant = ""
Me.période = ""
Me.txtdatefin = ""
Me.catégorie = ""
Me.souscat = ""
Me.txtdescription = ""
ThisWorkbook.RefreshAll
ThisWorkbook.Save
End If
End Sub |
Partager