Microsoft 365 Excel-VBA - Problème de bouche trop longue

[yannos12]

Bonjour,
J'ai un problème dans la gestion de mon fichier "vacances".
Le problème est un problème de lenteur de calcul dû à des boucles dans mon VBA qui contraignent le tout.
Je n'arrive pas à penser à une autre solution donc je fais appel à votre génie ;-)
Je ne peux pas partager mon fichier donc je vais essayer d'être assez clair dans mes explications.
J'ai une liste de 50 employés qui ont droit à 6 semaines de vacances.
Chaque employé peut définir 3 semaines de vacances prioritaires et 3 autres.

J'enregistre aujourd'hui dans un onglet 1 des numéros de semaine en face de chaque nom

Nom/Initiales	Prio 1	Prio 2	Prio 2	Autres 1	Autres 2	Autres 3
AS	1	37	51	12	35	52
AF	2	5	35	36	23	51

Ensuite je compile tout cela dans un autre onglet sur un calendrier lineaire ou j'empile les noms sous les numeros de semaine.

Numero Sem	1	2	...	34	35	36	...	51	52
					AS			AF
	AS	AF			AF	AF		AS	AS

Donc dans mon vba, je passe donc ligne par ligne, les 3 colonnes prioritaires pour empiler les demandes prioritaires puis je refais la même chose pour les autres.

Bref cela fonctionne mais c'est lourd.
Une idée pour alléger cela?

D'avance merci ;-)

 

[yannos12]

J'ai retrouvé mon fichier initial de travail (2018).
Forcément maintenant il fait plus de 4MB car il comporte beaucoup plus de données.
Mais on voit déjà ici la "lenteur" de mon excercire de "trier vacances" sur l'onglet "Annuel"

Peut être que ce sera ainsi plus parlant.

 

[cp4]

J'ai retrouvé mon fichier initial de travail (2018).
Forcément maintenant il fait plus de 4MB car il comporte beaucoup plus de données.
Mais on voit déjà ici la "lenteur" de mon excercire de "trier vacances" sur l'onglet "Annuel"

Peut être que ce sera ainsi plus parlant.

Bonsoir,

@yannos12: Tu as constaté que ton code rame. Pourquoi veux-tu nous infliger la même corvée?
Explique-nous ce que tu veux obtenir.

 

[yannos12]

Bonsoir,

@yannos12: Tu as constaté que ton code rame. Pourquoi veux-tu nous infliger la même corvée?
Explique-nous ce que tu veux obtenir.

Je ne vous inflige rien ;-)
J'aimerais juste savoir/connaitre/apprendre si il y a un autre moyen de traiter ma problématique.
En gros je sais que les boucles ne sont pas réputées pour économiser du temps mais je ne sais pas comment faire autrement.
Et on est d'accord que mon fichier fonctionne, c'est juste la lenteur qui est problématique.

 

[vgendron]

Bonsoir

de quelle macro parle t on??
celle que tu as posté en début n'apparait pas dans ton fichier...
et comme indiqué: il faudrait déjà expliquer ce qu'est censé faire la macro
je vois des whiles imbriqués...
travailler sur un tablo vba est surement plus indiqué que directement sur la feuille

en attente de plus de renseignements

je viens de voir que la feuille "Jumbo" n'existe pas non plus dans ton fichier...

 

[yannos12]

Bonsoir

de quelle macro parle t on??
celle que tu as posté en début n'apparait pas dans ton fichier...
et comme indiqué: il faudrait déjà expliquer ce qu'est censé faire la macro
je vois des whiles imbriqués...
travailler sur un tablo vba est surement plus indiqué que directement sur la feuille

en attente de plus de renseignements

je viens de voir que la feuille "Jumbo" n'existe pas non plus dans ton fichier..

Bonsoir

de quelle macro parle t on??
celle que tu as posté en début n'apparait pas dans ton fichier...
et comme indiqué: il faudrait déjà expliquer ce qu'est censé faire la macro
je vois des whiles imbriqués...
travailler sur un tablo vba est surement plus indiqué que directement sur la feuille

en attente de plus de renseignements

je viens de voir que la feuille "Jumbo" n'existe pas non plus dans ton fichier...

Comme dis, je suis retombé sur mon fichier de départ donc oui la macro a un peu évolué par rapport à celle dans le fichier mais j'ai gardé l'imbrication des boucles.
En gros je répertorie les demandes de vacances exprimées par mes collègues dans le 1er tableau et ensuite je les transposé en fonction de critères de priorité (les couleurs) sur le 2eme onglet.

 

