Compteur case de couleur si les MCF sont fausses
bonjour à tous,
j'ai très peu de connaissances en vba. je fais actuellement un planning pour la gestion de personnels.
à la fin de chaque ligne des personnels je fais par activités la somme suivant la couleur allouée dans les cases journalière.
de plus j'ai mis une MFC pour faire ressortir:
les jour férié:
=NB.SI(jours_fériés;X$9)>0
les week-end:
=JOURSEM(X$9;2)>5
pour compter le nombre de cellule de même couleur j'utilise le code:
Function SommeCouleurFond(champ As Range, Fond As Range)
Application.Volatile
Dim C, temp
temp = 0
For Each C In champ
If C.Interior.ColorIndex = Fond.Interior.ColorIndex Then
temp = temp + 1
End If
Next C
SommeCouleurFond = temp
End Function
ce compteur compte toutes les cases de même couleur mais ne prend pas en compte les mcf.
je souhaiterais compter que les jours ouvrés.
j'aimerais rajouter dans ce code deux conditions:
si la case ne répond pas aux deux MCF:
- week-end
- jours-férié
je cherche désesperement une solution.
je vous remercie d'avance pour vos réponses.
jérôme
Bonjour,
on peut faire les comptes sans VBA si tu veux.
@ + +
bonjour R@chid,
merci pour cette réponse
je veux bien toutes les solutions du moment que cela fonctionne
tu proposes quoi comme pistes de réflexion.
merci d'avance
jérôme
re,
merci pour le fichier, je regarde
je te tiens au courant
encore merci
re,
j'ai regardé le fichier que tu m'as transmis (R@chid) , mais hélas je ne vois pas comment je peux l'adapter ( trop peut de connaissances
je vais essayer de vous envoyer un fichier afin que les spécialistes cernent mieux le problème .
merci d'avance à tous ceux qui se pencheront sur mon problème.
merci
re bonjour à tous,
voici un fichier pour illustrer ma demande.
néanmoins en allant vite, cet exemple illustre mal mon propos car l'actualisation de la feuille "janvier" ne se fait comme je le souhaite et par conséquence affiche #valeur dans la case CP.
dans l'exemple seule la cellule AH6 appel la macro VBA (SommeCouleurFond2)
mon problème repose sur le fait que je souhaite calculer le nombre de jours ouvrés restants lorsque l'on enlève X activités.
cependant ces activités peuvent être remplis les week-end ou les jours fériés.
A partir du planning (récupéré en source ouverte sur le net, je tiens à dire un grand merci
le problème vient du faite que le week-end et jours féries sont mis en relief via des MFC et donc non pris en compte par le compteur des couleur de fond des cellule (VBA) cellule AH6.
je pensais mettre deux conditions (IF) dans la macro VBA (SommeCouleurFond2) reprenant les MFC mais je n'arrive pas à la mettre en formulation.
cependant:
je suis ouvert à toutes autres propositions.
d'avance merci à tous
Re,
en AH6 :
=SOMMEPROD(NB.SI(AH$5;$C6:$AG6)*(JOURSEM($C$5:$AG$5;2)<7)*(NB.SI(jours_fériés;$C$5:$AG$5)=0))@ tirer vers le bas et vers la droite
@ + +