Suppression de ligne entre deux dates

[Coco-31]

Bonjour le forum et les pros d'excel,

J’ai trouvé sur ce forum le fichier joint qui supprime les lignes de part et d’autre des dates sélectionnées, je n’arrive pas à modifier ce code afin de supprimer les lignes entre les deux dates saisies dans l’inputbox,

Je remercie tous ceux qui se pencheront sur ma demande

 

[youky(BJ)]

Re : Suppression de ligne entre deux dates

Bonjour,
Essai comme ceci

Sub SupprDate()
Dim TabTemp As Variant
Dim k As Integer
Dim S As Long
Dim R As Variant
Dim B1 As Date, B2 As Date
    R = Application.InputBox("Date de Début :", "Entrez les bornes", Format(Date, "dd/mm/yy"), , , , , 2)
    If R = False Then Exit Sub
    B1 = DateValue(R)
    R = Application.InputBox("Date de Fin :", "Entrez les bornes", Format(Date, "dd/mm/yy"), , , , , 2)
    If R = False Then Exit Sub
    B2 = DateValue(R)
    If B2 < B1 Then MsgBox "Revoir les dates": Exit Sub
    With ActiveSheet
        For k = .Range("D65536").End(xlUp).Row To 16 Step -1
        If .Cells(k, 4) >= B1 And .Cells(k, 4) <= B2 Then
        If S = 0 Then .Cells(k, 4).Select
        Union(Selection, .Rows(k).EntireRow).Select: S = S + 1
        End If
        Next
                If MsgBox(S & " lignes seront supprimées" & vbCrLf & vbCrLf & "Souhaitez-vous continuer ?", _
            vbYesNo, "myDearFriend!") = vbYes Then
            Selection.Delete
        End If
    End With

 

[Coco-31]

Re : Suppression de ligne entre deux dates

Salut Youky,

Merci pour ta réponse qui correspond à mes attentes, longue vie à ce forum

Bon week-end