Petit soucis avec la fonction CompteCouleurFond2()

[fredsauv]

Bonjour,
Voici mon soucis, lorsque j'utilise la fonction bien connue CompteCouleurFond2(), en mettant dans la partie "Range" un lien vers un autre fichier excel, j'obtiens un joli #VALEUR# lorsque fichier_tableau.xls est fermé.

petit exemple:

Dans la case A1 je mets la cellule en Rouge
Dans la case A2 je mets =CompteCouleurFond2('[fichier_tableau.xls]feuil1'!$I$13:$R$200;A1)

Pour mémo le code de la fonction:
Function CompteCouleurFond2(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond2 = temp
End Function



Merci.

 

[fredsauv]

Re : Petit soucis avec la fonction CompteCouleurFond2()

la question est comment faire pour plus avoir ce #VALEUR# lorsque fichier_tableau.xls est fermé, et que le calcule se fasse corrrectement ???????

 

[phlaurent55]

Re : Petit soucis avec la fonction CompteCouleurFond2()

Bonjour fredsauv

essaie de gérer avec l'instruction On Error

à+
Philippe

 

[Compte Supprimé 979]

Re : Petit soucis avec la fonction CompteCouleurFond2()

Bonsoir,

Cette fonction ne peut pas fonctionner avec un fichier fermer

A+

 

[fredsauv]

Re : Petit soucis avec la fonction CompteCouleurFond2()

Merci beaucoup.
Je vais faire autrement du coup.