Discussion :

[alidroos]

Bonjour à tous

Je veux qu'un code recherche une valeur Exemple:



Lors de la recherche de numéros spécifiques
Les résultats de recherche montrent qu'un seul numéro de facture

[alidroos]

Une photo pour expliquer la demande

[alidroos]

Tout d'abord les classes pour chaque classe dans une matrice distincte
Deuxièmement les numéros de facturation dans chaque matrice

Malheureusement j'ai essayé de créer un code que je n'ai pas pu compléter

[BENNASR]

Bonjour sidiAli
je sais pas si j'ai bien compris la demande : recherche une liste de 3 articles entre deux date pour alimenter un listbox
si c'est ça voila ce que je propose :

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 CommandButton1_Click()
ListBox1.Clear
Dim O As Worksheet
Set O = Sheets("Feuil1")
Dim Derlig As Long
Dim Lista As Variant
Application.ScreenUpdating = False
Derlig = O.Cells(Rows.Count, 1).End(xlUp).Row
CR1 = ComboBox1.Value
CR2 = ComboBox2.Value
CR3 = ComboBox3.Value
CR4 = CDate(TextBox1.Value)
CR5 = CDate(TextBox2.Value)
 If O.AutoFilterMode = True Then
  O.AutoFilterMode = False
 End If
  O.Range("B1").AutoFilter Field:=2, Criteria1:=">=" & CLng(CR4), Operator:=xlAnd, Criteria2:="<=" & CLng(CR5)
 O.Range("F1").AutoFilter Field:=6, Criteria1:=Array(CR1, CR2, CR3), Operator:=xlFilterValues
 With ListBox1
    .ColumnCount = 6
    .List = Range("A2:F" & Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Value
End With
 O.ShowAllData
Application.ScreenUpdating = True
End Sub
 
 
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 2 To Sheets("feuil1").Range("A65536").End(xlUp).Row
  ComboBox1 = Sheets("feuil1").Range("F" & i)
  ComboBox2 = Sheets("feuil1").Range("F" & i)
  ComboBox3 = Sheets("feuil1").Range("F" & i)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("feuil1").Range("F" & i)
  If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem Sheets("feuil1").Range("F" & i)
  If ComboBox3.ListIndex = -1 Then ComboBox3.AddItem Sheets("feuil1").Range("F" & i)
Next i
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
 
End Sub

à tester et revenir avec plus de précision si c'est pas ce que tu cherches

[alidroos]

Merci pour votre interaction monsieur BENNASR

Je souhaite rechercher des articles dans divers états de facturation afin que les résultats ne figurent que dans une facture

Exemple de recherche d'articles

1- 152322
2- 152324
3- 152326

Dans les données

Facture	Date	La façon	Numéro Client	Nom du compte	N° Article
1	15/01/2020	A	1122	VENTE	152322
2	16/01/2020	A	1122	VENTE	150000
3	17/01/2020	A	1122	VENTE	152322
4	18/01/2020	A	1122	VENTE	150000
1	19/01/2020	A	1122	VENTE	152324
5	20/01/2020	A	1122	VENTE	150000
1	21/01/2020	A	1122	VENTE	152326
52	22/01/2020	A	1122	VENTE	150000
95	23/01/2020	A	1122	VENTE	152326
2	16/01/2020	A	1122	VENTE	150000
3	17/01/2020	A	1122	VENTE	152322
3	19/01/2020	A	1122	VENTE	152324

Les résultats apparaissent en rouge uniquement de sorte que la recherche prédit les factures des articles si les articles spécifiés sont présents dans une facture spécifique

[BENNASR]

joindre un fichier test sans données confidentielles et expliquer avec un exemple concret
je réponds demain car je quitte mon bolo ds 10 minutes