Discussion :

[QuestVba]

Hello FORUM,
Une petite question pour mon gros problème. Quoique.

Mon point de départ : j'ai une feuille sur laquelle j'ai un calendrier mensuel reprenant les absences des agents. Certains colonnes ont des MFC (Jours WE, Jours Ponts, Jours Fériés, Jours Clôture). Cela fonctionne bien.


J'ai une seconde feuille sur laquelle j'ai les données brutes d'absences sur 4 colonnes :

• Agent
• Jour d'absence
• Période d'absence : AM ou PM
• Type d'absence

Vous me voyez venir avec mes gros sabots. Le but est de rapatrier les données selon :

• Si rien n'est mentionné, la case reste vide
• Si une absence est renseignée seulement AM, alors j'ai le type d'absence avec un "/" après
• Si une absence est renseignée seulement PM, alors j'ai le type d'absence avec un "/" avant
• Si l'absence du AM et du PM sont identiques, alors une seule données reprise
• Si l'absence du AM et du PM sont différentes, alors les deux sont reprises séparées par un "/"

J'ai commencé MAIS LE CHEMIN N'EST PEUT-ETRE PAS LE BON.

Exemple : Si absence uniquement le matin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

{=SI(ET(ESTNA(RECHERCHEV(G2&H2&"AM";SI({1.0};A2:A7&B2:B7&C2:C7;D2:D7);2;FAUX))=FAUX;ESTNA(RECHERCHEV(G2&H2&"PM";SI({1.0};A2:A7&B2:B7&C2:C7;D2:D7);2;FAUX))=VRAI);RECHERCHEV(G2&H2&"AM";SI({1.0};A2:A7&B2:B7&C2:C7;D2:D7);2;FAUX)&"/";"")}

Je pense que je vais vite me trouver face à un mur. Donc, si vous avez des idées, elles sont les bienvenues...

[ARTURO83]

Bonjour,
Voici une formule qui marche mais tellement gourmande en ressource qu'il vaut mieux vite l'abandonner au profit du Vba, valable uniquement pour le plaisir de s'amuser un peu.
Formule en B6, à valider avec CTRL + SHIFT + ENTREE , et à tirer vers la droite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SIERREUR(SI(ET(SI(ESTNA(EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));"";EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0))>0;SIERREUR(EQUIV($A6&B$3;INDIRECT("Feuil2!A"&SI(ESTNA(EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));"";EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0))+1&":A1000")&INDIRECT("Feuil2!B"&SI(ESTNA(EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));"";EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0))+1&":B1000");0)+SI(ESTNA(EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));"";EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));0)>0);SI(INDIRECT("Feuil2!D"&SIERREUR(EQUIV($A6&B$3;INDIRECT("Feuil2!A"&SI(ESTNA(EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));"";EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0))+1&":A1000")&INDIRECT("Feuil2!B"&SI(ESTNA(EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));"";EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0))+1&":B1000");0)+SI(ESTNA(EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));"";EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));0))<>INDIRECT("Feuil2!D"&SI(ESTNA(EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));"";EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0)));INDIRECT("Feuil2!D"&SI(ESTNA(EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));"";EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0)))&"/"&INDIRECT("Feuil2!D"&SIERREUR(EQUIV($A6&B$3;INDIRECT("Feuil2!A"&SI(ESTNA(EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));"";EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0))+1&":A1000")&INDIRECT("Feuil2!B"&SI(ESTNA(EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));"";EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0))+1&":B1000");0)+SI(ESTNA(EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));"";EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));0));INDIRECT("Feuil2!D"&SI(ESTNA(EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));"";EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0))));SI(INDIRECT("Feuil2!C"&SI(ESTNA(EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));"";EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0)))="AM";INDIRECT("Feuil2!D"&SI(ESTNA(EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));"";EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0)))&"/";"/"& INDIRECT("Feuil2!D"&SI(ESTNA(EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0));"";EQUIV($A6&B$3;Feuil2!$A:$A&Feuil2!$B:$B;0)))));"")

Avec le fichier
Pièce jointe 452308

Cdlt

[QuestVba]

Salut, ARTURO83 !
Un grand merci pour cette proposition. Je plusse !
On en arrive à la même conclusion : VBA.

[papouclo]

Bonjour,
J'ai considéré que dans le calendrier mensuel de la première feuille, les lignes 2, 3 et 4 contiennent toutes les trois des dates avec des formats différents (jjj , j , mmm). Si ce n'est pas le cas, les formules écrites seraient à modifier en conséquence. J'ai d'autre part déclaré la plage d'absences de la feuille 2 comme un tableau structuré nommé t_absences.

En se plaçant dans la cellule B6, définir le nom repere (ou autre bien sûr) par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=EQUIV(Feuil1!$A6&Feuil1!B$3;t_absences[QUI]&t_absences[DATE];0)

Dans toute cellule du calendrier, repere indique la ligne du tableau t_absences où se trouvent éventuellement la période et le motif de l'absence de l'agent donné pour le jour donné.

Ecrire alors dans le calendrier mensuel en B6 la formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CHOISIR(NB.SI.ENS(t_absences[QUI];$A6;t_absences[DATE];B$3)+1;"";SI(INDEX(t_absences[QUAND];repere)="AM";INDEX(t_absences[QUOI];repere)&"/";"/"&INDEX(t_absences[QUOI];repere));SI(INDEX(t_absences[QUOI];repere)=INDEX(t_absences[QUOI];repere+1);INDEX(t_absences[QUOI];repere);INDEX(t_absences[QUOI];repere)&"/"&INDEX(t_absences[QUOI];repere+1)))

Copier cette formule et la coller dans les autres cellules du calendrier mensuel.
Cordialement
Claude

[QuestVba]

Alors là, papouclo !
De toute beauté !