Macro pour choisir les lignes à supprimer

[Kero]

Bonjour a tous

Je reviens une nouvelle fois vers vous afin de m'éclairer sur cette macro.

Je voudrais choisir mes lignes a supprimer (exemple de la ligne 10 à 13).
Voici la macro que j'ai fait mais j'ai une erreur lors de la confirmation.

Sub Suplignechoisie()
Dim D As String, F As String, Rep As String
D = InputBox("Supprimer de la ligne")
If D = "" Then
    Exit Sub
    Else
        If D <> "" Then
        F = InputBox("à la ligne")
            Rep = MsgBox("Etes vous sure de vouloir supprimer ces lignes?", vbYesNo)
                If Rep = vbYes Then
                Rows("D:F").Delete Shift:=xlUp
                    Else
                    Exit Sub
                    End If
                End If
        End If
End Sub

Et je vous joint un fichier exemple.

 

[pierrejean]

Re : Macro pour choisir les lignes à supprimer

bonjour Kero

A tester:

Option Explicit
Sub Suplignechoisie()
Dim D As String, F As String, Rep As String
D = InputBox("Supprimer de la ligne")
If D = "" Then
    Exit Sub
    Else
        If D <> "" Then
        F = InputBox("à la ligne")
            Rep = MsgBox("Etes vous sure de vouloir supprimer ces lignes?", vbYesNo)
                If Rep = vbYes Then
                Rows([COLOR=red]D & ":" & F[/COLOR]).Delete Shift:=xlUp
                    Else
                    Exit Sub
                    End If
                End If
        End If
End Sub

 

[Kero]

Re : Macro pour choisir les lignes à supprimer

Bonjour Pierrejean

Merci pour ton coup de pouce!! L'erreur etait minime et je ne m'en suis même pas rendu compte!!

Encore merci

Cordialement
Kero

 

[Lii]

Re : Macro pour choisir les lignes à supprimer

Bonjour Kero, pierrejean,

Ton code peut se simplifier.
Une autre présentation avec un USF (saisies numériques plus faciles à contrôler) dans le fichier joint.