XL 2016 Gestion compte courant

hutch57

XLDnaute Occasionnel
Bonjour a tous,
Je me suis lançait dans un petit fichier pour gérer mes dépenses en prenant quelque infos a droite et gauche, le fichier est créer avec un userform maintenant je me heurte au code commad texbox combobox pour mettre les infos au bon endroit, je sèche un peu et une aide serai bienvenue.
Par avance merci
Hutch
 

Pièces jointes

  • Mes depenses.xlsm
    47.8 KB · Affichages: 8

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Hutch,
En PJ un début, avec :
VB:
Pour Validation :
Private Sub CommandButton4_Click()
Dim DL%, Montant
    With Sheets("Comptes 2024")
        DL = 1 + .[A1000].End(xlUp).Row
        .Cells(DL, "B") = Year(Now)
        .Cells(DL, "A") = Month(Now)
        .Cells(DL, "C") = Now
        .Cells(DL, "D") = TextBox3
        .Cells(DL, "E") = ComboBox1
        Montant = 1 * TextBox4.Value
        If Montant > 0 Then
            .Cells(DL, "F") = Montant
        Else
            .Cells(DL, "G") = -Montant
        End If
    End With
End Sub
Et les modifs dans l'userform :
Code:
    With Sheets("Parametres")
        DL = .[A1000].End(xlUp).Row
        ModePaiement = .Range(.Cells(3, "A"), .Cells(DL, "A")).Value
    End With
    With Userform1
        .ComboBox1.List = ModePaiement
        .ComboBox1.ListIndex = 1
...
...
Pour le reste je ne sais pas trop quoi faire, donc à vous de finaliser.:)
 

Pièces jointes

  • Mes depenses.xlsm
    52.3 KB · Affichages: 8

hutch57

XLDnaute Occasionnel
Merci Silvanu pour cette première ébauche, je vais voir ce que je peux faire pour la date et le choix de la bank et du debit ou credit car il n'en tiens pas compte.


ScreenShot_20240923144221.jpeg
 

Discussions similaires

Statistiques des forums

Discussions
314 017
Messages
2 104 582
Membres
109 083
dernier inscrit
Stef06