Insérer des colonnes dans ce calendrier

[Benoit]

Bonjour,

A partir de cet exemple créé par JP COSTA, je voudrais insérer une colonne à droite de chaque mois. Que faut-il modifier dans sa macro Année pour pouvoir le réaliser, et est-ce possible d' avoir les jours fériés en couleur ?

Merci.

 

[lea]

Bonjour,

Pour insérer une colonne entre "Janvier" et "Février" tu cliques sur le haut de la colonne B afin de la sélectionner dans sa totalité (le curseur doit prendre la forme d'une flêche dirigée vers le bas), ensuite
dans le menu : INSERTION --> Colonne

ce qui correspondra à la macro dont le code est le suivant

Columns("B:B").Select
Selection.Insert Shift:=xlToRight

Léa

 

[Benoit]

Merci Léa pour ta réponse.

La macro pour insérer une colonne je connaissais, mais pour l' intégrer dans celle de JP COSTA aprés chaque mois, c' est là que je bloque. Ca doit se passer vers là :

Cells(lg, col) = X + I
If Weekday(X + I) = 1 Or Weekday(X + I) = 7 Then Cells(lg, col).Interior.ColorIndex = 24 '*************
If X + I = DateSerial(Year(X + I), Month(X + I) + 1, 1) - 1 Then
col = col + 1

mais où ?

A plus Benoit.

 

[Hervé]

bonjour

sans avoir ouvert ta pièce jointe , je pencherai pour : col=col+2

Salut
Hervé

 

[Benoit]

Salut Hervé,

col+2 je l' avais déjà fait, j' ai bien une colonne qui s' insère après chaque mois mais le problème c' est qu' au niveau titre de colonne, les mois se répétent deux fois. Février au lieu d' être en colonne 3 reste en 2.

A plus. Benoit.

 

[lea]

Bennoit rebonjour,

Pourquoi veux tu ajouter des lignes de code dans la routine qui t'est donnée, mets les en fin de routine entre
fin :
et End sub

ces lignes de code qui te donneront ce que tu veux peuvent être

Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Columns("D").Select
Selection.Insert Shift:=xlToRight
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Columns("H:H").Select
Selection.Insert Shift:=xlToRight
Columns("J:J").Select
Selection.Insert Shift:=xlToRight
Columns("L:L").Select
Selection.Insert Shift:=xlToRight
Columns("N:N").Select
Selection.Insert Shift:=xlToRight
Columns("P").Select
Selection.Insert Shift:=xlToRight
Columns("R:R").Select
Selection.Insert Shift:=xlToRight
Columns("T:T").Select
Selection.Insert Shift:=xlToRight
Columns("V:V").Select
Selection.Insert Shift:=xlToRight

une boucle serait plus jolie mais je ne vois pas comment paramétrer les noms des colonnes "B", "C" , etc ...

j'ai essayé et ça marche
Léa

 

[Benoit]

Bonjour,

Merci Léa pour ta réponse, l' insertion de colonnes fonctionne mais comme les titres de colonnes les jours fériés etc.. je n' y suis pas arrivé avec cette macro, j' ai laissé tomber pour tout refaire avec la bonne vieille méthode des formules.

A plus. Benoit.