Formules hors service

[Lipadec]

Bonjour le Forum
J'ai un fichier plein de formules, et je cherche une macro qui va stopper le fonctionnement de toutes ces formules à une date précise, exemple le 01/07/2009.
Merci de votre aide

Lipadec

 

[phlaurent55]

Re : Formules hors service

Bonjour lipadec,

' tester si la date est dépassée
if ...................... then
    With Application
        .Calculation = xlManual
        .CalculateBeforeSave = False
    End With

End If

pour empêcher le calcul automatique

bon week-end

 

[Lipadec]

Re : Formules hors service

Merci phlaurent55, mais que dois-je mettre entre le if...then? Tu peux me compléter le code
Merci
Lipadec

 

[kjin]

Re : Formules hors service

Bonjour,
Je ne sais pas ce que veut dire stopper le fonctionnement des formules
Soit tu passes en mode calcul manuel (sur ordre), soit tu remplaces les formules par la valeur actuelle (les formules sont perdues)
En outre, est ce valable pour l'ensemble du classeur ou juste certaines feuilles ?

Sub Macro1()
Dim Sh As Worksheet, Cel As Range
For Each Sh In ActiveWorkbook.Sheets
    If CStr(Date) = "01/07/2009" Then
        'remplace les formules par leur valeur
        For Each Cel In Sh.UsedRange
            If Cel.HasFormula = True Then Cel.Value = Cel.Value
        Next
        'sinon passe en mode calcul manuel
'        With Application
'            .Calculation = xlManual
'            .CalculateBeforeSave = False
'        End With
    End If
Next

End Sub

A+
kjin

 

[Lipadec]

Re : Formules hors service

Merci à tous
Stopper le fonctionnement des formules c'est excatement passer en mode calcul manueln et c'est ce que je veux, et pour tout le classeur.
Merci

 

[kjin]

Re : Formules hors service

Re, bonjour PHLaurent,
Alors il suffit de supprimer la première partie du code

Private Sub Workbook_Open()
Dim Sh As Worksheet, Cel As Range
If CStr(Date) = "01/07/2009" Then
    For Each Sh In ActiveWorkbook.Sheets
            With Application
                .Calculation = xlManual
                .CalculateBeforeSave = False
            End With
    Next
End If

End Sub

Edit : a mettre dans le module de ThisWorkBook
A+
kjin

 

[ROGER2327]

Re : Formules hors service

Bonjour à tous

Une solution radicale :

Private Sub Workbook_Open()
Dim oFeuil
   If Now() > DateSerial(2009, 7, 1) Then
      For Each oFeuil In ThisWorkbook.Sheets
         oFeuil.Cells.Copy
         oFeuil.[A1].PasteSpecial Paste:=xlPasteValues
         Application.CutCopyMode = False
      Next oFeuil
   End If
End Sub

et toutes les formules sont effacées...
A TESTER PRUDEMMENT !​

ROGER2327

 

[Lipadec]

Re : Formules hors service

Re tout le monde

Je viens de faire un essaie avec le code de ROGER2327, en applicant la date de demain, j'ai fermé le classeur, j'ai changer la date de l'oedinateur, et quand j'ai réouvert le classeur en question, rien n'a été changé
Où est le problème?

Merci

 

[kjin]

Re : Formules hors service

Re, bonjour Roger,
Mr Roger, il n'y a point besoin de copier/coller la cellule sur elle-même mais juste de remplacer la formule par son résultat, objet de mon message #4
Enfin, il me semble...

Mr Lipadec, où as tu mis le code ? voir mon dernier message.
En outre, tu veux maintenant effacer les formules, je n'y comprends plus rien (voir ton messge #5)

A+
kjin

 

[Lipadec]

Re : Formules hors service

RE

Pour information, la date doit être => au 01/07/09

Merci

 

[kjin]

Re : Formules hors service

Re,
Euh, oui et alors...?!
A+
kjin

 

[Lipadec]

Re : Formules hors service

Re
Je veux stopper le fonctionnement des formules soit par effacement, soit par autre chose

Merci Kjin

 

[ROGER2327]

Re : Formules hors service

Re...

Mr Roger, il n'y a point besoin de copier/coller la cellule sur elle-même mais juste de remplacer la formule par son résultat, objet de mon message #4
Enfin, il me semble...

Ben oui Mister kjin.

        For Each Cel In Sh.UsedRange
            If Cel.HasFormula = True Then Cel.Value = Cel.Value
        Next

et

         oFeuil.Cells.Copy
         oFeuil.[A1].PasteSpecial Paste:=xlPasteValues

doivent amener pratiquement au même résultat. (Peut-être pas à la même vitesse.)​

ROGER2327

 

[ROGER2327]

Re : Formules hors service

Re...

RE

Pour information, la date doit être => au 01/07/09

Merci

C'est pourquoi j'ai écrit :

   If Now() > [COLOR="Red"][B]DateSerial(2009, 7, 1)[/B][/COLOR] Then

ROGER2327

 

[phlaurent55]

Re : Formules hors service

Re, à tous

Je viens de faire un essaie avec le code de ROGER2327, en applicant la date de demain, j'ai fermé le classeur, j'ai changer la date de l'oedinateur, et quand j'ai réouvert le classeur en question, rien n'a été changé
Où est le problème?

le problème est que nous ne sommes pas encore demain ..................même à la maison blanche lol 😀

tu as peut-être oublier de valider le changement de date car chez moi ça a fonctionné