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

JCGL

XLDnaute Barbatruc

• 7 Mars 2013

• #2

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

 

Vote positif 0 Vote négatif

Papy 100

XLDnaute Occasionnel

• 7 Mars 2013

• #3

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 8 Mars 2013

• #4

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

 

Vote positif 0 Vote négatif

Papy 100

XLDnaute Occasionnel

• 8 Mars 2013

• #5

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"

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 8 Mars 2013

• #6

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 :

VB:

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

 

Dernière édition: 8 Mars 2013

Vote positif 0 Vote négatif