Private fBD As Object
Private LI As Integer
Private Sub UserForm_Initialize()
Set fBD = Sheets("INTERVENTIONS")
ChoixSR.List = Range("Bd_Numéro").Value
End Sub
Private Sub ChoixSR_Click()
Dim c As Range
Dim i As Integer
Me.ListBox1.Clear
Me.TextBox1.Value = ""
Me.TextBox5.Value = ""
Me.TextBox3.Value = ""
For Each c In fBD.Range("B2:B" & fBD.[B65000].End(xlUp).Row)
If CStr(c.Value) = Me.ChoixSR.Value Then
Me.ListBox1.AddItem c.Value
Me.ListBox1.List(i, 0) = c.Offset(, -1).Value
Me.ListBox1.List(i, 1) = c.Offset(, 4).Value
Me.ListBox1.List(i, 2) = c.Offset(, 5).Value
Me.ListBox1.List(i, 3) = c.Offset(, 10).Value
Me.ListBox1.List(i, 4) = c.Offset(, 29).Value
Me.ListBox1.List(i, 5) = c.Row
i = i + 1
End If
Next c
End Sub
Private Sub ListBox1_Change()
If Me.ListBox1.ListIndex <> -1 Then
LI = Me.ListBox1.Column(5, Me.ListBox1.ListIndex)
Me.TextBox1 = fBD.Range("I" & LI)
Me.TextBox3 = fBD.Range("W" & LI)
Me.TextBox5 = fBD.Range("AD" & LI)
End If
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim E As objet
Dim DEST As Range
Set E = Sheets("Export")
LI = Me.ListBox1.Column(5, Me.ListBox1.ListIndex)
With USFConsultation
.TextBox1.Value = fBD.Cells(LI, 1)
'idem pour les autres textboxes
'etc
.Show
End With
Set DEST = E.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0)
DEST.Value = fBD.Cells(LI, 1).Value
DEST.Offset(0, 1).Value = fBD.Cells(LI, 2).Value
DEST.Offset(0, 2).Value = fBD.Cells(LI, 3).Value
DEST.Offset(0, 3).Value = fBD.Cells(LI, 6).Value
DEST.Offset(0, 4).Value = fBD.Cells(LI, 7).Value
DEST.Offset(0, 5).Value = fBD.Cells(LI, 24).Value
DEST.Offset(0, 6).Value = fBD.Cells(LI, 27).Value
End Sub