Bonjour tout le monde,
j'ai un problème avec ma listbox et je ne sais pas la raison .
bon j'ai une feuille ou les données sont stockés , je cherche les données avec un bouton chercher , après ils s'affichent dans ma listbox , je sélectionne une valeur et elle s'affiche dans mon tableau, cela fonctionne parfaitement , mais quand j'ai changé les paramètres de la listbox vers multi select , mon code ne fonctionne plus .
le voila :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub CommandButton1_Click()
 
 
      Dim Msg As String
      Dim i, j  As Integer
      j = 4
      Msg = "You selected" & vbNewLine
      For i = 0 To ListBox1.ListCount - 1
          If ListBox1.Selected(i) Then
              Msg = Msg & ListBox1.List(i) & vbNewLine
          ActiveCell = ListBox1.Value
 
        Unload Me
         End If
      Next i
      With Worksheets("BPU")
       While .Cells(j, 3).Value <> ActiveCell.Value
       j = j + 1
       Wend
       ActiveCell.Offset(0, 1).Value = .Cells(j, 5).Value
       ActiveCell.Offset(0, 2).Value = .Cells(j, 4).Value
 
 
       End With
 
      MsgBox Msg
      Unload Chercher
  End Sub
Merci d'avance.