Créer sauts de ligne

Bonjour à tous,

J’espère que vous allez bien,

J’aimerais créer une macro, en partant de la colonne A en ligne 2 jusqu’à la dernière ligne qui a du contenu, un saut de ligne à chaque fois qu’un vendredi ou qu’un mardi apparait.

En clair, j’aimerais avoir des blocs de jours :

• Mardi, mercredi, jeudi
• Vendredi, samedi, dimanche, lundi

à ça :

Si en plusieurs vous pouviez mettre une couleur pour chacun des blocs pour les distinguer ça serait super !

Je vous remercie par avance de votre aide et je vous souhaite une bonne soirée.

bonsoir,

Sub MonBoucle()
     Dim lRow, i, MyDay
     lRow = Range("A" & Rows.Count).End(xlUp).Row
      For i = lRow - 1 To 2 Step -1
          myday1 = Range("A" & i).Value
          myday2 = Range("A" & i + 1).Value
          Range("A" & i + 1).Select
          If myday2 > myday1 And myday1 > 0 Then
               mardi = myday1 - Weekday(myday1, vbTuesday) + 1 'le mardi juste avant ou egal à myday1
               b = ((myday1 - mardi < 3) And (myday2 - mardi >= 3)) Or (myday2 - mardi >= 7)
               If b Then Range("A" & i + 1).EntireRow.Insert
          End If
     Next
End Sub

Merci beaucoup BsAlv,

Ca fonctionne super bien.

Je te souhaite une bonne soirée

bonjour,

oei, il y a une malédiction dans cette macro, la ligne avec "Select", elle sert à rien ... .

C'est mieux de l'effacer.

Merci pour ton retour !

Je vais le faire