Discussion :

[jpma75]

Bonjour,

Le temps de saisie (et donc de re-calcul) est trop long depuis que j'ai ajouté des Feuilles (~50) à mon classeur.

Les feuilles sont liées par :

Code :

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

1
2
3
4
5
Function NomFeuilPrec() As String
    Application.Volatile                                        
    NomF = Application.Caller.Worksheet.Name                   
    If Not ActiveSheet.Index = 1 Then NomFeuilPrec = Worksheets(Sheets(NomF).Index - 1).Name  
End Function

J'ai 4 Sub par Feuille :

Code :

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

1
2
3
4
Private Sub worksheet_activate()
Private Sub Worksheet_Change(ByVal Target As Range)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

J'ai cherché une solution pour Worksheet_Change et Worksheet_SelectionChange, en ajoutant (en vain) :

Code :

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

1
2
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

Y a-t-il un moyen de résoudre le problème de latence de calcul à chaque saisie ?
En vous remerciant par avance pour vos lumières.

Cdt