[vgendron]

déjà que ton code est alambiqué. on ne va pas non plus essayer de faire le lien entre un code et un fichier qui ressemble de loin au besoin...

1) transforme tes données sous forme de tables structurées ==> plus simple à manipuler et a naviguer à l'intérieur==> les 3/4 de tes variables "indice colonne, première ligne..." vont dégager

2) mets le contenu de ces tables dans des tablo vba
et tu fais ton traitement (boucles) sur ces tablo
enfin, tu colles le résultat des tablos sur la feuille

3) faudrait expliquer un peu plus que "les collègues mettent leurs vacances"
ou ca? tu vas quand meme pas me dire qu'ils s'amusent à remplir TOUTE la ligne qui les concerne dans la feuille "Vacances" ??
et ils ne peuvent saisir que 5 jours??

 

[yannos12]

déjà que ton code est alambiqué. on ne va pas non plus essayer de faire le lien entre un code et un fichier qui ressemble de loin au besoin...

1) transforme tes données sous forme de tables structurées ==> plus simple à manipuler et a naviguer à l'intérieur==> les 3/4 de tes variables "indice colonne, première ligne..." vont dégager

2) mets le contenu de ces tables dans des tablo vba
et tu fais ton traitement (boucles) sur ces tablo
enfin, tu colles le résultat des tablos sur la feuille

3) faudrait expliquer un peu plus que "les collègues mettent leurs vacances"
ou ca? tu vas quand meme pas me dire qu'ils s'amusent à remplir TOUTE la ligne qui les concerne dans la feuille "Vacances" ??
et ils ne peuvent saisir que 5 jours??

Alambiqué? Pas compris.
Le code que j'utilise aujourd'hui est quasi le même, j'ai juste par exemple créer un module avec des "Public const" pour les utiliser ailleurs.

1) qu'entends tu par tableau structuré? La problématique que j'ai c'est qu'en fonction du statut de la personne (avec ou sans enfant) (plus ou moins de 40 ans) le nombre de semaine disponible par couleur change.
2)tablo vba? Faut que je regarde ce que c'est alors
3) mes collègues remplissent un formulaire sur le choix du numero de semaine de vacances et peuvent poser 5j en isolé. Le formulaire est ensuite saisi manuellement dans le 1er onglet.

Les contraintes pour mes collegues (pas moi qui les ai définies):
Rouge/jaune pour les sans enfants
Bleu/Bleu clair pour les avec enfants
-40 ans 6 semaines à poser
+40ans 7 semaines à poser
- 45ans 3 semaines max en rouge ou bleu
+ 45ans 4 semaines max en rouge ou bleu
Le complément dans les jaunes et bleu clair.

Bref c'est une usine à gaz, un peu comme mon code

 

[vgendron]

regarde en PJ

1)Feuille Vacances
j'ai transformé en table structurée (t_Saisies)
comme il faut des noms de colonnes uniques, j'ai nommé les colonnes avec un incrément (sera utilisé dans le code)
ex: pour les 5 colonnes J Isolé ==> Jiso1 / Jiso2/ Jiso3....

2) j'ai simplifié la macro qui efface les colonnes Fiso et qui les remplis
=> regarde le code: j'ai mis des commentaires

3) Feuille Annuel
idem: tu as maintenant 3 tables: "t_Cure" / t_Isolé et T_Vacances

la macro pour les effacer est toute simple

4) maintenant, il faut revoir la macro qui remplit les 3 tables Annuelles
mais. c'est censé etre laquelle??
==> TransfertCures? (pas de feuille Jumbo dans le fichier)
==> TransferVacances?? celle dans le fichier joint, ne fait rien...
il faudrait que tu expliques comment tu remplis

 

[yannos12]

Merci pour ton retour, je regarde cela demain ;-)
Le module transfertCure que j'avais mis, au début de conversation, est celui dans mon nouveau fichier donc à "oublier" ici. En gros j'ai splitté les choses à transférer pour que ce soit plus lisible. (dans mon esprit)

Sinon ici, dans l'onglet "Annuel", il a le bouton "Trier vacances" qui va chercher la fonction "TransferVacances".
Celle-ci rapatrie les données saisies manuellement dans l'onglet "Vacances" (Colonne C à AF). La partie Superviseur n'est pas traité dedans)
J'espère que c'est plus clair

 

[vgendron]

hello

