Formulaire de saisie compte bancaire

Erwan51150

XLDnaute Nouveau
Bonjour,

J'ai un fichier de suivi de mes comptes bancaires.
J'ai créé un formulaire de saisie des opérations, mais je ne connais pas suffisamment le langage vba pour coder le userform.
Aussi, j'en appelle à une ame charitable pour pouvoir m'aider avec mon fichier et éventuellement me faire comprendre les morceaux de codes utilisé (je suis curieux et j'aime comprendre ce que je fais ou ce qu'on fait pour moi)

Dans l'idéal, je me pose aussi la question de savoir si à la place de la date de saisie on peut mettre un genre d'invite avec un petit calendrier.

J'aimerai vraiment comprendre tout ça.

Voici le userform en question :


et le fichier en question :
un lien vers mon fichier

Dans l'attente de vos réponses je vous remercie du temps que vous y consacrerez ou que vous pourrez y consacrer
 

Erwan51150

XLDnaute Nouveau
J'ai réussi à aller jusqu'à un résultat à peu près suffisant mais pas exceptionnel dans le sens où j'ai un problème lors de la saisi.
Il faut que je fasse une saisie "vide" et avoir un message d'erreur pour pouvoir voir ma liste déroulante.

Quelqu'un peut-il m'aider ?

Je pense à un soucis de codage, aussi voici le code que j'ai mis jusqu'ici :

Option Explicit
Dim Ws As Worksheet

Private Sub Label4_Click()

End Sub

Private Sub CommandButton4_Click()

Dim I As Integer
Dim Numlignevide As Integer

ComboBox1.ColumnCount = 2 'Pour la liste déroulante
ComboBox1.List() = Array("", "Virement", "Prélèvement", "CB", "Chèque")
Set Ws = Sheets(1) 'Correspond au nom de votre onglet dans le fichier Excel

If TextBox1.Value = "" Then
MsgBox "Veuillez renseigner une date"
Else
If ComboBox1.Value = "" Then
MsgBox "Selectionner la catégorie"
Else
If TextBox3.Value = "" Then
MsgBox "Indiquez le libellé"
Else
If TextBox4.Value = "" Then
MsgBox "Indiquez le montant"
Else
If OptionButton1 = False And OptionButton2 = False Then
MsgBox "Cocher débit ou crédit"
Else

With Sheets(1)


Numlignevide = .Columns(1).Find("").Row 'on trouve la dernière ligne vide du tableau'

.Cells(Numlignevide, 1) = TextBox1.Value 'Date'
.Cells(Numlignevide, 3) = TextBox3.Value 'Libellé'
.Cells(Numlignevide, 2) = ComboBox1.Value 'Catégorie'

If OptionButton2 = True Then
.Cells(Numlignevide, 4) = TextBox4.Value 'Montant crédit'
Else
If OptionButton1 = True Then
.Cells(Numlignevide, 5) = TextBox4.Value 'Montant débit'
End If
End If
End With

MsgBox "Saisie effectuée, vous pouvez quitter"
Unload Me
UserForm1.Show

End If
End If
End If
End If
End If
End Sub

Private Sub CommandButton1_Click()



ThisWorkbook.Save


End Sub



Private Sub CommandButton3_Click()
UserForm1.Hide

End Sub

Private Sub UserForm_Click()

End Sub
 

Statistiques des forums

Discussions
312 797
Messages
2 092 215
Membres
105 289
dernier inscrit
Mihiare