Private Sub ListBox1_Click()
Me.NumCall = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
Select Case Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
Case "Basse"
Me.OptionButtonPrioriteBasse.Value = True
Case "Moyenne"
Me.OptionButtonPrioriteMoyenne.Value = True
Case "Haute"
Me.OptionButtonPrioriteHaute.Value = True
End Select
Me.TextBoxDateDuJour = Me.ListBox1.List(Me.ListBox1.ListIndex, 2)
pas trouvé ou mettre solution
Me.ComboTypeCall.Text = Me.ListBox1.List(Me.ListBox1.ListIndex, 4)
Me.ResaCmde = Me.ListBox1.List(Me.ListBox1.ListIndex, 5)
Me.Outbound = Me.ListBox1.List(Me.ListBox1.ListIndex, 6)
Me.Article = Me.ListBox1.List(Me.ListBox1.ListIndex, 7)
End Sub