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
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
A voir également:
- Gérer la répétition mensuelle de tâches simples
- Windows 11 barre des taches a gauche - Guide
- Comment remettre la barre des tâches à la normale ? - Guide
- Changer la couleur de la barre des taches - Guide
- Gerer les profils netflix - Guide
- Gestionnaire des taches - Guide
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
23 août 2018 à 19:56
bonjour Pierre, comment voudrais-tu déclencher cette opération? par un bouton, automatiquement à l'ouverture du fichier, ?
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
23 août 2018 à 20:10
automatiquement à l'ouverture du fichier
merci !
merci !
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
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:
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 SubJe pense que cela fonctionnera, sauf si tu n'ouvres pas ta feuille pendant un mois.
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
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
merci beaucoup en tout cas
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
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.
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
24 août 2018 à 09:00
ok compris
j'essaye ASAP et reviens vers toi si pb
merci infiniment
j'essaye ASAP et reviens vers toi si pb
merci infiniment
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
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é...)
j'ai oublié le principal: comment et où rentrer les 14 lignes de code (je sais, je suis pas doué...)
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
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
double clic sur "ThisWorkbook" dans la colonne de gauche
coller le code dans la grande fenêtre à droite