Recherche d'une formule de calculRésolu/Fermé

Question

Bonjour, 
Toujours à la recherche d'une formule de calcul pour l'exemple dans ce lien.
Merci pour votre aide.
https://www.cjoint.com/c/FKutYlabQoz

Gyrus · Answer

Bonjour,
Une proposition avec une procédure VBA.
A l'ouverture du fichier, un contrôle de date est effectué.
Si la date du jour est supérieure au 15 du mois, la ligne de débit est ajoutée.
https://www.cjoint.com/c/FKznztOSXP3
A+

Gyrus · Answer

Comme indiqué précédemment, il s'agit d'une procédure VBA.
Private Sub Workbook_Open()Dim D As DateDim LigneAjout As Long    With Worksheets("Feuil1")        D = DateSerial(Year(Date), Month(Date), 15)        If Date >= D Then            If Application.CountIf(.Columns(1), D) = 0 Then                LigneAjout = .Range("A" & Rows.Count).End(xlUp).Row + 1                Range("A" & LigneAjout) = D                Range("B" & LigneAjout) = "Banque XXX (Prêt immo)"                Range("C" & LigneAjout) = 2            End If        End If    End WithEnd Sub
Pour visualiser cette procédure : 
alt + F11 pour ouvrir l'éditeur,
ctrl + R pour ouvrir l'explorateur de projets,
double-clic sur le module ThisWorkBook pour visualiser le code.
L'intérêt de cette procédure Workbook_Open(), c'est qu'elle est lancée automatiquement à l'ouverture du fichier.
On peut ainsi vérifier si la date du jour est supérieure au 15 du mois et effectuer le traitement souhaité si la condition est vérifiée.
A+

Gyrus · Answer

Bonjour,
La procédure doit être placée dans le module ThisWorkbook.
Ce module permet de disposer de l'évènement Workbook.Open qui lance la procédure à l'ouverture du classeur.
Dans la procédure, il faut préciser le nom de la feuille où s'applique le traitement.
Si ta feuille porte le nom "COMPTES", il faut remplacer la ligne 
With Worksheets("Feuil1") 
par 
With Worksheets("COMPTES") 
A+

Recherche d'une formule de calcul

3 réponses

Newsletters