Menu

Excel VBA formulaire de saisie [Résolu]

Messages postés
86
Date d'inscription
lundi 6 mai 2013
Dernière intervention
11 janvier 2019
- - Dernière réponse : iskmali
Messages postés
86
Date d'inscription
lundi 6 mai 2013
Dernière intervention
11 janvier 2019
- 11 janv. 2019 à 11:06
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
Afficher la suite 

Votre réponse

2 réponses

Messages postés
369
Date d'inscription
mardi 5 juin 2018
Dernière intervention
22 janvier 2019
28
0
Merci
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
iskmali
Messages postés
86
Date d'inscription
lundi 6 mai 2013
Dernière intervention
11 janvier 2019
-
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.
danielc0
Messages postés
369
Date d'inscription
mardi 5 juin 2018
Dernière intervention
22 janvier 2019
28 > iskmali
Messages postés
86
Date d'inscription
lundi 6 mai 2013
Dernière intervention
11 janvier 2019
-
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
iskmali
Messages postés
86
Date d'inscription
lundi 6 mai 2013
Dernière intervention
11 janvier 2019
-
Merci beaucoup Danielc0, ça fonctionne parfaitement!
iskmali
Messages postés
86
Date d'inscription
lundi 6 mai 2013
Dernière intervention
11 janvier 2019
-
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?
Commenter la réponse de danielc0
Messages postés
2
Date d'inscription
mercredi 23 avril 2008
Dernière intervention
11 janvier 2019
0
Merci
Bonjour et bonne année...
Ma solution
https://www.cjoint.com/c/IAkpKV3mQgZ
A+ François
iskmali
Messages postés
86
Date d'inscription
lundi 6 mai 2013
Dernière intervention
11 janvier 2019
-
Merci franc38 pour votre aide, cependant j'ai pas pu télécharger le fichier.
Au retour bonne année 2019!
franc38
Messages postés
2
Date d'inscription
mercredi 23 avril 2008
Dernière intervention
11 janvier 2019
-
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
iskmali
Messages postés
86
Date d'inscription
lundi 6 mai 2013
Dernière intervention
11 janvier 2019
-
Merci infiniment.
Commenter la réponse de franc38