Formulaire de saisie pour compte bancaire

Bonjour,

Je souhaite réaliser un formulaire de saisie pour la gestion des comptes de la maison.

J'ai réalisé un userform mais après je bloque sur le code à apporter pour que ce userform puisse fonctionner.

Aussi pourriez-vous :

• ou m'écrire le code qui va bien ?
• ou m'expliquer ?
• ou les deux ?

Voici une copie d'écran de mon userform :

A noter que bien sur, si à la place d'une zone de saisie pour la date on pouvez mettre un genre de petite invite qui ouvre un petit calendrier ça serait top.

Tous les userfom que j'ai pu trouver sur le net, ne m'ont pas aidé a faire le mien (surtout pour le code)

Merci d'avance de l'aide que vous pourrez m'apporter

Bonjour akasha, le forum,

Un petit exemple ci-joint:

Cordialement,

Bonjour et merci de ta réponse,

Cependant j'ai un message d'erreur en ouvrant le fichier.

Peux-tu me dire pourquoi ?

Re,

Peut-être un petit souci de compatibilité entre les 2 versions d'excel ?

Place un ' devant Me.DtPiker1= Date pour neutraliser la ligne

Bonjour,

Quand le dtpicker qui n'est pas installé sur son PC, on peut s'en créer un perso comme dans cet exemple de gestion de multi-comptes (chiffres exemples, non réels)

Pierre

Fichier modifié (sans DtPicker),

Pierrep56, j'aime bien ta présentation, dommage que l'accès aux code soit protégé par un mot de passe

Merci pour vos réponses. J'aime beaucoup le fichier de Pierre56 Le jour ou je serais capable de faire ça n'est pas demain

D'ailleurs j'aurais voulu utliser ce fichier à terme, mais effectivement c'est protégé par mot de passe et je suis un peu perdu si je veux y mettre mon compte et supprimer tout ce qui y est déjà renseigné.

Pour xorsankukai, je vais essayer de comprendre ton code, car j'aimerai vraiment comprendre les méandres de tout ce userform

dans l'attente de vos réponses

En fait, je souhaiterais mon fichier avec le code et l'explication.

Quelqu'un peu m'aider la dessus ?

Bonjour

xorsankukai

if faut mettre des OptionButton a la place CheckBox

A+

Maurice

Bon, je dois être plus bête que la moyenne

j'arrive pas à coder le mien

Plus personne pour m'aider ?

Désolé du up

Pour le moment j'ai fait ça :

Private Sub UserForm_Initialize()
    Dim I As Integer
    Dim Numlignevide As Integer

    ComboBox1.ColumnCount = 1 '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("Mai2017")

          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, 5) = TextBox3.Value   'Montant crédit'
          Else
            If OptionButton1 = True Then
              .Cells(Numlignevide, 6) = TextBox3.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

Sur le modèle du fichier de sankukai

Maintenant je dois trouver comment valider une nouvelle entrée

Désolé mais c'est encore moi.

A force de persévérance j'ai réussi à avoir un résultat à peu près acceptable.

Il ne me reste qu'un seul petit problème :

Lorsque je lance mon userform, ma liste déroulante ne s'affiche pas correctement, elle est d'abord vide.

Il faut que je fasse une validation vide (et donc avoir une erreur), pour qu'enfin ma liste déroulante s'affiche.

Une idée ?

Voici mon code

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

Tu as bien avancé,

Merci

J'ai essayé de m'inspirer de ce que tu avais fait.

En ouvrant le fichier que tu as mis en PJ, j'ai toujours ce problème de DTpicker.

Là j'essaye maintenant que la date que je saisie soit bien saisie dans mon fichier au format date dans le format "02-mai".

Actuellement elle est inscrite dans un format personnalisé (je ne sais pas pourquoi).

Enfin pour répondre à ta question : La colonne A ne sert à rien. Je l'ai supprimée depuis.

Aurais-tu une idée sur la date, son format et éventuellement la façon d'y intégrer un calendrier.

Ma dernière contribution vu que tu es sous excel 2016, je ne te serai pas d'une grande aide,

Fichier modifié sans Dtpicker,

Cordialement,

Merci de ton aide tout de même, mais je reste bloqué sur cette histoire de date.

Si une ame charitable a une idée, je suis preneur.

J'ai téléchargé et installé la macro complémentaire WindatePicker si ça peut aider....

Ce que je souhaite désormais c'est :

- que lorsque je suis sur la case "date", qu'un petit calendrier de sélection de date s'affiche ou que la date que j'y renseigne soit mise au format 21-mai et non pas 21/05/17 ou 21/05 ou 21/05/2017.

Merci d'avance à ceux qui pourront m'aider.

Un début de piste....

https://forum.excel-pratique.com/excel/dtpicker-et-date-and-time-picker-disparuent-sur-xls-2016-t72620.html

Bonne soirée,

Bonsoir les gars,

Tiens c'est cado, extrait d'une de mes appli, un p'tit calendrier qui s'ouvre quand on clique dans le textbox

(code ouvert pour xorsankukai : celui-là je peux le partager, mais citez la source si vous l'utilisez!)

Pierre

Bonsoir Pierre,

Comment intégrerais-tu ton usf dans le mien ?

Je vois que dans celui que tu as mis en PJ, il y a un genre de superposition de forme.

Dois-je faire de même dans le mien ?

A quel endroit dois-je insérer ton code ?

Je ne bloque plus que sur ces questions grace à vos différentes interventions.

Mets ton fichier, je te ferai les copier/coller qui vont bien

Pierre

Re, et merci pour ton aide et ta patience.

Votre aide m'est précieuse pour comprendre tout ça