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

Lone-wolf

XLDnaute Barbatruc
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.
 

Pièces jointes

  • Planning Annuel.xlsm
    80.3 KB · Affichages: 19
Dernière édition:

Dranreb

XLDnaute Barbatruc
Bonjour.
Moi j'avais écrit ça :
VB:
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
 

job75

XLDnaute Barbatruc
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+
 

Pièces jointes

  • Fin février(1).xlsx
    68.5 KB · Affichages: 23

Modeste geedee

XLDnaute Barbatruc
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)
 

Discussions similaires