XL 2016 Supprimer une ou plusieurs lignes sélectionnées dans un tableau

badraaliou4 · 3 Janvier 2021

Bonsoir ici,

Je cherche un code qui me permet de supprimer une ou plusieurs lignes sélectionnées dans un tableau.
le code que j'ai me permet de supprimer uniquement une ligne sélectionnée.
merci pour votre aide..
ci-joint mon ficher.

VB:

Sub SuprimerLigneVente()
If ActiveCell.Row <= 28 Then
    MsgBox "    Impossible de supprimer cette ligne.", , "            SUPPRESSION DE LIGNE"
Else
    If MsgBox("Voulez-vous supprimer la ligne selectionée ?", vbYesNo, "     SUPPRESSION DE LIGNE") = vbYes Then
        Set lot = ActiveCell.ListObject
        If lot Is Nothing Then Exit Sub
        l = ActiveCell.Row - lot.HeaderRowRange.Row
        lot.ListRows(l).delete
    End If
End If
End Sub

laurent950 · 3 Janvier 2021

Bonsoir
Voulez-vous supprimer la ligne sélectionnée ?

VB:

Sub SuprimerLigneVente()
If ActiveCell.Row <= 28 Then
    MsgBox "    Impossible de supprimer cette ligne.", , "            SUPPRESSION DE LIGNE"
Else
    If MsgBox("Voulez-vous supprimer la ligne selectionée ?", vbYesNo, "     SUPPRESSION DE LIGNE") = vbYes Then
        ActiveCell.EntireRow.Delete
    End If
End If
End Sub

badraaliou4 · 3 Janvier 2021

laurent950 à dit:

Bonsoir

VB:

Sub SuprimerLigneVente()
Dim lot As Range
If ActiveCell.Row <= 28 Then
    MsgBox "    Impossible de supprimer cette ligne.", , "            SUPPRESSION DE LIGNE"
Else
    If MsgBox("Voulez-vous supprimer la ligne selectionée ?", vbYesNo, "     SUPPRESSION DE LIGNE") = vbYes Then
        Set lot = ActiveCell.EntireRow
        lot.Delete
    End If
End If
End Sub

merci beaucoup ça marche mais ça ne supprime qu'une seule ligne comme mon précédent code.
merci d'avance

laurent950 · 3 Janvier 2021

Bonjour,

Choix Multi-lignes select pour suppression.
Voulez-vous supprimer (la ou les lignes) sélectionnées ?

VB:

Sub SuprimerLigneVente()
Dim myRange As Range
If ActiveCell.Row <= 28 Then
    MsgBox "    Impossible de supprimer cette ligne.", , "            SUPPRESSION DE LIGNE"
Else
    If MsgBox("Voulez-vous supprimer la ligne selectionée ?", vbYesNo, "     SUPPRESSION DE LIGNE") = vbYes Then
        Set myRange = Application.Selection
        myRange.EntireRow.Delete
    End If
End If
End Sub

Ps : j'ai corrigé le poste #2 (Pour suppression d'une seul ligne)

badraaliou4 · 3 Janvier 2021

laurent950 à dit:
Bonjour,

Choix Multi-lignes select pour suppression.
Voulez-vous supprimer (la ou les lignes) sélectionnées ?

VB:

Sub SuprimerLigneVente() Dim myRange As Range If ActiveCell.Row <= 28 Then MsgBox " Impossible de supprimer cette ligne.", , " SUPPRESSION DE LIGNE" Else If MsgBox("Voulez-vous supprimer la ligne selectionée ?", vbYesNo, " SUPPRESSION DE LIGNE") = vbYes Then Set myRange = Application.Selection [CODE=vb]selection.EntireRow.Delete

End If
End If
End Sub
[/code]

Ps : j'ai corrigé le poste #2 (Pour suppression d'une seul ligne)

Merci beaucoup... ça marche bien.

Mais j'ai encore un petit problème avec

VB:

if activecell.row<= 28 then

si je commence la sélection de bas en haut ça supprime même la ligne 28
merci d'avance

mapomme · 3 Janvier 2021

Bonjour @badraaliou4, laurent950,
Bonne et heureuse nouvelle année ,

Ma p'tite version. Elle permet de sélectionner plusieurs cellules au sein d'une même ligne, sur plusieurs lignes et dans n'importe quel ordre de ligne, en dehors ou à l'intérieur du tableau.
Les lignes des cellules sélectionnées du tableau seront supprimées.

Par exemple:

sélectionner (tout en maintenant la touche Ctrl appuyée) les cellules G1 puis B4 puis C11 puis A19:A20 puis H4 puis G11 puis E25. Cela correspond aux cellules oranges
cliquez sur le bouton rouge

Le code est dans module1:

Code:

Sub SuprimerLigneVente()
Dim sel As Range

   Application.ScreenUpdating = False
   If Feuil1.ListObjects("Tableau1").ListRows.Count = 0 Then MsgBox "Le tableau est vide.", vbCritical: Exit Sub
   If MsgBox("Voulez-vous supprimer les lignes selectionnées de tableau 1 ?", vbYesNo + vbQuestion) = vbYes Then
      Set sel = Selection.EntireRow
      For i = Range("tableau1").Row + Range("tableau1").Rows.Count - 1 To Range("tableau1").Row Step -1
         If Not Intersect(Cells(i, Range("tableau1").Column), sel) Is Nothing Then Intersect(Rows(i), Range("Tableau1")).Delete xlShiftUp
      Next i
   End If
End Sub

Edit: version v1a qui qui prend en compte le fait que le tableau ne commence pas forcément en colonne A.

badraaliou4 · 3 Janvier 2021

mapomme à dit:
Bonjour @badraaliou4, laurent950,
Bonne et heureuse nouvelle année ,

