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+

[lipadec]

Re

Je viens encore vers vous pour me dire où est l'erreur
Quand je mets en application le code suivant que je place dans ThisWorkbook,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_Open()
Application.EnableEvents = False
Dim Sh As Worksheet, Cel As Range
For Each Sh In ActiveWorkbook.Sheets
    If Now() > DateSerial(2009, 5, 1) Then Application.Calculation = xlManual
        '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
Application.EnableEvents = True
End Sub

j'obtiens le message (End If sans bloc If)

Où est l'erreur s'il vous plaît

Merci

[Fvandermeulen]

Re,
A priori tu n'as pas besoin des End If car tu as mis l'action à la suite du Then
En fait:

Code :

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

If x=y Then y=z  '=> pas de end if

Mais

Code :

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

1
2
3
If x=y then
   y=z
End if

[lipadec]

Re

Merci beaucoup, j'ai supprimé le end if, et j'ai essayé et ça a a marché
Merci une autre fois

Lipadec

[lipadec]

Bonjour le Forum

Sur mon précédent message, j'avais dis que le code marchait bien, et j'ai considéré la discussion comme reglée.
Malheureusement, quand j'ai appliqué le code avec la date que je voulais, c'est à dire à une date postérieure, le 31/08/09, le fichier plante et dans le débogage, c'est le 1er Next qui est en jaune.
Le code c'est:

Code :

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

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

Mais quand la date est antérieure à aujourd'hui, le 01/05/2009 par exemple, le code marche bien, et les formules se remplacent par leur valeur. Normalement, avant la date mentionnée dans dateseria, le fichier dois s'ouvrir avec ses formules et rien ne dois se passer, car nous ne sommes pas encore le 31/08/2009
Dois-je ajouter quelque chose, ou ai-je commis une erreur?
Eclairez-moi SVP

Merci

Lipadec

[mapeh]

Bonsoir,

essaie peut-être avec Date, à la place de Now (bien que normalement, cela ne devrait pas poser de soucis...)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Workbook_Open()
Dim Sh As Worksheet
If Date > DateSerial(2009, 8, 31) Then
    With Application
        .EnableEvents = False
        .Calculation = xlManual
    End With
    For Each Sh In Sheets
        With Sh.Cells.SpecialCells(xlCellTypeFormulas, 23)
            .Value = .Value
        End With
    Next
End If
With Application
    .EnableEvents = True
    .Calculation = xlAutomatic
End With
End Sub

[LeForestier]

vba n'accepte pas les date négative, tu doit tester la plus petite et fair la soustraction.
A+

[Fvandermeulen]

Bonjour,
Le problème vient du fait que tu lance la boucle avant de vérifier la date...essaies:

Code :

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

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

[lipadec]

Bonjour le Forum

Je pense que cette fois-ci ça marche bien, j'ai appliqué ce dernier code avec une date ordinateur antérieur à la date du code, et une autre fois en changeant la date de l'ordinateur par une date supérieure, et ça a marché dans les deux cas.

Merci à tous ceux qui ont collaboré à cette discussion

Merci le Forum

Lipadec