Formule comptecouleurfond et planning

Fermé
vieta Messages postés 90 Date d'inscription mercredi 26 janvier 2011 Statut Membre Dernière intervention 22 février 2017 - 1 févr. 2017 à 14:30
vieta Messages postés 90 Date d'inscription mercredi 26 janvier 2011 Statut Membre Dernière intervention 22 février 2017 - 22 févr. 2017 à 12:16
Bonjour,

Je suis a la recherche pour mon travail, de compteur le nombre de jour travailler d'un employé, j'ai comme contrainte obligatoire d'utiliser la formule (comptecouleurfond) pour connaître les jours de présence, et rapporter tous cela en date du jour.

En gros a savoir des que j'ouvre mon planning avoir pour chaque employé le nombre de jour travaillé depuis le début de l'année, mois etc....

Merci encore de votre aide

Cordialement



A voir également:

17 réponses

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
2 févr. 2017 à 16:56
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

1
DjiDji59430 Messages postés 4035 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 24 avril 2024 646
1 févr. 2017 à 15:40
Bonjour,

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

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

Crdmt
0
vieta Messages postés 90 Date d'inscription mercredi 26 janvier 2011 Statut Membre Dernière intervention 22 février 2017 3
2 févr. 2017 à 16:33
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
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 2/02/2017 à 16:44
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.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
vieta Messages postés 90 Date d'inscription mercredi 26 janvier 2011 Statut Membre Dernière intervention 22 février 2017 3
Modifié par vieta le 2/02/2017 à 16:58
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

_
0
vieta Messages postés 90 Date d'inscription mercredi 26 janvier 2011 Statut Membre Dernière intervention 22 février 2017 3
3 févr. 2017 à 09:37
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
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 3/02/2017 à 10:13
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.
0
vieta Messages postés 90 Date d'inscription mercredi 26 janvier 2011 Statut Membre Dernière intervention 22 février 2017 3
Modifié par vieta le 3/02/2017 à 10:57
alors je veux compte les grises , le gris de reference ce trouve dans la case D11

VBA un peu voir tres limite.
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 3/02/2017 à 11:34
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.
0
vieta Messages postés 90 Date d'inscription mercredi 26 janvier 2011 Statut Membre Dernière intervention 22 février 2017 3
Modifié par vieta le 3/02/2017 à 12:43
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....
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
3 févr. 2017 à 12:43
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é
0
vieta Messages postés 90 Date d'inscription mercredi 26 janvier 2011 Statut Membre Dernière intervention 22 février 2017 3
Modifié par vieta le 3/02/2017 à 12:50
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
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
3 févr. 2017 à 13:01
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
0
vieta Messages postés 90 Date d'inscription mercredi 26 janvier 2011 Statut Membre Dernière intervention 22 février 2017 3
3 févr. 2017 à 13:30
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
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
3 févr. 2017 à 13:33
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
0
vieta Messages postés 90 Date d'inscription mercredi 26 janvier 2011 Statut Membre Dernière intervention 22 février 2017 3
3 févr. 2017 à 14:07
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
0
vieta Messages postés 90 Date d'inscription mercredi 26 janvier 2011 Statut Membre Dernière intervention 22 février 2017 3
22 févr. 2017 à 12:16
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
0