[XL-2007] actualisation d'une formule faite en VBA

[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?

[Philippe JOCHMANS]

Bonjour

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

Code :

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 :

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 :

= 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.

[youssef1801]

Merci pour le fichier, c'est ce que je cherche exactement mais le calcule ne se fait pas même dans votre fichier. On plus c'est ce qhe je fait exactement mais sans résultat.

[Jean-Pierre49]

Bonjour youssef,

Vérifie que tu est bien en calcul Automatique
il est possible que ce soit cocher "sur ordre"

Outils>option>onglet: Calcul (avec Execl 2003)
je n'ai pas 2007

Tu dis

Bon courage

[youssef1801]

oui je suis en calcul automatique. Merci de m'aider resoudre ce problème.

[Jean-Pierre49]

Je te demandais ça parce le fichier envoyé par gFZT82 fonctionne chez moi
(le calcul est instantané)

nota: je suis sur 2003

il y a peut être autre chose a cocher avec 2007..


Bon courage

[youssef1801]

j'arrive pas à trouver d'ou vient le problème. Pour le calcule automatique, il est activé.

[AlainTech]

Bonjour,

Pour ma part, j'aurais écrit

Code :

1
2
3
4
Dim o As Range, i%, k%
Application.Volatile
k = oRef.Interior.ColorIndex
For Each o In Cible.Cells