Excel VBA formulaire de saisie

Résolu/Fermé

iskmali Messages postés 102 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 9 janvier 2023 - 10 janv. 2019 à 11:49
iskmali Messages postés 102 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 9 janvier 2023 - 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

A voir également:

Excel VBA formulaire de saisie
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Mise en forme conditionnelle excel - Guide

2 réponses

Réponse 1 / 2

danielc0 Messages postés 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 74
10 janv. 2019 à 15:15

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 102 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 9 janvier 2023 1
10 janv. 2019 à 15:29

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 838 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 avril 2024 74 > iskmali Messages postés 102 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 9 janvier 2023
10 janv. 2019 à 16:26

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 102 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 9 janvier 2023 1
11 janv. 2019 à 09:47

Merci beaucoup Danielc0, ça fonctionne parfaitement!

iskmali Messages postés 102 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 9 janvier 2023 1
11 janv. 2019 à 10:22

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?

Réponse 2 / 2

franc38 Messages postés 197 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 27 février 2023 38
10 janv. 2019 à 16:40

Bonjour et bonne année...
Ma solution
https://www.cjoint.com/c/IAkpKV3mQgZ
A+ François

iskmali Messages postés 102 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 9 janvier 2023 1
11 janv. 2019 à 09:55

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 197 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 27 février 2023 38
11 janv. 2019 à 10:33

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 102 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 9 janvier 2023 1
Modifié le 11 janv. 2019 à 13:28

Merci infiniment.

Discussions similaires

Je n' arrive pas a activer la saisie vocale

Discussions similaires

Newsletters