Super-forcer le calcul

Bonjour,

Je viens de créer une fonction en VBA qui me permet d'obtenir des renseignements auxquels n'accèdent pas les fonctions classiques de feuille de calcul.
C'est une fonction toute simple qui permet d'obtenir l'index de la couleur de fond d'une cellule :

Code:

---

1 2 3

Function Coul(YYY1 As Range) As Long Coul = YYY1.Interior.ColorIndex End Function

---

Quand on la tape, elle marche bien et donne effectivement la couleur de la cellule cible.

Le problème, c'est que lorsqu'on modifie la couleur de la cellule cible, le résultat ne se remet pas à jour, comme si Excel considérait cette modification insuffisante pour mettre à jour la formule.
Pourtant, je suis en recalcul automatique.

Par contre, si j'édite la cellule (celle où se trouve la cellule ou la cellule cible) et que je la valide sans rien changer, le résultat est actualisé.
Le problème est qu'il y a quelques centaines de ces formules qui pointent vers autant de cellules. Je ne peux donc pas, à chaque fois, demander une mise à jour ainsi.

J'ai essayé de l'activer par un évènement sur WorkSheet.

Code:

---

1 2 3

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

---

Le Calculate est bien lancé chaque fois que je change de sélection mais il ne remets pas à jour les résultats de ma formule.

Du coup, je suis à court d'idées. :(

Connaissez-vous une méthode pour faire une sorte de super-calculate qui force réellement toutes les cellules (ou des cellules sélectionnées) à se recalculer (même pour celle que Excel estime que ce n'est pas nécessaire) ?

Merci d'avance.

Bonjour Loïc,

si c'est bien une fonction personnalisée, tenter avec la méthode Volatile …


__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Génial !!! :D

Ca résout 99% du problème.
Maintenant, il suffit de valider une seule cellule, n'importe laquelle, pour que tous les résultats se remettent à jour.
Ca devient nettement plus simple à utiliser.

Merci Beaucoup :merci:

En couplant cette méthode avec mon SelectionChange, ça résout le 1% restant : le calculate qu'il contient actionne les fonctions volatiles.

Ca faisait un bout de temps que je coinçais là-dessus.
HEUREUX !:yaisse2:

Le hic avec cette méthode lorsque l'on abuse de fonctions personnalisées dans les cellules
est un ralentissement sensible lors d'un calcul d'une cellule même ne l'utilisant pas
comme c'est du reste notifié dans l'aide …

Mon tableau ayant très peu de calculs et seulement quelques centaines de ligne, je ne pense pas que ça posera un problème.
Je verrais à l'usage.