Option Explicit


' ***********************************************************************
' *****                                                             *****
' *****        CODE PierreP56 : http://tatiak.canalblog.com/        *****
' *****                                                             *****
' ***********************************************************************


Public WithEvents lig As MSForms.Label
Public WithEvents Tet As MSForms.Label
Public WithEvents Txt As MSForms.TextBox
Public WithEvents Ing As MSForms.TextBox
Public WithEvents Men As MSForms.Label
Public WithEvents Clo As MSForms.Label


Private Sub Lig_Click()
Dim num As Long

    Glissade Usf_Interface.Frame4, -1
    num = Idx_T2D(TRecet_Usf, lig.Tag, 1)
    If num = 0 Then
        Glissade Usf_Interface.Frame2, -1
    Else
        Remplissage_Fiche (num)
    End If
End Sub


Private Sub Tet_Click() ' tri
Dim num As Long

    num = Right(Tet.Name, 1) - 2
    TRecet_Usf = Tri2D(TRecet_Usf, num + 2, Tri1(num))
    Tri1(num) = Not Tri1(num)
    Remplissage_Liste
End Sub


Private Sub Txt_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
Dim num As Long

    With Usf_Interface
        Glissade .Frame4, -1
        num = Replace(Txt.Name, "TextBox", "")
        If num > 12 Then num = num - 12
        If .Controls("Lg" & num).Tag = "" Then
            .Image3.Picture = .Image_base.Picture
            Glissade .Frame2, -1
        Else
            num = Idx_T2D(TRecet_Usf, .Controls("Lg" & num).Tag, 1)
            Remplissage_Fiche (num)
        End If
    End With
End Sub


Private Sub Ing_Change()
Dim num As Integer, lg As Integer, cl As Integer, idx As Integer

    If Remplir Then Exit Sub
    num = Right(Ing.Name, 2)
    With Usf_Interface
        Select Case num
            Case 25 To 34
                lg = num - 15
                cl = 2
                
            Case 35 To 44
                lg = num - 25
                cl = 3
        End Select
        If .Controls("Label" & lg).Caption = "" Then
            TIng = Ajout_Ligne_T(TIng)
            idx = UBound(TIng, 1)
            .Controls("Label" & lg).Caption = idx - 1
            .Controls("Label" & lg).Picture = .Image1.Picture
            .Controls("Label" & lg).Tag = idx - 1
        Else
            idx = .Controls("Label" & lg).Caption + 1
        End If
    End With
    TIng(idx, cl) = Ing.Value
End Sub


Private Sub Men_Click()
    Remplir = True
    With Usf_Interface.ComboBox3
        .ListIndex = -1
        .Visible = True
        .Top = Men.Top
        .Left = Men.Left
        .DropDown
    End With
    TxtMenu = Men.Name
    Remplir = False
End Sub


Private Sub Clo_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
    Clo.BackStyle = 1
End Sub


Private Sub Clo_Click()
    Clo.BackStyle = 0
    If Right(Clo.Name, 1) = "2" Then Raz_Fiche
End Sub