XL 2019 suppression d'une ligne avec un bouton

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Mimi1952

XLDnaute Occasionnel
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
 

Pièces jointes

Solution
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
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour