Kero
XLDnaute Junior
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.
Et je vous joint un fichier exemple.
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.
Code:
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.