XL 2013 [Résolu] Inserer un double trait en fin Février

[Lone-wolf]

Bonjour à toutes et à tous 🙂

Je suis entrain de créer un planning annuel par VBA. J'ai un souci pour mettre un double trait sur le jours 28 et 29 février. Si cellule (ou fin mois) est égale à 28 inserer le double trait; si cellule (ou fin mois) est égale à 29, enlever celui-ci au 28 et le mettre au 29 et mettre le trait fin gris au 28.

EDIT: j'ai trouvé, toutes mes excuses pour le désagrément. Je remet le fichier pour les interéssés.

 

[phlaurent55]

Bonjour LoneWolf,

ton fichier en retour (sans macro)

à+
Philippe

 

[Lone-wolf]

Bonjour Philippe 🙂

Merci pour ta collaboration. 😉

 

[Modeste geedee]

Bonsour®

Bonjour LoneWolf,

ton fichier en retour (sans macro)

à+
Philippe

😉😉😉
🙄 manque le 31 décembre bissextile ....

 

[phlaurent55]

Re,

Bonsour®
😉😉😉
🙄 manque le 31 décembre bissextile ....

Oui Modeste, c'est corrigé dans le fichier

à+
Philippe

 

[Dranreb]

Bonjour.
Moi j'avais écrit ça :

Sub Macro2()
Dim Cel As Range
Application.ScreenUpdating = False
[C10].Value = DateSerial([B2].Value, 1, 1)
[D10:ND10].FormulaR1C1 = "=OFFSET(RC,0,-1)+1"
[C11:ND11].FormulaR1C1 = "=TEXT(R10C,""jjj."")"
[C12:ND12].FormulaR1C1 = "=DAY(R10C)"
With [C9:ND9]
   .FormulaR1C1 = "=1/(WEEKDAY(R10C,2)>=6)"
   Intersect([13:63], .EntireColumn).Interior.Color = xlNone
   Intersect([13:63], .SpecialCells(xlCellTypeFormulas, 1).EntireColumn).Interior.Color = &HBABABA
   .FormulaR1C1 = "=IF(R12C=1,TEXT(R10C,""mmmm""),NA())"
   .HorizontalAlignment = xlCenterAcrossSelection
   .SpecialCells(xlCellTypeFormulas, 16).ClearContents
   .Resize(4).Borders(xlInsideVertical).LineStyle = xlThin
   .Resize(2).Borders(xlInsideVertical).LineStyle = xlNone
   For Each Cel In .SpecialCells(xlCellTypeFormulas, 2)
      With Cel.Resize(4).Borders(xlEdgeLeft)
        .LineStyle = xlDouble: .Color = 186&: .Weight = xlThick
        End With: Next Cel: End With
With [C9:ND12]: .Value = .Value: .Rows(2).ClearContents
   .ColumnWidth = 4: End With
End Sub

 

[Lone-wolf]

Bonjour Dranreb, Modeste geedee 🙂

@Dranreb: nickel, comme d'hab. 😉

 

[job75]

Bonjour Lone-wolf, Philippe, Modeste geedee, Bernard,

Pourquoi [Résolu] ???

J'ai un souci pour mettre un double trait sur le jours 28 et 29 février.

Vraiment pas besoin de VBA pour un problème qui se règle si facilement par MFC.

Pas compris pourquoi Philippe n'affiche pas des bordures doubles fin février comme demandé.

Fichier joint.

A+

 

[Modeste geedee]

Bonsour®

Re,


Oui Modeste, c'est corrigé dans le fichier

à+
Philippe

😉 le même avec MEFC fériés

 

[Modeste geedee]

Bonjour Lone-wolf, Philippe, Modeste geedee, Bernard,

Pourquoi [Résolu] ???

Vraiment pas besoin de VBA pour un problème qui se règle si facilement par MFC.

Pas compris pourquoi Philippe n'affiche pas des bordures doubles fin février comme demandé.

Fichier joint.

A+

ça ne se justifiait pas dans la mesure ou il réglait ce 29 février fantôme des années non bissextiles
(bijection quantième / colonne)

 

[phlaurent55]

Re,

Pas compris pourquoi Philippe n'affiche pas des bordures doubles fin février comme demandé.

@job75
Parce que Philippe est dans la merde (le brouillard) en ce moment suite à deux interventions chirurgicales aux yeux et en attente d'une troisième dans le but de rectifier une erreur faite par l'ophtalmo

à+
Philippe

 

[Lone-wolf]

Bonsoir à tous 🙂

@job75: bien sûr qu'avec seulement des formules et MFC c'est plus simple. Mais j'ai eu envie de le faire par VBA.