XL 2016 Supprimer une ligne en doubleclick

[tonton]

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]

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)

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]

Re

Toujours pas sur d'avoir compris

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]

Re

Toujours pas sur d'avoir compris

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]

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]

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