Private Sub Silos_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Pos As Integer
Dim Msg As String
Silos.ListIndex = -1
Msg = "voulez-vous "
Pos = Val(Mid(Me.Silos.Name, 7, 50)) + 1
With Sheets("Gestion des silos")
If IsDate(.Cells(2, Pos)) Then ' Si il y a une date
If .Cells(9, Pos) = "EN COURS" Then ' Vérif si le silo est "EN COURS"
If Right(Silos.Tag, 1) = "b" Then ' Donc on va passer à Consommé
Msg = "voulez-vous consommer devant le silo " & Val(Me.Silos.Tag) & " ?"
ElseIf Left(Silos.Tag, 1) = "C" Then
Msg = "voulez-vous consommer dans la cour (emplacement " & Right(Me.Silos.Tag, 1) & ") ?"
Else
Msg = "voulez-vous consommer le silo " & Me.Silos.Tag & " ?"
End If
If MsgBox(Msg, vbYesNo) = vbYes Then
Application.EnableEvents = False
.Cells(9, Pos) = "OUI"
'
' Ligne à rajouter
'
Silos.RemoveItem (Silos.ListCount - 1)
'
'
'
Silos.AddItem "OUI"
Silos.BackColor = RGB(128, 128, 128)
Application.EnableEvents = True
End If
ElseIf .Cells(9, Pos) <> "OUI" Then ' <> OUI veut dire pas encore consommé
If Right(Silos.Tag, 1) = "b" Then
Msg = "voulez-vous commencer à consommer devant le silo " & Val(Me.Silos.Tag) & " ?"
ElseIf Left(Silos.Tag, 1) = "C" Then
Msg = "voulez-vous commencer à consommer dans la cour (emplacement " & Right(Me.Silos.Tag, 1) & ") ?"
Else
Msg = "voulez-vous commencer à consommer le silo " & Me.Silos.Tag & " ?"
End If
If MsgBox(Msg, vbYesNo) = vbYes Then
Application.EnableEvents = False
.Cells(9, Pos) = "EN COURS"
'
' Ligne à effacer
'
'Silos.RemoveItem (Silos.ListCount - 1)
'
'
'
Silos.AddItem "EN COURS"
Silos.BackColor = RGB(255, 255, 0)
Application.EnableEvents = True
End If
End If
End If
End With
End Sub