Valider plusieurs date et montant pour échéancier

[MuscatMimi]

Bonjour a tous
Avec mon Usf 1 je désire pouvoir indiquer le
Montant total du crédit dans une Tbx
La durée du crédit dans une autre Tbx
La Date de la premiére échéance avec un Dtpicker
et que dans une Troisiéme Tbx s'affiche le montant de l'échéance
et que toutes les Echéances ce crées dans ma BDD,
dans le cas ci-dessous échéance du 20/11/2008 au 20/03/2009 pour un montant de 200€
Exemple
si je prends 1000 € de Crédit
que je le rembourse en 5 fois
a compter du 20/11/2008

ce qui ce traduira de créer 5 lignes dans la BDD
20/11/2008 200 €
20/12/2008 200€
20/01/2009 200 €
20/02/2009 200 €
20/03/2009 200 €
Cordialement

 

[ChTi160]

Re : Valider plusieurs date et montant pour échéancier

Salut Christian
Bonjour le fil
Bonjour le forum

Voilà ce que j'ai mis comme procédure du Bouton Valider

Private Sub CommandButton2_Click()

With Worksheets("BDD")
 For nbr = 1 To ComboBox1
   Derligne = .Range("B65536").End(xlUp).Row + 1
      .Cells(Derligne, 2) = ComboBox4
      .Cells(Derligne, 3) = DateAdd("m", nbr, DTPicker1)
      .Cells(Derligne, 4) = ComboBox3
      .Cells(Derligne, 5) = ComboBox5
      .Cells(Derligne, 6) = ComboBox2
      .Cells(Derligne, 7).NumberFormat = "##0.00 €"
      .Cells(Derligne, 7) = TextBox2 * 1
         r = r + TextBox2 * 1
      .Cells(Derligne, 8).NumberFormat = "##0.00 €"
      .Cells(Derligne, 8) = TextBox1 * 1 - r
 Next
 End With
End Sub

je n'ai pas corrigé toutes les erreurs de correspondance de Label avec Les Contrôle TextBox ou Combobox

Bonne Journée

 

[jp14]

Re : Valider plusieurs date et montant pour échéancier

Bonjour
Bonjour ChTi160

Ci joint un fichier avec un usf pour faire les calculs.
Le dernier versement peut avoir une valeur différente.

A tester et à intégrer dans le projet

JP

 

[MuscatMimi]

Re : Valider plusieurs date et montant pour échéancier

Bonsoir chti160,jp14 et le forum

Merci a tout les deux , je vais prendre le code de chti160 et mettre la ListBox de jp14 pour visualiser les mensualités crées

Bonne soirée a vous deux et encore merci
je vais inclure cela dans mon projet

 

[MuscatMimi]

Re : Valider plusieurs date et montant pour échéancier

Bonjour jp14
je reviens vers toi, dans l'exemple que m'a réalisé
J'ai réussi a mettre le symbole euros partout sauf dans le Label10
la je suis coincé
Je te joint le fichier avec ton idée et celle de chtit160

Si ce n'est pas trop abuser de ta bonne volonté, dans ce fichier, j'ai un code (sous le bouton Valider )qui me permet de valider qu'un seul mois dans la feuille ECHEANCE est ce qu'il serait possible de pouvoir valider toutes les échéances notées dans
la listbox dans cette feuille
merci beaucoup et bo week-end
cordialement

 

[jp14]

Re : Valider plusieurs date et montant pour échéancier

Bonsoir

Ci joint le fichier avec la macro modifiée.

Les données sont récupérées dans la listbox, le bouton d'enregistrement n'apparait que si la listbox est remplie.
Si le crédit se trouve sur deux années deux lignes sont crées.

A tester

JP

 

[MuscatMimi]

Re : Valider plusieurs date et montant pour échéancier

Salut jp14 et au forum

merci tout plein d'avoir consacré du temps a mon soucis
super sympa
en ce qui concerne le sigle EURO
c'est dans le label 10 que j'aimerais qu'il soit présent,et aussi dans la ListBox
c'est pas important mais j'aimerais bien savoir la manip dans le code
Bonne soirée

 

[jp14]

Re : Valider plusieurs date et montant pour échéancier

Bonsoir

Code à modifier
Au niveau du label 10 le symbole euro est présent.

    If i = nb Then
    .AddItem DateAdd("M", i - 1, DTPicker5.Value)
    .List(.ListCount - 1, 1) = Format(Label10.Caption, "# ##0.00€")
    Else
    .AddItem DateAdd("M", i - 1, DTPicker5.Value)
    .List(.ListCount - 1, 1) = Format(Label9.Caption, "# ##0.00€") '' = Format(Label9, "#0.00€") '--Label9
    End If

