Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B2:F42")) Is Nothing Then
Cancel = True
'Récupération des données de la ligne choisie
xDesigna = Cells(Target.Row, "B")
xReferen = Cells(Target.Row, "A")
xNomAjus = Cells(Target.Row, "C")
xDatePre = Cells(Target.Row, "D")
xManquan = Cells(Target.Row, "E")
xEtat = Cells(Target.Row, "F")
'Test si un ajusteur est déja indiqué
If xNomAjus <> Empty Then
xMess = Empty
xMess = xMess & "L'ajusteur " & xNomAjus & " est déjà indiqué" & Chr(13)
xMess = xMess & "Cela veut-il dire qu'il à rendu le matériel" & Chr(13) & Chr(13)
xMess = xMess & " - Si OUI, matériel rendu, donc effacement des données" & Chr(13)
xMess = xMess & " - Si NON, erreur de ligne" & Chr(13)
xRep = MsgBox(xMess, vbQuestion + vbYesNo, "TOTO")
If xRep = vbYes Then
Cells(Target.Row, "C") = Empty
Cells(Target.Row, "D") = Empty
xEtat = "Rendu"
Cells(Target.Row, "F") = "Disponible"
GoTo EnregistreHistorique
Else
Exit Sub
End If
Else
xNomAjus = InputBox("Nom de l'ajusteur", "AJUSTEUR")
Cells(Target.Row, "C") = xNomAjus
Cells(Target.Row, "D") = Now
xDatePre = Cells(Target.Row, "D")
xEtat = "Emprunté"
Cells(Target.Row, "F") = xEtat
End If
EnregistreHistorique:
With Sheets("HistoriquePret")
xDerLig = .Range("A65536").End(xlUp).Row
xNewLig = xDerLig + 1
.Cells(xNewLig, "A") = xDesigna 'Désignation
.Cells(xNewLig, "B") = xReferen 'Référence
.Cells(xNewLig, "C") = xNomAjus 'Nom ajusteur
.Cells(xNewLig, "D") = xDatePre 'Date pret
.Cells(xNewLig, "E") = xManquan 'Manquant
.Cells(xNewLig, "F") = xEtat 'Etat
End With
End If
End Sub