Remplir listbox résultat d'une recherche

Version imprimable

Bonjour à tous et merci beaucoup pour l'esprit d'entraide
à l'aide d'un code trouvé sur ce site j'arrive à chercher un montant dans un tableau excel
je cherche à ce que le résultat ne s'affiche pas dans un message mais dans un listbox
colonne : a/ b/c/d/e/f/g/h
et si je clique sur le résultat l'userform se ferme et directe sur le résultat cible sur la feuille excel
voila mon code et merci d'avance
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub CommandButton1_Click() Dim plage As Range Set plage = ThisWorkbook.Worksheets("Mouvement").Range("G11:H5000") Monchiffre = CDbl(UserForm10.TextBox1.Value) For Each cell In plage If cell.Value = Monchiffre Then MsgBox cell.Address & " est l' adresse de la valeur: " & cell.Value End If Next cell End Sub

Bonjour,
Code:

1 2 3 If cell.Value = Monchiffre Then Userform10.Listbox1.AddItem cell.Value 'ou MonChiffre - change les noms du Userform et Listbox selon ... End If
Lorsque tu click la valeur de la listbox, tu fais le même genre recherche dans ta plage

Merci pour la réponse rapide
le resultat figure en H ou G
est il possible d'insérer dans la listbox toute la ligne du résultat trouvé depuis colonne A à F
merci encore

j'ai bricoler ça
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub CommandButton1_Click() Dim plage As Range Set plage = ThisWorkbook.Worksheets("Mouvement").Range("G11:H" & [H65536].End(xlUp).Row) Monchiffre = CDbl(UserForm10.TextBox1.Value) For Each cell In plage If cell.Value = Monchiffre Then UserForm10.ListBox1.AddItem UserForm10.ListBox1.Column(0, i) = cell.Address UserForm10.ListBox1.Column(1, i) = cell(0, -5) UserForm10.ListBox1.Column(2, i) = cell(0, -6) UserForm10.ListBox1.Column(3, i) = cell(0, -2) UserForm10.ListBox1.Column(4, i) = cell.Value End If Next cell End Sub
mais ça donne que le dernier résultat alors que peut avoir plus q'un résultat donc je souhaite que le listbox enregistre tous les résultats
( à introduire i comme variable et vi que chui limité en VBA j'ai pas arrivé a une solution
autre problème : si le résultat trouvé figure en colonne H il y aura une erreur en ça : UserForm10.ListBox1.Column(2, i) = cell(0, -6) et c'est normal vu qu'il ya pas G - 6 mais ça fonctionne si le résultat en H (parfois mouvement débit et parfois mouvement crédit)
aussi si c'est possible de cliquer sur la ligne figurant ds le listbox qui se ferme et je me trouve sur la ligne excel souhaitée
merci d'avance et bonne soirée

24/03/2016, 18h42
parmi
Il faudrait que tu expliques un peu mieux ce que ta plage contient, ce que tu veux vérifier et ce que tu veux mette dans ta listbox.

Ta plage va G11 à Hxx
MonChiffre doit être égal à quoi ? G, H ou un des 2 ?

En passant, pour écrire des valeurs dans plusieurs colonnes d'une listbox, tu dois ajouter un Item (AddItem) et remplir les "cellules" de cette ligne de la Listbox => Listbox.List(Ligne, Colonne)
Code:

1 2 3 Listbox1.AddItem Listbox1.List(Listbox1.Recordcount - 1, 0) = Range("G" & I) 'première valeur (1ere colonne) Listbox1.List(Listbox1.Recordcount - 1, 1) = Range("H" & I) 'colonne 2 de la Listbox

Merci parmi pour la réponse ; bonjour tous le monde
voila mon code qui effectue le recherche dans la feuil "Mouvement" et insère les valeurs trouvé ds un liste box
je cherche maintenant le chemin inverse : cliquer dans la ligne de la LISBOX pour aller sur le feuille "Mouvement" et exactement sur la ligne recherché : Grand merci d'avance

Code:

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
Private Sub CommandButton1_Click()
Dim plage As Range
Set plage = ThisWorkbook.Worksheets("Mouvement").Range("H11:H" & [A65536].End(xlUp).Row)
Set plage1 = ThisWorkbook.Worksheets("Mouvement").Range("G11:G" & [A65536].End(xlUp).Row)
Monchiffre = CDbl(UserForm10.TextBox1.Value)
 i = 0
For Each Cell In plage
 If Cell.Value = Monchiffre Then
    UserForm10.ListBox1.ColumnCount = 6
    UserForm10.ListBox1.ColumnWidths = "50pt;70pt;40pt;180pt;55pt;55pt"
    UserForm10.ListBox1.AddItem
    UserForm10.ListBox1.Column(0, i) = Cell.Address
    UserForm10.ListBox1.Column(1, i) = Cell(1, -5)
    UserForm10.ListBox1.Column(2, i) = Cell(1, -6)
    UserForm10.ListBox1.Column(3, i) = Cell(1, -2)
     UserForm10.ListBox1.Column(4, i) = 0
    UserForm10.ListBox1.Column(5, i) = Cell.Value
    i = i + 1
 End If
    Next Cell
 
 For Each Cell In plage1
 If Cell.Value = Monchiffre Then
    UserForm10.ListBox1.ColumnWidths = "50;70;40;180;55;55"
    UserForm10.ListBox1.AddItem
    UserForm10.ListBox1.Column(0, i) = Cell.Address
    UserForm10.ListBox1.Column(1, i) = Cell(1, -4)
    UserForm10.ListBox1.Column(2, i) = Cell(1, -5)
    UserForm10.ListBox1.Column(3, i) = Cell(1, -1)
     UserForm10.ListBox1.Column(4, i) = Cell.Value
    UserForm10.ListBox1.Column(5, i) = 0
    i = i + 1
 End If
    Next Cell    
End Sub

Tu peux essayer quelque chose comme ceci
Je préfère le double-click, mais tu peux faire la même chose sur Click

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim Recherche As Range
 
    'Fait la recherche de l'item en colonne 6 (Index 5) de la ligne sélectionnée de la Listbox
    Set Recherche = Sheets("Mouvement").Columns("G:H").Find(ListBox1.List(ListBox1.ListIndex, 5), LookIn:=xlValues, LookAt:=xlWhole)
    If Not Recherche Is Nothing Then
        Sheets("Mouvement").Activate
        Range(Recherche.Address).Select  'sélectionne la valeur
    End If
 
    Set Recherche = Nothing
    Unload Me
End Sub