Discussion :

[lipadec]

Bonjour le Forum

J'avais posé une question sur un autre forum, j'ai eu la réponse, mais cela n'a pas fonctionné chez moi, et je voudrai vous demander de bien vouloir m'aider à appliquer la macro pour qu'elle fonctionne.

Le problème est 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.
La réponse que j'ai eu est la suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
Dim Sh As Worksheet, Cel As Range
For Each Sh In ActiveWorkbook.Sheets
    If Now() > DateSerial(2009, 5, 1) Then
        'remplace les formules par leur valeur
        For Each Cel In Sh.UsedRange
            If Cel.HasFormula = True Then Cel.Value = Cel.Value
        Next
    End If
Next
End Sub

Mais quand je relance le fichier,pour essayer la macro, et en changeant la date du 01/07/09 par 01/05/09, le fichier plante, et je ne sais pas d'où cela provient
Voulez-vous m'aider à résoudre ce problème

[LeForestier]

Bonjour,
Ta macros fonctionne normalement, tu a peut être des macros dans tes module de feuilles ?
Si oui, essaye en mettant en début de macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Application.EnableEvents = False

et remettre à true en fin de macros.
A+

[Fvandermeulen]

Bonjour,
Juste une petite remarque tu parles de 'stoper' les formules, la macro que tu montre écrase tes formules par la valeur (équivalent d'un copier/coller valeur) est-ce bien ce que tu veux, sinon ceci désactive le calcul automatique:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Now() > DateSerial(2009, 5, 1) Then Application.Calculation = xlManual

A+

[zenpbb]

Bonjour,

Peut-être as-tu dans ton classeur des feuilles graphiques en plus des feuilles de calcul ?
Si oui, remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Sheets

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Worksheets

[lipadec]

Re

Merci beaucoup mes chèrs confrères. Je veux exactement effacer toutes les formules du classeur, et les remplacer par leur valeur.
Comme je vous ai dit, chez moi ça plante après le démarrage

Merci à vous

Lipadec

[LeForestier]

Tu a regarder les 2 autres solutions ?
et tu pourrais peut-être y répondre !
A+