Recherche d'une formule pour mise à jour automatique Fermé

Question

Bonjour, 

Je tiens un tableau pour mon compte bancaire dont tous les paramètres fonctionnent bien.
Juste un détail...mon compte comprend des prélèvements automatiques mais ne connaissant pas de formule, je suis obligé de les inscrire manuellement dans le tableau au moment de l'échéance mensuelle et souvent j'oublie !!!
Je ne maîtrise pas les modules  Excel et ne sais pas trouver la formule qui me permettrait d'incrémenter automatiquement le prélèvement  dans le tableau à une date déterminée.
Pouvez-vous me conseiller ? Merci.

Gyrus · Answer

Bonjour,

Tu peux utiliser une formule du type :
=SI(A1<=AUJOURDHUI();B1;"")
Avec la date d'échéance en A1 et le montant du prélèvement en B1.

A+

FRANSIS33 · Answer

Bonjour Gyrus et merci pour la réponse mais la formule ne fonctionne pas pour mon exemple.
Je pense qu'il faut créer un module dans lequel j'inscris tous mes prélèvements automatiques et ensuite trouver une formule qui viendra chercher dans ce module l'échéance déterminée et la rapatriera dans mon tableau de compte bancaire.
Mais là j'ai besoin d'aide !

Gyrus · Answer

Bonjour,
Voici une proposition qui utilise une procédure VBA qui se lance automatiquement à l'ouverture du fichier.
Si la date du jour est supérieure ou égale au 15 du mois, la ligne de débit est ajoutée.
https://www.cjoint.com/c/FKAjQU2MN63
Pour visualiser cette procédure :
- appuyer sur alt + F11 pour ouvrir l'éditeur,
- appuyer sur ctrl + R pour ouvrir l'explorateur de projets,
- double-clic sur le module ThisWorkbook pour voir le code.
Private Sub Workbook_Open()Dim D As DateDim Lib As StringDim LigneAjout As Long    With Worksheets("Feuil1")        ' D = 15 du mois en cours        D = DateSerial(Year(Date), Month(Date), 15)        'Libellé        Lib = "Banque XXX (Prêt immo) " & Format(Date, "- mmm yy")        'Si la date du jour est supérieure ou égale au 15 du mois        If Date >= D Then            'Si la ligne de débit n'a pas déjà été enregistrée            If Application.CountIf(.Columns(2), Lib) = 0 Then                'On recherche la première ligne vide                LigneAjout = .Range("A" & Rows.Count).End(xlUp).Row + 1                'On ajoute la ligne de débit                Range("A" & LigneAjout) = D 'Date du jour                Range("B" & LigneAjout) = Lib 'Libellé de l'opération                Range("C" & LigneAjout) = 2 'Montant du débit            End If        End If    End WithEnd Sub
A+

Recherche d'une formule pour mise à jour automatique

3 réponses

Discussions similaires