Adaptation automatique suivant le nombre de jours par mois

Re : Adaptation automatique suivant le nombre de jours par mois

Bonjour benoit

une exemple, fichier lié

Re : Adaptation automatique suivant le nombre de jours par mois

Merci beaucoup ca marche très bien.
Par contre j'ai un autre souci. Je voudrai mettre la colonne des dimanches en rouge. J'ai fait une petite macro mais elle n'a pas l'air de fonctionner. Si quelqu'un peu jeter un coup d'oeil et me dire où ça cloche.
Merci d'avance

Private Sub ComboBox1_Change()
Range("BB1").Value = ComboBox1.Value



Worksheets("Mois").Activate

cellule = Range("D6")
Range("D6").Activate

While Not (cellule = "AH6")

If ActiveCell.Value = "Dim"
Range("ActiveCell:ActiveCell.Offset(15, 0)").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
cellule = ActiveCell.Offset(0, 1)


Wend


End Sub

En fait je à chaque fois que j'ai dim dans une cellule je slectionne la colonne et je la met en rouge. Ensuite j'incrémente ma cellule. La cellule AH6 représente la 31ème colonne.

Re : Adaptation automatique suivant le nombre de jours par mois

re:

pas besoin de macro, une MFC suffit

formule à mettre dans la mfc
tu selectionne sde A4:AE4

=JOURSEM(A$4;2)=7 : mettre le format

Re : Adaptation automatique suivant le nombre de jours par mois

Merci beaucoup Wilfried pour l'astuce. C'est beaucoup plus simple.