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

Réponse 1 / 2
danielc0 Messages postés 1946 Statut Membre 238
 
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
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
danielc0 Messages postés 1946 Statut Membre 238 > 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
iskmali Messages postés 108 Statut Membre 1
 
Merci beaucoup Danielc0, ça fonctionne parfaitement!
0
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
Réponse 2 / 2
franc38 Messages postés 198 Statut Membre 38
 
Bonjour et bonne année...
Ma solution
https://www.cjoint.com/c/IAkpKV3mQgZ
A+ François
0
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
franc38 Messages postés 198 Statut Membre 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
iskmali Messages postés 108 Statut Membre 1
 
Merci infiniment.
0