Au dernier jour du mois, enregistrer valeur d'une cellule sur une autre feuille

willdolive

XLDnaute Nouveau
Bonjour,

En fin de tableau, j'utilise plusieurs cellules pour faire des calculs selon les differentes donnees. Mais si celui ci passe au mois suivant, les donnes ne sont pas enregistrees.
J'aimerais donc pouvoir sauvegarder le resultat a la fin du mois, de cette cellule, sur une feuille a part, sans avoir a le faire manuellement.

Si quelqu'un a une solution ?
g mis un exemple de ce que je fais, ce n'est pas forcement representatif maisje ne peux pas mettre tout mon tableau. Si il manque des infos pour la comprehension du probleme, merci de me le dire.

Bonne journee
 

Fichiers joints

JCGL

XLDnaute Barbatruc
Re : Au dernier jour du mois, enregistrer valeur d'une cellule sur une autre feuille

Bonjour à tous,

Peux-tu essayer ceci, dans un module, pour les tests (à tester aujourd'hui) :

VB:
Option Explicit


Sub Test()
    If Date + 2 = Application.WorksheetFunction.EoMonth(Date + 2, 0) Then
        Feuil2.Cells(Month(Date) + 1, 2) = Feuil1.Range("AI3")
        Feuil2.Cells(Month(Date) + 1, 3) = Feuil1.Range("AK3")
        Feuil2.Cells(Month(Date) + 1, 4) = Feuil1.Range("AL3")
    End If
End Sub

Pour pérenniser l'action, ceci dans le module ThisWorkBook :

VB:
Option Explicit


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Date = Application.WorksheetFunction.EoMonth(Date, 0) Then
        Feuil2.Cells(Month(Date) + 1, 2) = Feuil1.Range("AI3")
        Feuil2.Cells(Month(Date) + 1, 3) = Feuil1.Range("AK3")
        Feuil2.Cells(Month(Date) + 1, 4) = Feuil1.Range("AL3")
    End If
End Sub
A + à tous
 

Fichiers joints

Dernière édition:

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas