Calcul automatique ne s'exécute pas
Résolu/Fermé
hatusu
Messages postés
54
Date d'inscription
vendredi 12 août 2011
Statut
Membre
Dernière intervention
31 juillet 2019
-
7 févr. 2015 à 19:01
hatusu Messages postés 54 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 31 juillet 2019 - 8 févr. 2015 à 15:46
hatusu Messages postés 54 Date d'inscription vendredi 12 août 2011 Statut Membre Dernière intervention 31 juillet 2019 - 8 févr. 2015 à 15:46
A voir également:
- Excel formule ne s'exécute pas
- Formule excel pour additionner plusieurs cellules - Guide
- Formule excel si et - Guide
- Formule excel moyenne - Guide
- Formule excel - Guide
- Excel mise en forme conditionnelle formule - Guide
4 réponses
Mytå
Messages postés
2973
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
949
7 févr. 2015 à 21:02
7 févr. 2015 à 21:02
Salut 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å
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å
hatusu
Messages postés
54
Date d'inscription
vendredi 12 août 2011
Statut
Membre
Dernière intervention
31 juillet 2019
8 févr. 2015 à 10:28
8 févr. 2015 à 10:28
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
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
hatusu
Messages postés
54
Date d'inscription
vendredi 12 août 2011
Statut
Membre
Dernière intervention
31 juillet 2019
8 févr. 2015 à 10:32
8 févr. 2015 à 10:32
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 ?
Est-ce un "comportement" normal ?
eriiic
Messages postés
24600
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
21 octobre 2024
7 239
8 févr. 2015 à 14:31
8 févr. 2015 à 14:31
Bonjour,
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
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
hatusu
Messages postés
54
Date d'inscription
vendredi 12 août 2011
Statut
Membre
Dernière intervention
31 juillet 2019
8 févr. 2015 à 15:46
8 févr. 2015 à 15:46
Bonjour Eric
Merci pour ton explication. Nous ferons donc F9.
Merci pour ton explication. Nous ferons donc F9.