Formule comptecouleurfond et planning

Re,

crée un exemple de fichier anonymisé avec quelques explications contenant ton code et poste le rapidement je dois m'absenter une semaine
1) Clic sur ce lien http://www.cjoint.com/_2) Clic sur le bouton Parcourir pour sélectionner ton fichier
3) Clic sur le bouton Créer le lien en bas de la page
4) Au bout de quelques secondes en haut de la page en bleu souligné un lien sera généré, tu le sélectionnes et tu le copies dans une réponse

Bonjour,

"j'ai comme contrainte obligatoire d'utiliser la formule (comptecouleurfond)"

Elle vient d’où, cette formule ?
Et pourquoi cette contrainte ??

Crdmt

En faite cette formule me sert a compter les cases de couleurs qui correspondent au jours de présence de l'agent.

c'est une formule qui compte les fond des cases selon un case de référence

=comptecouleurfond2($DX13:$FB13;$D$12)

D12 etant la case de referance couleur, et DX13 a FB13 le planning avec les cases de toute les couleurs.

En fait je voudrai utiliser cette formule mais pouvoir arreter le comptage des cases en date du jour

Bonsoir,

Cette formule ou syntaxe n'existe pas, il s'agit certainement d'un code VBA Fonction personnalisée créée dans un module du Visual Basic d'Excel.
Si tu as quelques notions en VBA on peut voir

comment son colorisé tes cellules, manuellement ou avec une mise en forme conditionnelle !
A+
Mike-31

Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.

J'ai de petit base en vba.

Les cellules sont colorisées via un export de planning RH

voila une capture d'ecran comment ce presente le planning, a savoir que la il y a que des case verte en plus des grises, mais qu'il peut y avoir des bleu et des jaunes

_

Bonjour Mike-31

Voici le fichier

merci pour ton aide

la formule comptecouleurfond2 est avec une base vba effectivement

https://www.cjoint.com/c/GBdiJZbWsIr

Re,

alors il va falloir faire vite parce qu'à partir de cet après midi je serais absent

sur ton tableau tu as un mélange de couleurs gris clair, gris foncé, vert, bleu, jaune, noir etc ... quelle couleur veux tu compter

PS: As tu quelques notion en VBA
A+
Mike-31

Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.

alors je veux compte les grises , le gris de reference ce trouve dans la case D11

VBA un peu voir tres limite.

Re,

alors tu vas essayer de faire seul et si tu n'y arrives pas avant que je parte, je te retournerais ton fichier

clic droit sur l'onglet de ta feuille/Visualiser le code/Insertion/Module ce qui va créer un module et dans lequel tu vas coller ce code

Option Explicit

Function comptecouleurfond2(Plage As Range, Coul As Range) As Long
Dim M, i%, k%
Application.Volatile
k = Coul.Interior.ColorIndex
For Each M In Plage
If M.Interior.ColorIndex = k Then i = i + 1
Next
comptecouleurfond2 = i
End Function

ensuite si tu veux accélérer la procédure tu peux coller dans les propriétés de ta feuille ce code
clic droit sur l'onglet de ta feuille/Visualiser le code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

et clic sur ta touche F9 pour que le code soit pris en compte
A+
Mike-31

Pas savoir n'est pas un échec, l'échec est le refus d'apprendre.

J'ai dut faire une fausse manip et j'ai perdu tout mon ancien VBA.

et quand je veut le remettre j'ai une alerte

Nom Ambigu detecte: comptecouleurfond2

je suis dans la M....

Re,

sur le fichier que tu as joint il n'y a rien mais peu importe tu fais ce que j'ai écrit dans mon post 9 mais fait vite mon compte à rebours est enclenché

toujours pareil

avant avoir rajouter les modules que tu me dit, j'en avait deja et je pense que je les ai supprimer sans faire gaffe, et maintenant en rajoutant les tiens j'ai toujours le meme message d'erreur

Re,

si tu as
Nom Ambigu detecte: comptecouleurfond2 c'est que tu as un autre code intitulé de la même façon ce qui n'est pas permis il faut supprimer l'ancien.

Dans la précipitation j'ai oublié de te dire que tu devais également enregistrer ton fichier sous et lui donner l'extension .XLS ou .xlsm

je te retourne le fichier mais essaye de faire par toi même avant de l'ouvrir
https://www.cjoint.com/c/GBdl43LLchj

Par contre je viens de m'appercevoir, qu'une autre feuille du casser ou il y avait un lien avec un tcd, ne marche pas non plus, toute mes formules sont marquée, mais affiche des msg d'erreur au lien du chiffre normal

Re,

Excuse moi mais là je n'ai plus le temps de traiter d'autres problèmes, j'espère que quelqu'un de forum pourra prendre la suite

ok, bon de toute façon, j'ai preferer reprendre une ancienne version de mon doc, par contre je ne comprend pas dans ton VBA ou est ce que la date du jour compte, ou alors ou est ce que je doit la mettre pour que me calcul le nombre de jour travaille par rapport a la date du jour.

Encore merci pour ton aide

Bonjour, je reviens vers vous car je n'arrive toujours pas a trouver une solution.

J'ai récupérer donc mon ancien fichier, mais impossible de régler ce problème merci par avance de votre aide