Discussion :

[youssef1801]

Bonjour,
j'aimerai bien savoir comment je peux actualisé une formule fait par le VB.
lorsque je réouvre le fichier, sur la cellule ou j'ai fait la formule me donne comme suit: #NOM?

[Invité]

Bonjour

Peux-tu nous montrer la fonction, mais après avoir testé cette instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Volatile

Celle là est à mettre sur la première ligne de ta fonction, si cela résoud le problème tant mieux, sinon la fonction et contrôle le calcul automatique dans les options d'Excel.

Philippe

[youssef1801]

Voici la fonction utulisé
et j'ai rajouté ce que tu m'a dis mais sans resultat.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function NBCOLOR(Cible As Range, oRef As Range) As Long
Dim o, i%, k%
Application.Volatile
k = oRef.Interior.ColorIndex
For Each o In Cible
If o.Interior.ColorIndex = k Then i = i + 1
Next
NBCOLOR = i
End Function

[gFZT82]

Bonjour,

As-tu placé le code dans un module standard ?

Cordialement.

[youssef1801]

j'ai pas bien compris le module standard

[gFZT82]

Si j’ai bien compris, tu as créé une fonction personnelle que tu utilises en inscrivant la formule dans une cellule = NBCOLOR(Cible ; oRef)

Ton code doit être placé dans un module standard si tu veux utiliser la fonction dans une formule de la feuille de calcul.

Je joints un fichier exemple.
Tu trouveras la macro sous Modules->Module 1
Dans la feuille 1, j’ai inscris la formule en C1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

= NBCOLOR(A1:A20; B1)

Lorsque tu changes la couleur de remplissage de la cellule B1 suivant la palette A1:A20, et que tu appuies sur F9, tu obtiens bien le nombre total de cellules qui ont cette couleur.

Cordialement.