je suis en train de regarder la macro "transfertVacances"
si je comprend bien ce que tu dis
Elle récupère les infos dans la feuille Vacances, et les mets dans la feuille Annuel

pour chaque numéro de semaine (1 à 53), elle récupère les initiales concernées, et les colle dans la feuille Annuel
de ce que je vois.. elle commence par le Bleu Foncé, PUIS Rouge, puis Jaune puis bleu clair
==> dans la feuille Annuel, sur la semaine 14, Rouge et Bleu foncé sont inversés ==> pourquoi?? erreur??

 

[yannos12]

hello

je suis en train de regarder la macro "transfertVacances"
si je comprend bien ce que tu dis
Elle récupère les infos dans la feuille Vacances, et les mets dans la feuille Annuel

pour chaque numéro de semaine (1 à 53), elle récupère les initiales concernées, et les colle dans la feuille Annuel
de ce que je vois.. elle commence par le Bleu Foncé, PUIS Rouge, puis Jaune puis bleu clair
==> dans la feuille Annuel, sur la semaine 14, Rouge et Bleu foncé sont inversés ==> pourquoi?? erreur??

Hello,
Tu as très bien analysé ;-)
Il y a un changement de priorité dans l'affichage sur les semaines "vacances scolaires", ce sont les semaines définies par le fond gris de la ligne 52 de l'onglet "Annuel".
Cellule grise, la priorité va de Bleu foncé, rouge, bleu clair, jaune et dans les autres l'ordre est rouge, bleu foncé, jaune et bleu clair.

 

[vgendron]

regarde en pj..
c'est "légèrement" plus rapide.....

j'ai mis un max de commentaires dans le code

pour le remplissage de la table Vacances dans Annuel, je n'ai pas du tout géré les priorités.. pour l'instant
il faut que je regarde (ou que tu expliques) comment les priorités changent

 

[yannos12]

Je trouve que c'est mieux que légèrement pour la rapidité ;-)
Je ne sais pas si j'ai bien saisie ta question, mais en gros l'entreprise définie la période considérée comme vacances scolaires durant lesquelles l'attribution des vacances se fait dans l'ordre des couleurs Bleu foncé, rouge, bleu clair, jaune. En dehors de ses périodes, l'ordre est rouge, bleu foncé, jaune et bleu clair.Chacun sait à quelle nombre de semaines par couleur il a droit.
Après qui vient s'ajouter dans le tri, c'est l'ancienneté qui n'est pas considéré ici. Les plus vieux seront prioritaires et apparaitront par ordre d'ancienneté en partant du bas dans les colonnes

 

[vgendron]

pour l'odre de remplissage des couleurs, j'avais donc bien vu
voici une nouvelle version
tu as deux boutons: Un qui colle SANS tenir compte des priorités (j'ai laissé la macro telle quelle)
et j'ai fait une nouvelle macro qui gère la priorité (deuxième bouton)

==> tu auras noté quand meme que dans une meme couleur, l'ordre des initiales est inversé par rapport à ta feuille d'origine (annuel(2)) ==> est ce vraiment important?
par contre; pour l'histoire de priorité sur l'age... je ne vois rien la dessus

 

[yannos12]

pour l'odre de remplissage des couleurs, j'avais donc bien vu
voici une nouvelle version
tu as deux boutons: Un qui colle SANS tenir compte des priorités (j'ai laissé la macro telle quelle)
et j'ai fait une nouvelle macro qui gère la priorité (deuxième bouton)

==> tu auras noté quand meme que dans une meme couleur, l'ordre des initiales est inversé par rapport à ta feuille d'origine (annuel(2)) ==> est ce vraiment important?
par contre; pour l'histoire de priorité sur l'age... je ne vois rien la dessus

La priorité sur l'âge n'est pas inclus ici mais c'est quelque chose que je dois gérer actuellement donc techniquement j'ai une colonne ancienneté et avant de faire mon transfert ligne à ligne, je reclasse les lignes en fonction de l'ancienneté et je remet en place par ordre alphabetique ensuite.
Après ça reste un facteur nécessaire car si j'ai trop de demande sur une semaine, j'enlève ceux qui ont peut d'anciennete.
Après j'ai une autre question, il se peut que certaine demande soit en "attente de validation", actuellement je met un fond sur la cellule et quand je le detecte je transfere en mettant des diagonales dans la cellule "annuel" concerné. Penses tu que ce genre de contrainte peut être gérer par le tableau vba?