Bloquer des formules

mcj1997 · 16 Janvier 2012

Bonjour,

Je posséde un fichier avec un grand nombre de feuilles, avec sur ces feuilles beaucoup de formules. Toutes les feuilles ne me servent pas mais qu'au fil de l'eau.

Ma question : pour les feuilles qui ne servent pas est-il possible de désactiver les formules afin que l'ouverture du fichier soit plus rapide ?

Merci d'avance,

job75 · 16 Janvier 2012

Re : Bloquer des formules

Nos posts se sont croisés.

mcj1997 à dit:
Non ce n'est pas possible car toutes les formules sont dans les mêmes cases (...)

C'est bien ce que je supposais avec mes solutions des posts 12 et 14.

Curieux qu'il ne soit pas possible de définir la plage des liaisons.

On peut le faire même avec des cellules non jointives...

A+

job75 · 16 Janvier 2012

Re : Bloquer des formules

Re,

En fait il n'est pas nécessaire de définir une plage. Essayez ceci :

Code:

Private Sub Workbook_Open()
Dim cel As Range
Application.Calculation = xlManual 'sur ordre
Application.CalculateBeforeSave = False 'décoche Recalcul avant enregistrement
On Error Resume Next 'si aucune formule
For Each cel In Cells.SpecialCells(xlCellTypeFormulas)
  If Not cel.Formula Like "*[*" Then cel.Calculate
Next
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim cel As Range
On Error Resume Next 'si aucune formule
For Each cel In Cells.SpecialCells(xlCellTypeFormulas)
  If Not cel.Formula Like "*[*" Then cel.Calculate
Next
End Sub

A+

Bloquer des formules

mcj1997

XLDnaute Accro

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

Bloquer des formules

mcj1997

XLDnaute Accro

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency