Copie de données

Bonjour,

Je vous sollicite pour votre aide sur un petit projet de gestion de comptes.

Le fichier joint comprend 2 feuilles : la première pour la saisie et l'enregistrement des données et la second plus pour l'interprétation graphique et bilans(tcd).
L'idée est de réalisé en automatique périodique un virement de compte à compte.

ex . : tous les 28 du mois pouvoir faire un virement de 100 euros du compte Bpostale-CP vers le compte livretA-CP automatiquement.

Merci à vous

Bonjour,

Un test en partant du principe que le fichier est au moins ouvert une fois par mois :

Private Sub Workbook_Open()
Dim VIR%
VIR = 100
With Worksheets("Données")
    LR = .Cells(.Rows.Count, 1).End(xlUp).Row
    If WorksheetFunction.CountIfs(.Range("D5:D" & LR), "VIREMENT", .Range("A5:A" & LR), DateAdd("m", -1, DateSerial(Year(Date), Month(Date), 28))) = 0 Then 'Si NB.SI.ENS(D5:D8;"VIREMENT";A5:A8;"28/05/2021")=0 (donc si aucune valeur égale à VIREMENT au 28 du mois d'avant la date d'ouverture du fichier)
        .Cells(LR, 1).Offset(1).Resize(2, 1) = DateAdd("m", -1, DateSerial(Year(Date), Month(Date), 28)) 'Ajoute la date du virement
        .Cells(LR, 4).Offset(1).Resize(2, 1) = "VIREMENT" 'Ajout le motif du virement
        .Cells(LR, 2).Offset(1) = "LA BANQUE POSTALE - CP" 'Ajoute le compte prélevé
        .Cells(LR, 2).Offset(2) = "LIVRET A - CP" 'Ajoute le compte crédité
        .Cells(LR, 6).Offset(1) = -VIR 'Retire le montant
        .Cells(LR, 7).Offset(2) = VIR 'Ajout le virement
        .Cells(LR, 9).Offset(1) = .Cells(LR, 9).Offset(1).End(xlUp) - VIR 'Calcule le solde du compte prélevé
        .Cells(LR, 11).Offset(2) = .Cells(LR, 11).Offset(1).End(xlUp) + VIR 'Calcule le solde du compte crédité
    End If
End With
End Sub

Code à placer dans le module ThisWorkbook du classeur.

Cdlt,

Rechercher des sujets similaires à "copie donnees"