XL 2016 Supprimer une ligne en doubleclick

tonton · 12 Mai 2019

Bonjour,

J'ai une feuille avec une liste et je coince sur une macro qui consiste à supprimer une ligne entière en double cliquant sur la cellule cible:

Private Sub CommandButton2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Set plage = Range("C2:C" & Range("C1048576").End(xlUp).Row)
If Not Intersect(Target, plage) Is Nothing And Target.Cells.Count = 1 Then
Cancel = True

Sheet("commande").Rows(Target.Row).Delete

End If
End Sub

Avez-vous une idée de ce qui coince car je sèche

Staple1600 · 12 Mai 2019

Bonsoir

Avec ce que j'ai compris (et sans passer par un CommandButton)
Code à mettre dans le code de la feuille (pas dans un module standard)

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 And Target.Row > 1 Then
If IsEmpty(Target) Then Exit Sub
Target.EntireRow.Delete
End If
End Sub

Donc si tu doubles-cliques en colonne C (à partir de la ligne 2 et en dessous), si la cellule est vide, alors la ligne est supprimée.

PS: Test OK sur mon PC

Staple1600 · 12 Mai 2019

Re

Toujours pas sur d'avoir compris

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 And Target.Row > 1 Then
Application.EnableEvents = False
If Not Application.CountBlank(Target.EntireRow) = Me.Columns.Count Then Target.EntireRow.Delete
Application.EnableEvents = True
End If
End Sub

Supprime la ligne si cette ligne n'est pas entièrement vide (et ce uniquement quand on double-clic en colonne C)

tonton · 12 Mai 2019

Staple1600 à dit:
Re

Toujours pas sur d'avoir compris

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 3 And Target.Row > 1 Then Application.EnableEvents = False If Not Application.CountBlank(Target.EntireRow) = Me.Columns.Count Then Target.EntireRow.Delete Application.EnableEvents = True End If End Sub

Supprime la ligne si cette ligne n'est pas entièrement vide (et ce uniquement quand on double-clic en colonne C)

Merci beaucoup ça fonctionne niquel ! Je n'avais pas fait attention à cela.

Staple1600 · 12 Mai 2019

Re

tonton
Merci de ne pas supprimer tes messages ,cela rends le fil incompréhensible !!!
(Où est passé ton message qui motive ma précédente réponse (message#3)

tonton · 13 Mai 2019

Staple1600 à dit:
Re

tonton
Merci de ne pas supprimer tes messages ,cela rends le fil incompréhensible !!!
(Où est passé ton message qui motive ma précédente réponse (message#3)

Re je suis désolé car j'avais posé une question bête et en pensant que tu ne l'avais pas encore lu je l'ai supprimé. Encore désolé et merci beaucoup pour ton aide

XL 2016 Supprimer une ligne en doubleclick

tonton

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

tonton

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

tonton

XLDnaute Nouveau

Discussions similaires