Ajout d'une ligne après chaque dimanche et garder la mise en forme

Bonsoir,

Je cherche a insérer une ligne vide après chaque dimanche et ce pour chaque mois sélectionné via la liste déroulante en haut de la feuille.

Et évidement garder la mise en forme.

Ce qui me pose soucis, les mois à 30 jours et le mois de février je me retrouve avec des bordures en bas de feuille, j'ai essayer avec des mises en forme conditionnelle mais mes connaissances étant très limitées, je n'ai pu rien en tirer.

Merci par avance pour l'aide que vous pourrez m'apporter.

Laloute.

Bonsoir,

un essai de formule mais non finalisée sur la fin de mois...

Formule en A7 à tirer vers le bas :

=CHOISIR(SI(ET(JOURSEM(DATE($A$1;MOIS(1&$D$1);JOUR(MAX($B$6:B6)));2)=7;A6<>"");8;JOURSEM(DATE($A$1;MOIS(1&$D$1);JOUR(MAX($B$6:B6)+1));2));"lundi";"mardi";"mercredi";"jeudi";"vendredi";"samedi";"dimanche";"")

Formule en B7 à tirer vers le bas :

=SI(A7="";"";MAX($B$6:$B6)+1)

Les lignes blanches après les dimanche sont bien gérées mais pas la fin de mois

@ bientôt

LouReeD

Salut Laloute,

Salut LouReed,

petit délire VBA... car, moi, les formules, hein?

Un double-clic en [A1] = année +1

Un clic-droit en [A1] = année -1

For x = LBound(tSplit) To UBound(tSplit)
    If tSplit(x) = rCel.Value Then
        iFlag = Choose(x + 1, 31, IIf([A1] Mod 4 = 0, 29, 28), 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
        For y = iFlag To 1 Step -1
            Cells(6 + y, 1) = Format(DateSerial([A1], x + 1, y), "[$-40c]dddd")
            Rows(6 + y).RowHeight = 22
            Cells(6 + y, 2) = y
            If Weekday(DateSerial([A1], x + 1, y), vbMonday) = 1 And y > 1 Then _
                Cells(6 + y, 1).EntireRow.Insert shift:=xlDown: _
                Rows(6 + y).RowHeight = 10
        Next
        iFlag = 7
        For y = 7 To Range("A" & Rows.Count).End(xlUp).Row + 1
            If Cells(y, 1) = "" Then _
                Range("A" & iFlag & ":L" & y - 1).Borders.LineStyle = xlContinuous: _
                Union(Range("F" & iFlag & ":F" & y - 1), Range("J" & iFlag & ":J" & y - 1)).Interior.Color = RGB(0, 0, 0): _
                iFlag = y + 1
        Next
        Exit For
    End If
Next

A+

Bonjour,

Merci pour vos réponses.

Double-clic et clic-droit pour naviguer c'est astucieux. Je vais essayer de reproduire cela pour les mois.

Le rendu de curulis57 est quasiment parfait.

En chipotant il faudrait que l'ensemble garde l'image d'un tableau unique avec les bandes noire continue.

Mais tout cela reste du détail.

Encore merci pour votre aide.

@bientôt

Bonsoir...

Bon et bien je m'en retourne à mes occupations...

@ bientôt

LouReeD