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

[jurassic pork]

Hello,
Rappel concernant Application.Volatile :
Marque comme volatile une fonction définie par l’utilisateur. Une fonction volatile doit être recalculée chaque fois qu’un calcul se produit dans des cellules de la feuille de calcul. Une fonction non volatile est recalculée uniquement lorsque les variables d’entrée changent. Cette méthode n’a aucun effet si elle n’est pas située dans une fonction définie par l’utilisateur servant à calculer une cellule de feuille de calcul.
Ami calmant, J.P

[jpma75]

Bonjour,

Merci pour cette réponse détaillée mais que puis-je faire pour "résoudre" le problème (si possible) ?

Cdt

[mercatog]

Bonjour
Ne sachat exactement ce que tu cherches ainsi, mais regarde du côté des évènements Worbook du modue Thisworkbook

[jpma75]

Bonjour,

Le principe :

* Création de Feuilles (au cas par cas) à partir d'une macro, sur lesquelles on effectue des saisies de nombres qui affichent un résultat en fonction de la Feuille précédente.
* Chaque Feuille est renommée avec la date située dans la cellule F2 - les dates ne sont pas connues d'avance.
* L'intervalle entre la Feuille n et la Feuille n-1 conditionne certains calculs.

Problème :
Comme les dates ne sont pas connues d'avance, on ne peut pas (sauf erreur de ma part) générer les onglets d'avance et lier les formules (de l'un à l'autre) avec la formule DECALER.

Solution (!) :
Chaque nouvelle Feuille crée est placée dans l'ordre des index et récupère les données de la précédente par la "Function NomFeuilPrec() As String". Tout ça fonctionne bien.

Problème bis :
Plus il y a d'onglets, plus les re-calculs sont longs.

Piste (faut bien essayer !) :
Puisque les saisies se font dans la plage "F7:J19", j'envisage de d'y détecter la position du curseur et de déclencher une variable "shunt_volatile" qui inhibera ladite Function :

Ce qui donne, dans les modules de Feuilles (Sub Worksheet_Change et Sub Worksheet_Selection_Change) :

Code :

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

1
2
3
4
5
6
7
 
    If Not Intersect(Target, Range("F7:J19")) Is Nothing Then
        shunt_volatile = 1
    Else
        shunt_volatile = 0
    End If    
    (...)

Et (dans un module standard) :

Code :

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

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

Nota :
Comme les calculs de la Feuille active ne sont temporairement plus actualisés, j'avais pensé générer un message dans une cellule pour "rassurer" l'utilisateur...
Mais la saisie pose problème car elle sollicite l'évènement Change - j'ai remplacé cette solution par l'affichage d'un motif (qui fait apparaitre le message en évitant Change).
L'utilisateur est invité à cliquer sur cette même cellule s'il veut délibérément actualiser les calculs (et le motif change de couleur).
Dans tous les cas, je prévois de réactiver la Fonction volatile quand l'utilisateur passe sur un autre onglet ou bien sûr à l'ouverture du classeur.

Pas sûr que ça soit très clair mais j'expérimente...

Cdt

[Philippe Tulliez]

Bonjour,
Outre le fait que vous utilisez des fonctions personnalisées que vous rendez volatiles, DECALER est également une fonction volatile ce qui, comme l'a signalé JP que je salue au passage, ralenti l'exécution du programme du fait que ces fonctions ainsi que toutes celles qui sont imbriquées avec elles se recalculent à chaque changement de valeur dans une cellule quelconque d'un classeur ouvert.

[EDIT]
Liste des fonctions volatiles d'excel

• ALEA
• ALEA.ENTRE.BORNES
• AUJOURDHUI
• CELLULE
• DECALER
• INDIRECT
• INFO
• MAINTENANT