Planning absences

[Marc_du_78]

Bonsoir le Forum,

J'ai de nouveau besoin d'aide suite à d'importants changements dans le planning d'origine pour compter les couleurs, car je ne sais pas modifier le code.
D'autre part, est-il possible de faire appraître un message pour faire patienter pendant la phase de déroulement du calcul ?

Je vous remercie de m'aider à résoudre ces problèmes. [file name=GestionDesAbsences2.zip size=41530]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/GestionDesAbsences2.zip[/file]

 

[Bebere]

bonjour Marc,le Forum
comment était-il ton fichier avant
pour faire des modifications il faudrait savoir ce que tu as fait comme changement
à bientôt

 

[Marc_du_78]

Bonjour Bebere, le Forum,

Merci Bebere de te pencher sur le problème. Je te joints le fichier avant modifs, comme tu le verras il y a maintenant une colonne matinée et après midi en plus par jour.

[file name=GestionDesAbsences_20051119133109.zip size=36736]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/GestionDesAbsences_20051119133109.zip[/file]

 

[Bebere]

rebonjour Marc
j'espère avoir compris la demande
à bientôt [file name=GestionDesAbsences2_20051119140618.zip size=39331]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/GestionDesAbsences2_20051119140618.zip[/file]

 

[Marc_du_78]

Je te remercie encore Bebere, mais apparamment ce n'est pas ca.
Je t'e rejoint le fichier modifié avec explications

 

[Marc_du_78]

et le fichier origine [file name=GestionAbsencesOrigine.zip size=38755]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/GestionAbsencesOrigine.zip[/file]

 

[Excel_lent]

Bonsoir Marc, Bebere ,
bonsoir à tous,

Ton sujet m'a intéressé. Je ne suis pas assez doué pour trouver l'erreur dans ta formule.
En la testant morceau par morceau elle fonctionne. Je reprendrai cela plus tard.

J'ai préféré étudier la question en changeant certaines idées.
Je ne sais pas si cela va influer sur le reste mais je soumets ces transformations.
Est-ce une solution à ton problème ?
Tiens moi au courant.

Cordialement et
bonne soirée à tous
[file name=couleurs_20051119180256.zip size=39949]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/couleurs_20051119180256.zip[/file]

 

[Excel_lent]

Re,

Excuse moi, j'ai joint un fichier de recherche. Celui là est à jour [file name=couleurs2.zip size=41014]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/couleurs2.zip[/file]

 

[Marc_du_78]

Bonsoir Excel_lent, le Forum,

Ce serait presque ce que je cherche si ce n'est que l'on saisi le code couleur dans le premier tableau en fonction du type d'absence et les codes sont ensuite comptabilisés dans la partie droite de la feuille (cette partie n'étant pas accessible pour la personne qui renseigne le tableau, mais seulement par le 'grand patron' qui surveille ses sujets
Le message d'attente est très bien.
Merci à toi, en te souhaitant une bonne soirée et un bon week end.

 

[Marc_du_78]

Bonjour le Forum,

Serais-ce de l'utopie ?
Je compte beaucoup sur votre aide, aussi, je vous en remercie.

 

[Bebere]

bonjour Marc,Excel_lent
j'ai le fichier d'origine et l'autre(Je te rejoint le fichier modifié avec explications)
sur ceux d'Excel_lent rien non plus
à bientôt

 

[Marc_du_78]

Fichier modifié avec mes excuses, sans oublier de vous remercier [file name=GestionDesAbsencesModifie.zip size=39103]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/GestionDesAbsencesModifie.zip[/file]

 

[Marc_du_78]

Fichier origine [file name=GestionAbsencesOrigine_20051120145720.zip size=38755]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/GestionAbsencesOrigine_20051120145720.zip[/file]

 

[Marc_du_78]

Bonjour ami(e)s du Forum

Ma question est : Suite aux modifications du tableau origine, comment modifier cette macro pour l'adapter au présent tableau modifié (compter par couleurs et positions identiques) dans la partie droite, non accessible pour l'utilisateur lamda ?

'Code fourni par Charly2

Sub CompteCoul()
Dim x As Byte, y As Byte, z As Byte, v As Byte, derl As Byte 'déclare les variables x, y, z,v et l
derl = Range('C65536').End(xlUp).Row
For x = 11 To derl 'boucle de ligne && jusque derl)
For y = 35 To 63 ' boucle sur les 29 couleurs (Tab réf AI9 à BN9) Origine For x = 1 To 80
v = 0 'définit la variable v

For z = 4 To 65 'boucle sur les 31 cellules (de la colonne D à la colonne AH) Origine : For z = 4 To 34
'condition: si la cellule à la même couleur de motif que celle mentionné
'dans le tableau de référence, alors redéfinit la variable v : v = v+1

'La ligne ci-dessou 'coince' mais j'ognore si le corrections ci-dessus sont exactes.

If Cells(x, z).Interior.ColorIndex = CInt(Right(Cells(9, y), Len(Cells(9, y).Value) - 1)) Then v = v + 1

Next z 'prochaine cellule
'affiche le nombre dans le tableu de références
If v <> 0 Then Cells(x + 9, y).Value = v
Next y 'prochaine couleur de référence
Next x 'prochaine ligne
End Sub

En vous remerçiant infiniment par avance. Marc_du_78

 

[Bebere]

bonsoir Marc
cette fois c'est la bonne
à bientôt [file name=GestionDesAbsences2_20051120235840.zip size=40096]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/GestionDesAbsences2_20051120235840.zip[/file]