Calcul automatique ne s'exécute pas
Résolu
Bonjour,
Dans mon fichier (Excel 2013), des calculs s'effectuent à partir de la couleur des cellules contenant les valeurs.
Lorsque je saisis dans une cellule une valeur et que j'attribue la couleur reprise dans la formule de calcul, le résultat du calcul ne s'actualise pas. Pourtant, la couleur attribuée est exactement la même et les "options de calcul" sont bien en "automatique".
Par contre, le résultat s'actualise si je "glisse" ou "copie/colle" le contenu d'une cellule qui contient la bonne couleur.
Les autres calculs, "classiques", s'actualisent.
Quelqu'un saurait-il comment régler le problème pour éviter d'avoir à faire systématiquement MAJ+F9 après chaque saisie ?
Merci par avance de vos réponses.
Dans mon fichier (Excel 2013), des calculs s'effectuent à partir de la couleur des cellules contenant les valeurs.
Lorsque je saisis dans une cellule une valeur et que j'attribue la couleur reprise dans la formule de calcul, le résultat du calcul ne s'actualise pas. Pourtant, la couleur attribuée est exactement la même et les "options de calcul" sont bien en "automatique".
Par contre, le résultat s'actualise si je "glisse" ou "copie/colle" le contenu d'une cellule qui contient la bonne couleur.
Les autres calculs, "classiques", s'actualisent.
Quelqu'un saurait-il comment régler le problème pour éviter d'avoir à faire systématiquement MAJ+F9 après chaque saisie ?
Merci par avance de vos réponses.
4 réponses
-
ContributeurSalut le Forum
Application.Volatile en début de macro.
Une fonction volatile doit être recalculée chaque fois qu'un calcul se produit
dans des cellules de la feuille de calcul
Mytå
-
Bonjour
Ca y est déjà :-/ Voilà le code :
Function SOMME_SI_COULEUR(PlageSomme As Range, PlageCouleur As Range) As Variant
'*********************************************************
' Effectuer la somme des cellules en couleur *
'*********************************************************
Dim Cel As Range
Dim Som As Double
' Ne pas oublier l'option de recalcul automatique
Application.Volatile
'
If PlageCouleur.Cells.Count > 1 Then
SOMME_SI_COULEUR = CVErr(xlErrValue)
Exit Function
End If
For Each Cel In PlageSomme
If Cel.Interior.ColorIndex = PlageCouleur.Interior.ColorIndex Then Som = Som + Cel
Next
SOMME_SI_COULEUR = Som
End Function -
Je viens de faire un test (supplémentaire) : si j'attribue la couleur à la cellule et qu'ensuite, j'y saisis un chiffre, le calcul s'actualise. Si je saisis d'abord le chiffre et que je mets la couleur ensuite, il ne s'actualise qu'avec MAJ+F9.
Est-ce un "comportement" normal ? -
ContributeurBonjour,
Il faut qu'il y ait un recalcul de la feuille.
C'est ce que tu provoques avec F9 ou en validant une cellule (n'importe laquelle, même vide).
Changer une couleur ne provoque aucun événement détectable ni de recalcul.
eric
