Discussion :

[d0n32]

Bonjour à tous,

Je rencontre un problème avec, je présume, la fonction Application.volatile. Je m'explique:

J'ai codé une fonction volatile en VBA, nommée "logigramme", que j'appelle dans une cellule d'un onglet A via =logigramme(). Elle fonctionne bien, c'est à dire que le résultat qui apparaît est bien mis à jour suivant les valeurs prises par d'autres cellules du même onglet.

Maintenant, je lance le code VBA d'un autre onglet B. Le calcul a lieu, se termine correctement. Je reviens sur l'onglet A, et le résultat de logigramme() a changé ! Alors que les cellules qui servent d'argument à la fonction n'ont pas changé de valeur...

Auriez-vous une explication rationnelle à cela ? A priori, le code de l'onglet B ne vient pas perturber celui de l'onglet A...
Merci d'avance

[Philippe Tulliez]

Bonjour,
Si tu as écrit une fonction volatile celle-ci se recalcule chaque fois que l'on modifie la valeur de n'importe quelle cellule, de n'importe quelle feuille, de n'importe quel classeur ouvert.
Il y a 7 fonctions volatiles dans excel qui fonctionnent de la même manière.
Par exemple, si tu tapes =MAINTENANT() dans la cellule A1 de la feuil1, il t'affiche la date et l'heure de maintenant. Tu ne fais rien pendant 5 minutes, l'heure ne bougera pas. Dès que tu taperas une valeur dans une cellule de cette feuille ou d'une autre feuille, l'heure changera puisque la fonction MAINTENANT() étant volatile aura refait le calcul.

[d0n32]

Bonjour,

Merci pour ces éclairements, je pense que nous sommes d'accord sur le fonctionnement d'une fonction volatile.
Ce qui m'étonne, c'est que la fonction affiche un résultat dont la valeur dépend des paramètres d'autres cellules, disons A et B.

J'entre A et B, j'ai le résultat 1.
J'exécute un autre code sans modifier A et B.
Je retourne voir le résultat : j'obtiens le résultat 2, alors que A et B n'ont pas changé.
Admettons que le résultat est A+B, dans le premier cas j'obtiendrais bien la bonne somme. Après exécution d'un code j'aurais alors un mauvais résultat !

Quelle pourrait être la solution pour contourner cela ?

Merci encore,

[Philippe Tulliez]

Bonjour,
N'utilises-tu pas une variable déclarée Static ?
Il serait peut-être intéressant d'afficher le code de ta fonction afin de pouvoir apporter une réponse pertinente.

[tototiti2008]

Bonjour d0n32, Bonjour Philippe, ,

si ta fonction est dépendante de valeurs de cellules, as-tu bien précisé dans ton code la feuille à laquelle appartiennent ces cellules ?
Si non, il recalcule en fonction de la feuille active, et comme elle est volatile ça pose problème...

[d0n32]

Erreur de débutant....
Merci tototiti, merci à vous 2, c'est parfait !

[ahmedSel]

Bonjour à tous ,
Je rencontre le même problème mais je n'ai pas compris la solution proposée .Voilà mon code :

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
Function Effective() As Double
 
Application.Volatile
Dim J As Long
Dim i As Double
 
Effective_Design = 0
  For J = 2 To Sheets("Test").Range("C" & Rows.Count).End(xlUp).Row
    If Sheets("Test").Range("C" & J) <> "" Then
       Effective = Effective + (3 * Sheets("Test").Range("E" & J))
 
    End If
  Next J
 
 
End Function

[MarcClap]

Bonjour,

Je n'ai pas testé mais j'ai l'impression qu'en remplaçant la ligne
Effective_Design = 0 ???
par
Effective = 0

On réinitialise le comptage et on doit avoir le résultat souhaité

Est-ce le cas ?

[ahmedSel]

Non ça n'a rien à voir .

[joe.levrai]

Si ça n'a rien à voir, alors que fait cette variable dans ta fonction ?

Elle n'est ni déclarée, tu la spécifies à 0 et tu ne l'utilises pas

Décris aussi le comportement inattendu qui se produit !

[ahmedSel]

Si ça n'a rien à voir, alors que fait cette variable dans ta fonction ?

Elle n'est ni déclarée, tu la spécifies à 0 et tu ne l'utilises pas

Décris aussi le comportement inattendu qui se produit !

La variable est bonne . Il s'agit d'initaitalisation de la fonction Effective . Là il s'agit de code juste modifié .
Quand j'ouvre un autre fichier , la fonction donne erreur .
Par contre , si je saisi une autre valeur la fonction fonctionne correctement .

[joe.levrai]

Bref, laissons cette ligne de code inutile de côté

Ta fonction cherche la feuille Sheets("Test") dans le classeur qui est considéré comme actif

Je te conseille de préfixer ta feuille avec le classeur dans lequel tu souhaites faire la recherche et le calcul

[ahmedSel]

Bref, laissons cette ligne de code inutile de côté

Ta fonction cherche la feuille Sheets("Test") dans le classeur qui est considéré comme actif

Je te conseille de préfixer ta feuille avec le classeur dans lequel tu souhaites faire la recherche et le calcul

Oui mais si la feuille Test n'existe pas dans un autre fichier pourquoi il prend d'autres valeurs ?
Comment préfixer le classeur ?