Ma p'tite version. Elle permet de sélectionner plusieurs cellules au sein d'une même ligne, sur plusieurs lignes et dans n'importe quel ordre de ligne, en dehors ou à l'intérieur du tableau.

Par exemple:

sélectionner (tout en maintenant la touche Ctrl appuyée) les cellules G1 puis B4 puis C11 puis A19:A20 puis H4 puis G11 puis E25. Cela correspond aux cellules oranges

cliquez sur le bouton rouge

Le code est dans module1:

Code:

Sub SuprimerLigneVente() Dim sel As Range Application.ScreenUpdating = False If Feuil1.ListObjects("Tableau1").ListRows.Count = 0 Then MsgBox "Le tableau est vide.", vbCritical: Exit Sub If MsgBox("Voulez-vous supprimer les lignes selectionnées de tableau 1 ?", vbYesNo + vbQuestion) = vbYes Then Set sel = Selection.EntireRow For i = Range("tableau1").Row + Range("tableau1").Rows.Count - 1 To Range("tableau1").Row Step -1 If Not Intersect(Cells(i, Range("tableau1").Column), sel) Is Nothing Then Intersect(Rows(i), Range("Tableau1")).Delete xlShiftUp Next i End If End Sub

mapomme à dit:
Bonjour @badraaliou4, laurent950,
Bonne et heureuse nouvelle année ,

Ma p'tite version. Elle permet de sélectionner plusieurs cellules au sein d'une même ligne, sur plusieurs lignes et dans n'importe quel ordre de ligne, en dehors ou à l'intérieur du tableau.

Par exemple:

sélectionner (tout en maintenant la touche Ctrl appuyée) les cellules G1 puis B4 puis C11 puis A19:A20 puis H4 puis G11 puis E25. Cela correspond aux cellules oranges

cliquez sur le bouton rouge

Le code est dans module1:

Code:

Sub SuprimerLigneVente() Dim sel As Range Application.ScreenUpdating = False If Feuil1.ListObjects("Tableau1").ListRows.Count = 0 Then MsgBox "Le tableau est vide.", vbCritical: Exit Sub If MsgBox("Voulez-vous supprimer les lignes selectionnées de tableau 1 ?", vbYesNo + vbQuestion) = vbYes Then Set sel = Selection.EntireRow For i = Range("tableau1").Row + Range("tableau1").Rows.Count - 1 To Range("tableau1").Row Step -1 If Not Intersect(Cells(i, Range("tableau1").Column), sel) Is Nothing Then Intersect(Rows(i), Range("Tableau1")).Delete xlShiftUp Next i End If End Sub [/CODe [/QUOTE]

mapomme · 3 Janvier 2021

Re @badraaliou4,
Votre réponse est incompréhensible

badraaliou4 · 3 Janvier 2021

Merci beaucoup, ça marche...
Mais aidez moi à adapter avec mon tableau.
Je ne veux pas que les trois premières lignes du tableau soit supprimé

mapomme · 3 Janvier 2021

badraaliou4 à dit:
Je ne veux pas que les trois premières lignes du tableau soit supprimé

Trois lignes après la ligne des titres ou bien trois lignes avec la ligne des titres ?

badraaliou4 · 3 Janvier 2021

mapomme à dit:
Re @badraaliou4,
Ta réponse est incompréhensible

C'est Par peur de ne pas perdre mon tableau que j'ai choisi la ligne 28...

badraaliou4 · 3 Janvier 2021

mapomme à dit:
Trois lignes après la ligne des titres ou bien trois lignes avec la ligne des titres ?

Empêcher de supprimer Trois lignes au-dessous(en bas) de l'entête du tableau.

mapomme · 3 Janvier 2021

Re,

badraaliou4 à dit:
Je ne veux pas que les trois premières lignes du tableau soit supprimé

badraaliou4 à dit:
Trois lignes au-dessous de l'entête du tableau.

Essayez cette version v2.

badraaliou4 · 3 Janvier 2021

mapomme à dit:
Re,

Essayez cette version v2.

Waouh. . Merci infiniment
Problème résolu

laurent950 · 3 Janvier 2021

Re
Les 28 premières lignes sont impossibles a supprimer
Votre tableau est protéger
Si votre tableau s'agrandie (Changer la ligne 28 par une autres plus grandes comme 35)
exemple : If j <= 28 Then ---->>>par ---->>>> If j <= 35 Then

VB:

Sub SuprimerLigneVente()
Dim myRange As Range
        Set myRange = Application.Selection
For j = myRange.Rows(1).Row To myRange.Rows.Count + myRange.Rows(1).Row - 1
    If j <= 28 Then
    'MsgBox j
    Set myRange = Range(Cells(j + 1, 1), Cells(myRange.Rows.Count + myRange.Rows(1).Row - 1, 1))
    'MsgBox myRange.Address
    End If
Next j
    MsgBox "    Impossible de supprimer cette ligne.", , "            SUPPRESSION DE LIGNE"
    If MsgBox("Voulez-vous supprimer la ligne selectionée ?", vbYesNo, "     SUPPRESSION DE LIGNE") = vbYes Then
        myRange.EntireRow.Delete
    End If
End Sub

XL 2016 Supprimer une ou plusieurs lignes sélectionnées dans un tableau

badraaliou4

XLDnaute Occasionnel

Pièces jointes

laurent950

XLDnaute Barbatruc

badraaliou4

XLDnaute Occasionnel

laurent950

XLDnaute Barbatruc

badraaliou4

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Pièces jointes

badraaliou4

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

badraaliou4

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

badraaliou4

XLDnaute Occasionnel

badraaliou4

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Pièces jointes

badraaliou4

XLDnaute Occasionnel

laurent950

XLDnaute Barbatruc

Discussions similaires