Recherche d'une formule pour mise à jour automatique

FRANSIS33 Messages postés 356 Date d'inscription   Statut Membre Dernière intervention   -  
Gyrus Messages postés 3360 Statut Membre -
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.

3 réponses

  1. Gyrus Messages postés 3360 Statut Membre 526
     
    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+
    0
  2. FRANSIS33 Messages postés 356 Date d'inscription   Statut Membre Dernière intervention   5
     
    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 !
    0
    1. Gyrus Messages postés 3360 Statut Membre 526
       
      Là, moi aussi j'ai besoin d'aide pour comrpendre !
      Je te conseillerais de joindre un fichier pour illustrer ta demande.

      1)	Tu vas dans https://www.cjoint.com/ 
      2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
      3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
      4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
      en bleu souligné ; clic droit dessus et "Copier l’adresse du lien"
      5) Tu reviens dans ta discussion sur commencamarche , et dans ton message de réponse tu fais "Coller".


      A+
      0
    2. FRANSIS33 Messages postés 356 Date d'inscription   Statut Membre Dernière intervention   5
       
      Bonsoir et merci pour la réponse.
      Voici le lien qui pourra mieux expliquer ma demande d'aide.
      Bonne soirée.
      https://www.cjoint.com/c/FKutYlabQoz
      0
  3. Gyrus Messages postés 3360 Statut Membre 526
     
    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 Date
    Dim Lib As String
    Dim 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 With
    End Sub


    A+
    0