Microsoft 365 Fusion de cellule si identique par VBA

[salocin66]

Bonjour,
J'ai besoin d'aide afin de pouvoir fusionner des cellules adjacentes si elles sont identiques mais n'ai aucune notion en VBA. J'ai cherché à reprendre des exemples trouvé sur le forum mais n'arrive pas à modifier la macro.

J'ai un fichier pour gérer le planning d'avancement des travaux de construction sur un espace temps de 2 ans avec les vacances et les jours fériés.

Ce que j'aimerais faire:

-Fusionner les cellules des lignes des semaines et des mois si identiques. (lignes 7-8, 86-87, 165-166, etc)
-Masquer la colonne du 1er mai à la fin du mois d'avril si ce n'est pas une année bissextile

Et si par miracle, il serait aussi possible que les zones de textes se place en fonction des fériés ou des vacances je suis preneur...

Merci d'avance pour votre aide

Nicolas

 

[pierrejean]

Bonjour salocin66

A tester : macro test

 

[salocin66]

Bonjour,

Merci pour votre réponse, effectivement ça fonctionne mais comment faire pour actualiser la fusion lorsque je change l'année dans la cellule B2?

 

[pierrejean]

Re

Je suggère de conserver la 1ere version (copie en Feuil1) ,changer B2 puis lancer la macro

 

[salocin66]

Merci Pierrejean pour la macro. Je vais utilisé votre solution pour le moment.

 

[salocin66]

Bonjour Pierrejean,
Je constate une erreur dans la macro mais je ne suis pas capable de la corriger. La dernière colonne de chaque période n'est jamais fusionnée que ce soit les mois ou les semaines. Est-ce que vous avez la solution?

 

[pierrejean]

Re

Je ne fais pas le même constat
Peux-tu poster le fichier STP

 

[salocin66]

Voilà le fichier, mais il s'agit du fichier repris plus haut dans la conversation....

 

[pierrejean]

Re

Vois si cela va mieux

 

[salocin66]

Re,
c'est presque parfait, il y a juste un bug avec la cellule DS7 qui devrait rester seul étant donné que c'est le mois de mai si B2 contient la valeur d'une année non bissextile...