XL 2019 suppression d'une ligne avec un bouton

[Mimi1952]

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

 

[job75]

Bonsoir Mimi1952,

Dans le code de la feuille :

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

A+

 

[Phil69970]

Bonjour @Mimi1952
Edit Bonjour Gérard

Je te propose ce fichier

Merci de ton retour

 

[Dranreb]

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

 

[mapomme]

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]

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]

Bonjour le forum,

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]

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]

@Mimi1952

Je te propose la V2

Merci de ton retour

 

[job75]

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

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]

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

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]

@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]

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

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