Encâdrer à chaque lundi

[Boby71C]

Bonjour à tous

J'ai créé un petit code VBA pour mieux visualiser mes semaines en positionnant un encadrement épais chaque lundi.
Le code est le suivant:
Sub Encadrer_Les_Semaines()


Mon seul souci, est que vu qu' Excel est limité en colonnes, j'ai un autre code qui enlève les samedi, dimanche et jours fériés.
Donc certaines semaines, il n'y a pas de lundi donc pas désencadrement dans cette situation.

Pensez-vous qu'il soit possible à ce moment là, d'encadrer le jour suivant, car certaines semaines, il n'y a même pas de mardi si c'est le mardi qui est férié et que nous faisons le pont du lundi.

Merci pour votre aide.
@+

 

[Boby71C]

Re
Le fichier joint: [file name=EfSerSimp.zip size=16138]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EfSerSimp.zip[/file]

Message édité par: Boby71C, à: 12/05/2006 18:27

 

[Charly2]

Bonsoir Robert, bonsoir à toutes et à tous 🙂

Je te fais une proposition de code dans le fichier joint (il doit y avoir encore moyen de le simplifier) :

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

A+ 😉

 

[Boby71C]

Bonsoir Charly2
J'ai regardé le fichier joint et tu as trouvé la solution. Je vais le mettre en application de suite sur mon fichier final.
Merci beaucoup pour ton aide.
Sur le même type de fichier, j'ai un souci pour la recopie des données pour continuer le calendrier quand je supprime des semaines écoulées mais je vais ouvrir un autre poste pour le sujet car ma macro n'est pas dans ce fichier joint.

Merci encore et excellent Week End
@+

 

[Charly2]

re,

Heureux d'avoir pu te rendre service 🙂

Pour la suite, je suivrai... comme les autres 😉

A+