Private Sub ListView1_DblClick()
Dim X As Byte, Numlign As Long
With ListView1
If .ListItems(.SelectedItem.Index).ListSubItems(12).Text = "NP" Then
Numlign = ListView1.SelectedItem.Index + 9
If MsgBox("Confirmer le Pointage.", vbYesNo, "Pointage") = vbYes Then
.ListItems(.SelectedItem.Index).ListSubItems(12).Text = "P"
Sheets("Data").Range("M" & Numlign) = .ListItems(.SelectedItem.Index).ListSubItems(12).Text
MiseEnForme
.ListItems(.SelectedItem.Index).Selected = False
For X = 1 To 13
Controls("TextBox" & X) = ""
Next
CommandButton2.Enabled = False
Exit Sub
Else
.ListItems(.SelectedItem.Index).Selected = False
For X = 1 To 13
Controls("TextBox" & X) = ""
Next
CommandButton2.Enabled = False
End If
End If
If .ListItems(.SelectedItem.Index).ListSubItems(12).Text = "P" Then
Numlign = ListView1.SelectedItem.Index + 9
If MsgBox("Confirmer la suppression du Pointage.", vbYesNo, "Suppression du Pointage") = vbYes Then
.ListItems(.SelectedItem.Index).ListSubItems(12).Text = "NP"
Sheets("Data").Range("M" & Numlign) = .ListItems(.SelectedItem.Index).ListSubItems(12).Text
MiseEnForme
.ListItems(.SelectedItem.Index).Selected = False
For X = 1 To 13
Controls("TextBox" & X) = ""
Next
CommandButton2.Enabled = False
Exit Sub
Else
.ListItems(.SelectedItem.Index).Selected = False
For X = 1 To 13
Controls("TextBox" & X) = ""
Next
CommandButton2.Enabled = False
End If
End If
End With
End Sub