Excel VBA formulaire de saisie

Résolu
iskmali Messages postés 108 Statut Membre -  
iskmali Messages postés 108 Statut Membre -
Bonjour,
Je cherche de l’aide pour raffiner un peu ce formulaire de saisie VBA.
Tout d’abord mes montants débits ne se copient pas sur la feuille.
Aussi, je voudrais que si des lignes de saisies sont vides qu’elles ne s’ajoutent pas au tableau.
Qu’un calendrier soit dans la cellule date pour pouvoir uniformiser le format.
Merci d’avance pour votre temps et votre aide dont je suis profondément reconnaissant.

https://www.cjoint.com/c/IAkkP0vT4J6

2 réponses

  1.
    danielc0 Messages postés 2182 Date d'inscription   Statut Membre Dernière intervention   287
     
    Bonjour,

    Je n'ai pas vérifié le reste. Précise me.txtdebit.value. De même pour tous les autres contrôles.

    Cordialement.

    Daniel
    0
    1. iskmali Messages postés 108 Statut Membre 1
       
      Merci Danielco, désolé j'ai pas bien compris la question.
      Cependant, j'ai trouvé la solution pour la copie des débits. Il reste comment faire pour que les lignes vides ne soient pas copier.
      0
      1. danielc0 Messages postés 2182 Date d'inscription   Statut Membre Dernière intervention   287 > iskmali Messages postés 108 Statut Membre
         
        Pour chaque ligne, modifie ta macro : 

            If LCompte <> "" Then
      Ligne = Cells(Rows.Count, 1).End(xlUp).Row + 1
      With Cells(Ligne, 1)
        .Value = Me.TxtDate
        .Offset(0, 1).Value = LCompte
        .Offset(0, 2).Value = TxtLibelle
        .Offset(0, 3).Value = Me.Txtdebit
        .Offset(0, 4).Value = Txtcredit
      End With
    End If
        0
    2. iskmali Messages postés 108 Statut Membre 1
       
      Merci beaucoup Danielc0, ça fonctionne parfaitement!
      0
    3. iskmali Messages postés 108 Statut Membre 1
       
      Encore une demande.

      Je voudrais afficher un calendrier dans la partie date pour pouvoir choisir la date.

      Et mes montant sortent format texte et impossible de changer sur la feuille, une solution?
      0
  2. franc38 Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   38
     
    Bonjour et bonne année...
    Ma solution
    https://www.cjoint.com/c/IAkpKV3mQgZ
    A+ François
    0
    1. iskmali Messages postés 108 Statut Membre 1
       
      Merci franc38 pour votre aide, cependant j'ai pas pu télécharger le fichier.
      Au retour bonne année 2019!
      0
    2. franc38 Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   38
       
      Je ne comprends pas que tu ne puisse télécharger le fichier
      Pour les montants=CDbl(Me.Controls("Txtdebit" & i).Value)
      sachant que j'avais fait:
      Private Sub CmAjouter_Click()
      Dim i As Integer, derlig As Long
      Sheets("GrandLivre").Activate
      derlig = 2
      If Len(Range("A2").Value) > 0 Then derlig = Range("A" & Rows.Count).End(xlUp).Row + 1
      For i = 0 To 6
      If Len(Me.Controls("LCompte" & i).Value) = 0 Then Exit Sub
      Cells(derlig + i, 1).Value = CDate(Me.TxtDate.Value)
      Cells(derlig + i, 2).Value = Me.Controls("LCompte" & i).Value
      Cells(derlig + i, 3).Value = Me.Controls("TxtLibelle" & i).Value
      If Len(Me.Controls("Txtdebit" & i).Value) > 0 Then Cells(derlig + i, 4).Value = CDbl(Me.Controls("Txtdebit" & i).Value)
      If Len(Me.Controls("Txtcredit" & i).Value) > 0 Then Cells(derlig + i, 5).Value = CDbl(Me.Controls("Txtcredit" & i).Value)
      Next
      End Sub

      Après avoir renommer les contrôles Lcompte en Lcompte0 et suivant...
      Pour la date il existe des controles monthview ou dtpicker...
      Clic droit sur la boite à outils: contrôles supplémentaires...
      A+ François
      0
    3. iskmali Messages postés 108 Statut Membre 1
       
      Merci infiniment.
      0