Bon Week end

JP

 

[MuscatMimi]

Re : Valider plusieurs date et montant pour échéancier

re........ bonsoir
merci jp
bonne soirée
,j'espére que tu n'a pas trop de pluie
sur ta région

 

[MuscatMimi]

Re : Valider plusieurs date et montant pour échéancier

salut jp14

hier soir j'ai tout intégré dans mon projet, qui n'est autre que des codes pris sur ce forum, ainsi que l'aide de beacoup d'entre vous

Donc; ce code une fois inclu dans mon projet, ça me valide bien tout comme il faut, sauf, que au lieu de m'incrémenter les mois ça incrémente les jours dans la validation dans feuille ECHEANCE
exemple

au lieu de noter 05/01/2008 ça note 01/05/2008
02/05/2008
dans les colonnes mois de cette feuille ECHEANCE
par contre dans ton classeur ça incrémente bien les dates au bon format
J'ai planché la dessus pas mal de temps j'ai pas réussi a trouver
cordialement

 

[jp14]

Re : Valider plusieurs date et montant pour échéancier

Bonjour

salut jp14

exemple

au lieu de noter 05/01/2008 ça note 01/05/2008
02/05/2008
dans les colonnes mois de cette feuille ECHEANCE
par contre dans ton classeur ça incrémente bien les dates au bon format

Les dates sont au format américain mm/jj/aaaa
A tester

If annee = Year(date1) Then
            .Cells(Derlgn, Col) = Format(date1, "dd/mm/yyyy")
            .Cells(Derlgn, Col) = CDate(.Cells(Derlgn, Col))

JP

 

[MuscatMimi]

Re : Valider plusieurs date et montant pour échéancier

Salut Jp et bonsoir au forum

J'ai essayé mais ça marche pas , je dois être plus nul que
je le pense
Je te joint le fichier en question , et si tu veux rectifie ce qui ne va pas
aprés je vais essayer de comprendre, il est vrai qu'a 56 balai, les neurones
fonctionne plus trés bien, Hi,,Hi
Bonne soirée jp

 

[jp14]

Re : Valider plusieurs date et montant pour échéancier

Bonsoir

Je n'ai pas de problème de dates de ce fait il m'est difficile de trouver une solution.


Il faudrait tester les codes suivants

If annee = Year(date1) Then
            .Cells(Derlgn, Col) = Format(date1, "dd/mm/yyyy")
            'a tester
            '.Cells(Derlgn, Col) = date1' uniquement cette ligne puis les deux
            '.Cells(Derlgn, Col) = Format(.Cells(Derlgn, Col), "dd/mm/yyyy")
            '.Cells(Derlgn, Col) =cdate( date1)

https://www.excel-downloads.com/threads/probleme-avec-format-de-date-et-userform.106536/
https://www.excel-downloads.com/threads/textbox-et-date.106503/


à modifier

    If i = nb Then
    .AddItem DateAdd("M", i - 1, DTPicker5.Value)
    '.List(.ListCount - 1, 1) = Label10.Caption
    .List(.ListCount - 1, 1) = Format(Label10.Caption, "#0.00 €")
    Else
    .AddItem DateAdd("M", i - 1, DTPicker5.Value)
   ' .List(.ListCount - 1, 1) = Label9.Caption '' =  '--Label9
    .List(.ListCount - 1, 1) = Format(Label9.Caption, "#0.00 €")
    End If

JP

 

[MuscatMimi]

Re : Valider plusieurs date et montant pour échéancier

Bonjour jp14

j'ai essayé comme tu a dis, j'y arrive pas
de plus si sur ton pc ça fonctionne bien, que peut-il avoir sur le miens pour que ça fonctionne pas,
Je comprends pas, en plus je viens de tout réinstaller, tout est nickel
Ce petit programme va être mis sur une clé Usb et utilisé sur plusieurs PC alors si ça fonctionne sur un pc et pas sur d'autre ça va me poser des soucis
Je sais plus quoi faire, abandonner peut-être!!!, vu que cela a l'air compliqué a réaliser
Bonne journée Jp

 

[jp14]

Re : Valider plusieurs date et montant pour échéancier

Bonjour

Une question :
Dans la listbox les dates sont-elles correctes ?
Il faut faire des essais avec des dates comprises entre 1 et 12 et des dates supérieures à 12 et voir comment le système considère la valeur en faisant du pas à pas.

JP