Figer les calculs d'une feuille à la date du jour (dernier jour du mois)

[Papy 100]

Bonjour tout la monde et merci de m'accorder un peu de votre temps.

Je vous ai joint un fichier qui sera bien plus explicite qu'un long discours.

En vous remerciant

Patrick

 

[JCGL]

Re : Figer les calculs d'une feuille à la date du jour (dernier jour du mois)

Bonjour à tous,

Le fichier non joint n'est pas très explicite...
Essaye encore.

A+ à tous

 

[Papy 100]

Re : Figer les calculs d'une feuille à la date du jour (dernier jour du mois)

Bonsoir et mille excuses

J'ai fait le nécessaire

Grands MERCI Patrick

 

[JCGL]

Re : Figer les calculs d'une feuille à la date du jour (dernier jour du mois)

Bonjour à tous,

Je ne vois toujours pas de fichier...

A+ à tous

 

[Papy 100]

Re : Figer les calculs d'une feuille à la date du jour (dernier jour du mois)

Bonsoir JBGL

Je ne comprends pas je joins le fichier comme d'hab...
Je recommence

Merci Patrick
PS : Mon fichier se trouve en lieu et place dans "gérer les pièces jointes"

 

[JCGL]

Re : Figer les calculs d'une feuille à la date du jour (dernier jour du mois)

Bonjour à tous,

Peux-tu essayer ceci dans le module ThisWorkBook :

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Cells(1, 1) > DateSerial(Year(Cells(3, 2)), Month(Cells(3, 2)) + 1, 0) Then
Range("A1:L200").Value = Range("A1:L200").Value
Cells(1, 1) = DateSerial(Year(Cells(3, 2)), Month(Cells(3, 2)) + 1, 0)
Cells(1, 3) = ""
End If
End Sub

A+ à tous