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

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

job75 · 22 Avril 2025

Bonsoir Nicolaslag79, bienvenue sur XLD,

Nicolaslag79 à dit:
Je veux supprimer certaines lignes dans l'onglet pour ne pas les imprimer. Mais je veux savoir les récupérer si nécessaire.

Eh bien ne les supprimez pas, masquez-les !

A+

XL 2019 suppression d'une ligne avec un bouton

Mimi1952

XLDnaute Occasionnel

Pièces jointes

job75

job75

XLDnaute Barbatruc

Discussions similaires

XL 2019 suppression d'une ligne avec un bouton

Mimi1952

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency