Private Sub UserForm_Initialize()
Dim sEquipement As String, sOrgane As String, LigF As Long
' Inscrire les valeur de l'USF MenuPrincipal
With Menuprincipal
Me.Label2.Caption = .ListBox1.List(.ListBox1.ListIndex)
Me.Label4.Caption = .ListBox2.List(.ListBox2.ListIndex, 0)
Me.Label6.Caption = .ListBox2.List(.ListBox2.ListIndex, 1)
Me.TextBox2.Value = .ListBox2.List(.ListBox2.ListIndex, 2)
End With
' Récupérer les valeurs à filtrer dans l'Userform parent
sEquipement = Me.Label2.Caption: sOrgane = Me.Label4.Caption
' Effectuer le filtrage de la feuille BaseMaintenance
With Sheets("BaseMaintenance")
With .Range("A1:F1")
.AutoFilter
.AutoFilter Field:=1, Criteria1:=sEquipement
.AutoFilter Field:=2, Criteria1:=sOrgane
End With
' Trouver le numéro de la dernière ligne visible
LigF = .Range("A" & Rows.Count).End(xlUp).Row
' Si le numéro de la ligne est supérieur à celui de l'entète
If LigF > 1 Then
Me.Label13.Caption = .Cells(LigF, 4)
Me.Label12.Caption = .Cells(LigF, 5)
Me.Label11.Caption = .Cells(LigF, 6)
Else
Me.Label13.Caption = "": Me.Label12.Caption = "": Me.Label11.Caption = ""
End If
.ShowAllData
End With
End Sub