Compter nb de celluled dont les caracteres sont d'une couleur par MFC

Question

J'ai crée un fichier exercices de multiplication chaque cellule change de couleur si c'est juste ou faux par MFC vert = juste rouge = faux je souhaite que la correction se fasse automatiquement dans une cellule je souhaite compter le nombre de cases justes dans une autre le nombre de cases fausses afin d'avoir un résultat a la fin Je joins mon fichier (voir feuille : EXERCICES) j'ai essayé en créant un module trouver sur le net (cumul_couleur=(plage;cellule avec la couleur de caractere)) mais cela n'a pas fonctionné Public Function cumul_couleur(plage As Range, col As Range) as long Dim elm As range Application.Volatile cumul_couleur = 0 For Each elm In plage If elm.Font.ColorIndex = col.Font.ColorIndex and elm=col Then cumul_couleur = cumul_couleur + 1 End If Next elm End Function Je vous remercie pour votre aide...

gmb · Answer

Un essai à tester. Te convient-il ? Bye ...

Ausecour · Answer

Eventuellement, sans passer par des macros, je te propose cette solution: EDIT: hello gmb...

thev · Answer

La fonction est complexe car elle doit évaluer les conditions du format conditionnel car on ne peut pas tester la couleur des cellules...

Ausecour · Answer

Tout à fait, on peut accéder à la propriété Range.DisplayFormat.Interior.Color avec un programme Sub, mais une fonction personnalisée ne peut malheureusement pas y accéder...

J'avais fait un sommeprod qui prenait tout au départ, mais ça me faisait des erreurs à cause du texte...

thev · Answer

Ci-jointe une proposition avec une fonction adaptée au format conditionnel...

Ausecour · Answer

Bonjour, Content que tu aies trouvé une solution, as-tu quand même regardé celles que l'on te proposait? J'avais trouvé quelque chose d'un peu équivalent à ta solution mais qui demandais de moins remplir ta feuille...

Ausecour · Answer

Re, ça marche, bon courage...