Bonjour à toutes et à tous,
Sur le forum, j'ai relevé un code permettant de supprimer la ligne entière sélectionnée (j'en remercie l'auteur au passage).
Ce code me serait très utile s'il me permettait de sélectionner plusieurs lignes à supprimer.
J'ai cherché et aussi tenté de modifier le code sans succès.
Comme d'habitude, votre aide me serait précieuse.
Voici le code en question :
Je joins un classeur test.
Avec mes remerciements,
Très bonne journée à vous,
Amicalement,
Lionel,
Sur le forum, j'ai relevé un code permettant de supprimer la ligne entière sélectionnée (j'en remercie l'auteur au passage).
Ce code me serait très utile s'il me permettait de sélectionner plusieurs lignes à supprimer.
J'ai cherché et aussi tenté de modifier le code sans succès.
Comme d'habitude, votre aide me serait précieuse.
Voici le code en question :
Code:
Option Explicit
Sub efface_ligne()
'objet.méthode paramètre 1 = valeur 1, paramètre 2 = valeur 2
'ou
'object.méthode (paramètre)
Dim ligne As Integer
Dim confirme As String
ligne = ActiveCell.Row
Rows(ligne).Select
confirme = MsgBox("je vais supprimer la ligne " & ligne & " ?", vbYesNo, "Attention")
Select Case confirme
Case vbYes
Selection.Delete Shift:=xlUp
Case vbNo
Exit Sub
End Select
End Sub
Je joins un classeur test.
Avec mes remerciements,
Très bonne journée à vous,
Amicalement,
Lionel,