XL 2019 suppression d'une ligne avec un bouton

Mimi1952 · 22 Décembre 2024

Bonsoir à tous,

j'ai un petit fichier test et je voudrais pourvoir supprimer une ligne quelque soit sa position
c'est-à-dire aussi bien en début , milieu ou fin de tableau et cela avec un bouton peut-être en vba.
merci pour votre aide.

mic52

Mimi1952 · 23 Décembre 2024

job75 à dit:

Si l'on ne veut pas écrire en dur le nom du tableau on peut utiliser :

VB:

Private Sub CommandButton1_Click()
With ListObjects(1) 'tableau structuré
    If Intersect(ActiveCell, Range(.Name)) Is Nothing Then Exit Sub
    If MsgBox("Etes-vous sûr de vouloir supprimer cette ligne ?", vbYesNo + vbQuestion) = vbYes _
        Then Intersect(ActiveCell.EntireRow, .Range).Delete xlUp
End With
End Sub

Bonjour Phil,
Merci pour votre aide , ça correspond vraiment à mon attente tout fonctionne très bien .
Mic 1952

job75 · 22 Décembre 2024

Bonsoir Mimi1952,

Dans le code de la feuille :

VB:

Private Sub CommandButton1_Click()
If Not Intersect(ActiveCell, [T_BDD]) Is Nothing Then Intersect(ActiveCell.EntireRow, [T_BDD]).Delete xlUp
End Sub

A+

Phil69970 · 22 Décembre 2024

Bonjour @Mimi1952
Edit Bonjour Gérard

Je te propose ce fichier

Merci de ton retour

Dranreb · 22 Décembre 2024

Bonsoir.
Pour ma part ce que je fais souvent sur les tableaux c'est ça :

mapomme · 23 Décembre 2024

Bonsoir à tous ,

Je ne vois pas bien le bénéfice de ce bouton alors qu'avec un clique-droit/supprimer natif, on peut parfaitement le faire avec comme avantage :

la suppression peut être annulée si on s'aperçoit qu'on s'est trompé de ligne
on peut supprimer plusieurs lignes en une seule fois (disjointes ou groupées) avec la sélection d'une cellule quelconque de chaque ligne à supprimer
on n'a pas pas besoin de faire défiler la feuille pour retrouver le bouton si le tableau structuré s'étend au-delà de la zone affichée contenant le bouton (sauf pour Dranreb qui gère ce point)

Cependant le demandeur est roi.

Mimi1952 · 23 Décembre 2024

Phil69970 à dit:
Bonjour @Mimi1952
Edit Bonjour Gérard

Je te propose ce fichier

Merci de ton retour

Bonjour Phil,
Merci pour ton aide ,c'est se qu'il me faut mais je voudrais bien que lorsque je clic sur supprimer avoir une boite de dialogue qui demande " Etes-vous sûr de vouloir supprimer cette ligne" avec un choix OK / ANNULER .merci

bonne journée
mic1952

job75 · 23 Décembre 2024

Bonjour le forum,

VB:

Private Sub CommandButton1_Click()
If Intersect(ActiveCell, [T_BDD]) Is Nothing Then Exit Sub
If MsgBox("Etes-vous sûr de vouloir supprimer cette ligne ?", vbYesNo + vbQuestion) = vbYes _
    Then Intersect(ActiveCell.EntireRow, [T_BDD]).Delete xlUp
End Sub

A+

job75 · 23 Décembre 2024

L'utilisation de la propriété .Active par Phil69970 n'est pas inintéressante mais elle entraîne un message d'erreur si l'on tente de supprimer la ligne d'en-têtes du tableau.

Phil69970 · 23 Décembre 2024

@Mimi1952

Je te propose la V2

Merci de ton retour

job75 · 23 Décembre 2024

Si l'on ne veut pas écrire en dur le nom du tableau on peut utiliser :

VB:

Private Sub CommandButton1_Click()
With ListObjects(1) 'tableau structuré
    If Intersect(ActiveCell, Range(.Name)) Is Nothing Then Exit Sub
    If MsgBox("Etes-vous sûr de vouloir supprimer cette ligne ?", vbYesNo + vbQuestion) = vbYes _
        Then Intersect(ActiveCell.EntireRow, .Range).Delete xlUp
End With
End Sub

Mimi1952 · 23 Décembre 2024

job75 à dit:

Si l'on ne veut pas écrire en dur le nom du tableau on peut utiliser :

VB:

Private Sub CommandButton1_Click()
With ListObjects(1) 'tableau structuré
    If Intersect(ActiveCell, Range(.Name)) Is Nothing Then Exit Sub
    If MsgBox("Etes-vous sûr de vouloir supprimer cette ligne ?", vbYesNo + vbQuestion) = vbYes _
        Then Intersect(ActiveCell.EntireRow, .Range).Delete xlUp
End With
End Sub

Bonjour Job 75
Merci , pour cette aide sa fonctionne très bien .C'est sympa de votre part.
Je vous souhaite de très bonnes fêtes de fin d'année.
Mic 1952

Mimi1952 · 23 Décembre 2024

Phil69970 à dit:
@Mimi1952

Je te propose la V2

Merci de ton retour

Bonjour Phil,
Je vous remercie pour votre travail car sa fonctionne vraiment bien c'est ce que je voulais.
Je vous souhaite de très bonnes fêtes de fin d'année.
Mic1952

Mimi1952 · 23 Décembre 2024

job75 à dit:

Si l'on ne veut pas écrire en dur le nom du tableau on peut utiliser :

VB:

Private Sub CommandButton1_Click()
With ListObjects(1) 'tableau structuré
    If Intersect(ActiveCell, Range(.Name)) Is Nothing Then Exit Sub
    If MsgBox("Etes-vous sûr de vouloir supprimer cette ligne ?", vbYesNo + vbQuestion) = vbYes _
        Then Intersect(ActiveCell.EntireRow, .Range).Delete xlUp
End With
End Sub

Bonjour Phil,
Merci pour votre aide , ça correspond vraiment à mon attente tout fonctionne très bien .
Mic 1952

XL 2019 suppression d'une ligne avec un bouton

Mimi1952

XLDnaute Occasionnel

Pièces jointes

Mimi1952

job75

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Mimi1952

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Mimi1952

XLDnaute Occasionnel

Mimi1952

XLDnaute Occasionnel

Mimi1952

XLDnaute Occasionnel

Discussions similaires