Formules hors service

phlaurent55

Nous a quittés en 2020

Repose en paix

• 6 Juin 2009

• #2

Re : Formules hors service

Bonjour lipadec,

Code:

' 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

 

Vote positif 0 Vote négatif

Lipadec

XLDnaute Occasionnel

• 6 Juin 2009

• #3

Re : Formules hors service

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 6 Juin 2009

• #4

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 ?

Code:

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

 

Vote positif 0 Vote négatif

Lipadec

XLDnaute Occasionnel

• 6 Juin 2009

• #5

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 6 Juin 2009

• #6

Re : Formules hors service

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

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

 

Dernière édition: 6 Juin 2009

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 6 Juin 2009

• #7

Re : Formules hors service

Bonjour à tous

Une solution radicale :

Code:

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

 

Vote positif 0 Vote négatif

Lipadec

XLDnaute Occasionnel

• 6 Juin 2009

• #8

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 6 Juin 2009

• #9

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

 

Dernière édition: 6 Juin 2009

Vote positif 0 Vote négatif

Lipadec

XLDnaute Occasionnel

• 6 Juin 2009

• #10

Re : Formules hors service

RE

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

Merci

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 6 Juin 2009

• #11

Re : Formules hors service

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

 

Vote positif 0 Vote négatif

Lipadec

XLDnaute Occasionnel

• 6 Juin 2009

• #12

Re : Formules hors service

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

Merci Kjin

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 6 Juin 2009

• #13

Re : Formules hors service

Re...

kjin à dit:

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...

Cliquez pour agrandir...

Ben oui Mister kjin.

Code:

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

et

Code:

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

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

ROGER2327

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 6 Juin 2009

• #14

Re : Formules hors service

Re...

Lipadec à dit:

RE

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

Merci

Cliquez pour agrandir...

C'est pourquoi j'ai écrit :

Code:

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

ROGER2327

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 6 Juin 2009

• #15

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?

Cliquez pour agrandir...

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é

 

Vote positif 0 Vote négatif