bonjour,
je veut effectuer une recherche dans une base excel, j'ai les données sur une feuil"sortie_stock" je voulais donc afficher le resultat dans une listbox lorsque je tape une valeur de la colonne "A" ou "B". j'ai trouvé un code sur un forum mais il ne peut pas afficher les valeur de la colonne de gauche. c'est-à-dire si la valeur à rechercher est dans la colonne "B" je ne voit pas la valeur de "A"

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Sub ComboBox2_Change()
'ajuster la taille de listebox
ListBox2.ColumnWidths = "200;100;100;100;200"
Dim Plage As Range, cell As Range
Dim Recherche As String, Adresse As String
Dim Ligne As Integer, n As Integer
Dim C As Range
ListBox2.Clear
n = 0
Recherche = Me.ComboBox2.Value
'Range("e2").Select
'Ligne = Sheets("Base De Données").Range("a" & "65536").End(xlUp).Row
Ligne = Sheets("sortie_stock").Range("a" & "1000").End(xlUp).Row
 
Set Plage = Sheets("sortie_stock").Range("a" & "2:" & "a" & Ligne)
 
With Plage
Set C = .Find(Recherche, LookIn:=xlValues)
If Not C Is Nothing Then
Adresse = C.Address
Do
If UCase(Recherche) = UCase(Left(C, Len(Recherche))) Then
    'If (Recherche) = (Left(C, Len(Recherche))) Then
'ListBox1.AddItem C.Offset(0, 0), n
ListBox2.AddItem C.Offset(0, 0), n
 
        ListBox2.List(n, 0) = C
         ListBox2.List(n, 1) = C.Offset(0, 1)
          ListBox2.List(n, 2) = C.Offset(0, 2)
           ListBox2.List(n, 3) = C.Offset(0, 3)
            ListBox2.List(n, 4) = C.Offset(0, 4)
             'ListBox1.List(n, 5) = C.Offset(0, 5)
                n = n + 1
                End If
 
         Set C = .FindNext(C)
 
     Loop While Not C Is Nothing And C.Address <> Adresse
 
End If
End With
End Sub
je veut un code pouvant afficher la cellule de "A" et toute les autre sur la mem ligne, meme si je cherche dans "B"