D’aide macro

Bonsoir et bon réveillon à toutes et à tous,

Ma version 3 modifiée en 3 bis.

• Saisie heure de fin en B4 (décalée de 30 mn par rapport à l'heure de début saisie en B3)
• Correction du code RAZ Total (au lieu de ligne = ligne+1, il fallait ligne = ligne)

For ligne = 6 To 15
    Set Plage = Range("D" & ligne & ":" & "AY" & ligne)
        If Plage.Find("deb" & ligne - 5) Is Nothing Then
           ligne = ligne
        Else
            ColDeb = Range("D" & ligne & ":" & "AY" & ligne).Find("deb" & ligne - 5).Column + 1
            ColFin = Range("D" & ligne & ":" & "AY" & ligne).Find("end" & ligne - 5).Column - 1
            With Range(Cells(ligne, ColDeb - 1), Cells(ligne, ColFin + 1))
            .Interior.Pattern = xlNone
            .ClearContents
            End With
            Range(Cells(ligne, ColDeb), Cells(ligne, ColFin)).MergeCells = False
        End If
    Next ligne

Cdt,

BONNE ANNEE

Henri