Bloquer calcul si date dépassée

[roden]

Bonjour à tous,

J'essaye de trouver une solution pour empêcher le calcul d'une case d'un classeur si une date donnée est dépassée (grâce à l'horloge du pc). Ou de toute la feuille si c'est possible.

Avez-vous une idée?

 

[néné06]

Re : Bloquer calcul si date dépassée

Bonsoir Roden,

Peur-être avec la fonction si et Aujourdhui ?

=SI(A3>=(AUJOURDHUI());B3+C3;"")

Regardez exemple posté, mais une pièce jointe aurait été mieux dans votre post !

A+

René

 

[DoubleZero]

Re : Bloquer calcul si date dépassée

Bonjour, roden, néné06, le Forum,

Peut-être ainsi, en supposant la présence d'une date en a1 de l'onglet "Feuil1" :

Option Explicit
Private Sub Workbook_Open()
With Sheets("Feuil1")
If Date > .[a1] Then With .Cells.SpecialCells(xlCellTypeFormulas, 23): .Value = .Value: End With
End With
End Sub

A bientôt 🙂

 

[roden]

Re : Bloquer calcul si date dépassée

Merci à vous deux c'est ce que je recherchais!