OVH Cloud OVH Cloud

Formule personnalisée

3 réponses
Avatar
cbr
Bonjour,
1- J'ai cr=E9=E9 une fonction sous EXCEL 97 qui fait la somme=20
des cellules d'une couleur d=E9finie.
2- Cette fonction doit normalement se recalculer chaque=20
fois que l'on modifie une cellule.=20
Or lorsqu'on modifie le format, ce recalcul ne s'effectue=20
pas.=20
Par exemple ma fonction totalise toutes les cellules d'une=20
s=E9lection avec un fond jaune.=20
Si je rajoute un fond jaune =E0 une cellule, le calcul ne se=20
fait pas. Pour ce faire, il faut que je modifie une=20
cellule.
Y-a t-il une fa=E7on pour contourner le probl=E8me ?

Merci

3 réponses

Avatar
Vincent.
Bonjour !
Peut-être que la solution passe par un événement Change
(du style, si la couleur de ma cellule est changée alors
application.calculate, sinon, rien).
C'est une idée en passant, je ne sais pas ce que ça vaut...


-----Message d'origine-----
Bonjour,
1- J'ai créé une fonction sous EXCEL 97 qui fait la somme
des cellules d'une couleur définie.
2- Cette fonction doit normalement se recalculer chaque
fois que l'on modifie une cellule.
Or lorsqu'on modifie le format, ce recalcul ne
s'effectue

pas.
Par exemple ma fonction totalise toutes les cellules
d'une

sélection avec un fond jaune.
Si je rajoute un fond jaune à une cellule, le calcul ne
se

fait pas. Pour ce faire, il faut que je modifie une
cellule.
Y-a t-il une façon pour contourner le problème ?

Merci
.



Avatar
AV
Or lorsqu'on modifie le format, ce recalcul ne s'effectue pas.


Et oui .... le changement de format n'entraine pas de recalcul !
Solution : F9
Ou dans le module de la feuille (recalcul au changement de sélection) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

AV

Avatar
cbr
Merci, je vais essayer cela.

-----Message d'origine-----
Or lorsqu'on modifie le format, ce recalcul ne
s'effectue pas.



Et oui .... le changement de format n'entraine pas de
recalcul !

Solution : F9
Ou dans le module de la feuille (recalcul au changement
de sélection) :


Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

Calculate
End Sub

AV


.