Compter cellules de couleur

Bonjour,

J'aurais besoin d'aide par rapport à un fichier dans lequel je dois compter le nombre de cellules de couleur rose et de couleur jaune

J'ai un fichier qui excel "test" et un autre fichier excel qui s'appelle "informations"

Le fichier test doit compter le nombre de cellule de couleur jaune et le nombre de cellules de couleur rose qu'il récupère dans le fichier "informations"

Cependant tout fonctionne lorsque mon fichier excel "informations" est ouvert ça me mets bien le nombre de cellules de couleurs jaune et de couleurs rose dans mon fichier "test" mais lorsque mon fichier "informations" est fermé j'obtiens l'erreur "#Valeur!"

Donc j'en conclus que le fichier information doit tout le temps être ouvert

Ainsi je voudrai savoir quel est la solution pour que mon fichier test fonctionne sans que le fichier "informations" soit ouvert constamment.

Voici mon code :

Function CountCcolor (range_data As Range, criteria As Range) As Long

Dim datax As Range

Dim xcolor As Long

xcolor = criteria.Interior.ColorIndex

For Each datax In range_data

If datax.Interrior.ColorIndex = xcolor Then

CountCcolor = CountCcolor + 1

End If

Next datax

End function

Salut,

Avec le code ci-dessous, tu peux ouvrir d’une manière invisible à l’écran le fichier ‘informations.xlsx’ placé au bout du chemin ‘C:\Users\lacy\Documents\’ et le refermer tout à la fin de la macro.

Sub Macro1()
    Application.ScreenUpdating = False
    Workbooks.Open Filename:="C:\Users\lacy\Documents\informations.xlsx"

    ' appel d'autres macros ou fonctions

    Windows("informations.xlsx").Close
End Sub

A voir comment tu pourras appeler ta fonction au milieu de ce code. Sans avoir tes fichiers à disposition, je ne peux malheureusement pas chercher de solution, la simulation des fichiers nécessaires à cela était quand même assez compliquée alors que tu les as sous la main.

Cordialement.

Oki merci pour votre aide

Je peux vous faire parvenir les fichier ce soir car actuellement je suis sur mon mobile et je n'ai pas de moyen de connexion actuellement pour vous envoyer les fichiers qui sont sur mon PC

Mais encore merci pour votre aide et je vais essayé de chercher de mon côté

J'ai pris ton code Yvouille et cela fonctionne

Donc je te remercie

Par contre si vous avez une fonction il faut la mettre après votre Sub et non à l'intérieur du Sub car j'ai essayé au départ de mettre ma fonction dans la macro et Ca ne marchait pas mais en la mettant à l'extérieur le problème a été résolu donc voilà