zesuila
XLDnaute Occasionnel
Bonjour à tous
Hier pour la première fois j'ai ENFIN pu aider un excelien
Mais aujourd'hui c'est moi qui demande votre aide
EN faisant une recherche sur la façon de faire une listbox de recherche j'étais tombé su un post de Evelynetfrancois aidé par Vériland et Michel
Lien supprimé
Et voilà ce qui m'a intéressé
Private Sub TextBox1_Change()
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
ListBox1.Clear
N = 0
Recherche = TextBox1.Value
Range('A1').Select
Ligne = Feuil1.Range('B' & '65536').End(xlUp).Row
Set Plage = Feuil1.Range('B' & '2:' & 'B' & Ligne)
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
ListBox1.AddItem C.Offset(0, -1), N
ListBox1.List(N, 1) = C
ListBox1.List(N, 2) = C.Offset(0, 1)
ListBox1.List(N, 3) = C.Offset(0, 2)
ListBox1.List(N, 4) = C.Offset(0, 3)
N = N + 1
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
End Sub
Cela concerne donc pour mon cas perso la recherche d'un article sur la colonne B et le résultat se met dans la textbox avec en A le code, en B, la désignation, en C le secteur et en D la page.
Mais voilà, je voudrais que cela concerne la recherche en colonne A
et là j'ai un message d'erreur sur la ligne 'ListBox1.AddItem C.Offset(0, -1), N'
J'ai bien changé la colonne ici
Ligne = Feuil1.Range('B' & '65536').End(xlUp).Row
Set Plage = Feuil1.Range('B' & '2:' & 'B' & Ligne)
mais rien n'y fait
Je crois que cela vient de listebox add item mais je n'arrive pas à trouver.
Alors si Vériland, Michel passe dans le coin (ou un autre ami excelien bien sûr ) je suis preneur. Et si en même temps on peut m'expliquer le truc cela serait génial.
D'avance Merci
Zesuila
Hier pour la première fois j'ai ENFIN pu aider un excelien
Mais aujourd'hui c'est moi qui demande votre aide
EN faisant une recherche sur la façon de faire une listbox de recherche j'étais tombé su un post de Evelynetfrancois aidé par Vériland et Michel
Lien supprimé
Et voilà ce qui m'a intéressé
Private Sub TextBox1_Change()
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
ListBox1.Clear
N = 0
Recherche = TextBox1.Value
Range('A1').Select
Ligne = Feuil1.Range('B' & '65536').End(xlUp).Row
Set Plage = Feuil1.Range('B' & '2:' & 'B' & Ligne)
With Plage
Set C = .Find(Recherche)
If Not C Is Nothing Then
Adresse = C.Address
Do
ListBox1.AddItem C.Offset(0, -1), N
ListBox1.List(N, 1) = C
ListBox1.List(N, 2) = C.Offset(0, 1)
ListBox1.List(N, 3) = C.Offset(0, 2)
ListBox1.List(N, 4) = C.Offset(0, 3)
N = N + 1
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Adresse
End If
End With
End Sub
Cela concerne donc pour mon cas perso la recherche d'un article sur la colonne B et le résultat se met dans la textbox avec en A le code, en B, la désignation, en C le secteur et en D la page.
Mais voilà, je voudrais que cela concerne la recherche en colonne A
et là j'ai un message d'erreur sur la ligne 'ListBox1.AddItem C.Offset(0, -1), N'
J'ai bien changé la colonne ici
Ligne = Feuil1.Range('B' & '65536').End(xlUp).Row
Set Plage = Feuil1.Range('B' & '2:' & 'B' & Ligne)
mais rien n'y fait
Je crois que cela vient de listebox add item mais je n'arrive pas à trouver.
Alors si Vériland, Michel passe dans le coin (ou un autre ami excelien bien sûr ) je suis preneur. Et si en même temps on peut m'expliquer le truc cela serait génial.
D'avance Merci
Zesuila
