Bonjour le Forum
En double cliquant sur n'importe quel item de ma listbox1, userform2 s'ouvre, et le ComboBox1 de la useform2 prend automatiquement la valeur de l'item de la listbox1 sur lequel j'ai double cliqué.
Tout fonctionne correctement, sauf quant j'effectue un filtre de ma listbox1, quand le filtre est appliqué, le doubleclic ne donne pas la valeur exacte, il renvoie une autre valeur non affichée dans la listbox.
est ce que quelqu’un peut m'aider à rectifier mon code ?
code doubleclique listbox
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim ligne
On Error Resume Next
ReDim TbListbox(1 To ListBox1.ColumnCount)
ligne = ListBox1.ListIndex
For x = 1 To ListBox1.ColumnCount
TbListbox(x) = ListBox1.List(ligne, x - 1)
Next x
UserForm11.Show
End Sub
le code d'initialisation de la userfom2
Private Sub UserForm_Initialize()
UserForm2.ComboBox1.Value = Worksheets("BD").Cells(UserForm1.ListBox1.ListIndex + 2, "F")
Sheets("bd").Activate
Dim no_ligne As Integer
no_ligne = ComboBox1.ListIndex + 2
ComboBox1.Value = Cells(no_ligne, 6).Value
ComboBox2.Value = Cells(no_ligne, 3).Value
ComboBox3.Value = Cells(no_ligne, 4).Value
ComboBox4.Value = Cells(no_ligne, 5).Value
'ComboBox5.Value = Cells(no_ligne, 6).Value
ComboBox6.Value = Cells(no_ligne, 1).Value
TextBox1.Value = Cells(no_ligne, 2).Value
TextBox2.Value = Cells(no_ligne, 8).Value
TextBox3.Value = Cells(no_ligne, 9).Value
TextBox4.Value = Cells(no_ligne, 10).Value
TextBox5.Value = Cells(no_ligne, 11).Value
TextBox6.Value = Cells(no_ligne, 12).Value
Cells(no_ligne, 1).Select
ActiveCell.EntireRow.Select
End Sub