Recherche d'une formule pour mise à jour automatique
Fermé
FRANSIS33
Messages postés
309
Date d'inscription
mardi 15 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2023
-
19 nov. 2016 à 12:50
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 26 nov. 2016 à 10:21
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 26 nov. 2016 à 10:21
A voir également:
- Recherche d'une formule pour mise à jour automatique
- Formule excel - Guide
- Mise à jour pilote - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Mise a jour airpods - Guide
- Mise en forme conditionnelle formule si - Guide
3 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
19 nov. 2016 à 12:59
19 nov. 2016 à 12:59
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+
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
Messages postés
309
Date d'inscription
mardi 15 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2023
4
19 nov. 2016 à 15:17
19 nov. 2016 à 15:17
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 !
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
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
19 nov. 2016 à 19:17
19 nov. 2016 à 19:17
Là, moi aussi j'ai besoin d'aide pour comrpendre !
Je te conseillerais de joindre un fichier pour illustrer ta demande.
A+
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+
FRANSIS33
Messages postés
309
Date d'inscription
mardi 15 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2023
4
20 nov. 2016 à 20:51
20 nov. 2016 à 20:51
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
Voici le lien qui pourra mieux expliquer ma demande d'aide.
Bonne soirée.
https://www.cjoint.com/c/FKutYlabQoz
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
Modifié par Gyrus le 26/11/2016 à 10:43
Modifié par Gyrus le 26/11/2016 à 10:43
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.
A+
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+
