Variable

bonjour

voila j'ai fait code vba pour effacée des lignes f2:l2 en cliquant sur les cellule D2

je voudrais faire la meme chose en cliquant D3= efface f3:l3

D4= efface f4:l4

etc.. pour les autres lignes

If Not Intersect(Target, Range("D2")) Is Nothing Then

If MsgBox("Confirmation de la suppression de l'enregistrement", vbYesNo, "Suppression") = vbYes Then

Range("F2:L2").Delete Shift:=xlUp

End If

End If

Exit Sub

If Not Intersect(Target, Range("D3")) Is Nothing Then

'MsgBox ("Lea fiche a ete envoyer a l'imprimante ?"), vbYesNo

If MsgBox("Confirmation de la suppression de l'enregistrement", vbYesNo, "Suppression") = vbYes Then

Range("F3:L3").Delete Shift:=xlUp

End If

End If

Exit Sub

merci pour votre aide

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("D:D")) Is Nothing Then
    Dim numLigne As Integer
    numLigne = Target.Row
    If MsgBox("Confirmation de la suppression de l'enregistrement", vbYesNo, "Suppression") = vbYes Then
        Range("F" & numLigne & ":L" & numLigne).Delete Shift:=xlUp
    End If
End If

End Sub

EDIT: Tu veux effacer la ligne complète, ou juste le CONTENU de "F0:L0"?

Merci beaucoup

bonne soirée a tous