Excel VBA formulaire de saisie

Résolu
iskmali Messages postés 99 Date d'inscription   Statut Membre Dernière intervention   -  
iskmali Messages postés 99 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

Réponse 1 / 2
danielc0 Messages postés 1859 Date d'inscription   Statut Membre Dernière intervention   231
 
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 99 Date d'inscription   Statut Membre Dernière intervention   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 1859 Date d'inscription   Statut Membre Dernière intervention   231 > iskmali Messages postés 99 Date d'inscription   Statut Membre Dernière intervention  
 
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 99 Date d'inscription   Statut Membre Dernière intervention   1
 
Merci beaucoup Danielc0, ça fonctionne parfaitement!
0
iskmali Messages postés 99 Date d'inscription   Statut Membre Dernière intervention   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 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
iskmali Messages postés 99 Date d'inscription   Statut Membre Dernière intervention   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 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
iskmali Messages postés 99 Date d'inscription   Statut Membre Dernière intervention   1
 
Merci infiniment.
0