Gérer la répétition mensuelle de tâches simples

Fermé
Krystkpi Messages postés 5 Date d'inscription jeudi 23 août 2018 Statut Membre Dernière intervention 24 août 2018 - 23 août 2018 à 19:49
yg_be Messages postés 23204 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 21 septembre 2024 - 24 août 2018 à 09:12
Bonjour,
Je cherche à soustraire automatiquement le 1er de chaque mois le chiffre d'une cellule du chiffre d'une autre cellule.
Concrètement, j'ai un prêt avec des mensualités de X, et un capital restant dû de Y.
X va rester constant, et Y va bien sûr diminuer de X le 1er de chaque mois jusqu'à zéro, moment où j'aurai remboursé le prêt.
ça doit pas être sorcier mais impossible de trouver la solution
Merci de votre aide à tous

Pierre

6 réponses

yg_be Messages postés 23204 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 21 septembre 2024 Ambassadeur 1 537
23 août 2018 à 19:56
bonjour Pierre, comment voudrais-tu déclencher cette opération? par un bouton, automatiquement à l'ouverture du fichier, ?
0
Krystkpi Messages postés 5 Date d'inscription jeudi 23 août 2018 Statut Membre Dernière intervention 24 août 2018
23 août 2018 à 20:10
automatiquement à l'ouverture du fichier
merci !
0
yg_be Messages postés 23204 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 21 septembre 2024 Ambassadeur 1 537
23 août 2018 à 22:11
je propose ceci:
si ta feuille se nomme "pierre", et que tu as ton capital en A1 et ta mensualité en B1, ajoutons la date du dernier paiement en C1, et ajoutons ce code dans la feuille:
Option Explicit
Private Sub Workbook_Open()
Call pierre
End Sub
Private Sub pierre()
Dim p As Worksheet, avant As Date, cejour As Date
Set p = Sheets("pierre")
avant = p.[c1]
cejour = Date
If DateSerial(Year(avant), Month(avant), 1) < DateSerial(Year(cejour), Month(cejour), 1) Then
    p.[A1] = p.[A1] - p.[B1]
    p.[c1] = cejour
End If
End Sub
Je pense que cela fonctionnera, sauf si tu n'ouvres pas ta feuille pendant un mois.
0
Krystkpi Messages postés 5 Date d'inscription jeudi 23 août 2018 Statut Membre Dernière intervention 24 août 2018
23 août 2018 à 22:37
ok pour capital en A1 et mensualité en B1 mais que veut dire "dernier piment" en C1 ??
merci beaucoup en tout cas
0
yg_be Messages postés 23204 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 21 septembre 2024 1 537
23 août 2018 à 22:48
"date du dernier paiement" = la date de la dernière fois que la mensualité a été déduite du capital. cette date sera ensuite mise à jour automatiquement.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Krystkpi Messages postés 5 Date d'inscription jeudi 23 août 2018 Statut Membre Dernière intervention 24 août 2018
24 août 2018 à 09:00
ok compris
j'essaye ASAP et reviens vers toi si pb
merci infiniment
0
Krystkpi Messages postés 5 Date d'inscription jeudi 23 août 2018 Statut Membre Dernière intervention 24 août 2018
24 août 2018 à 09:03
euh
j'ai oublié le principal: comment et où rentrer les 14 lignes de code (je sais, je suis pas doué...)
0
yg_be Messages postés 23204 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 21 septembre 2024 1 537
24 août 2018 à 09:12
alt-F11
double clic sur "ThisWorkbook" dans la colonne de gauche
coller le code dans la grande fenêtre à droite
0