Discussion :

[khroutchev]

Bonjour,
tout simplement j'aimerais faire une recherche dans lequel l'utilisateur renseigne 1 ou 2 critères. Ces renseignements sont entrés par l'utilisateur dans une cellule sur la première feuille (il s'agit d'un code ou numéro).
Une fois ce(s) critères rentré(s), le but est de resortir l'ensemble des informations (en l'occurence 5 champs dont les 2 critères font partis) ,sur les 4 feuilles de données , qui correspondent au(x) critère(s).
Je joint un fichier qui synthétise le programme visé.
Merci d'avance, en espérant avoir été clair

[EngueEngue]

devrait aller:

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
option explicit
Sub toto()
Dim i as long, j as long, k as long
Dim Num1 as string, Num2 as string
Num1=Sheets("Outil de recherche").range("J4")
Num2=Sheets("Outil de recherche").range("K4")
For i = 1 to 4
For j = 2 to Sheets("données " & i).range("A" & rows.count).end(xlup).row
If Sheets("données " & i).cells(j,1) = Num1 and Sheets("données " & i).cells(j,2) = Num2 then
Sheets("Outil de recherche").cells(4+k,2) = Num1
Sheets("Outil de recherche").cells(4+k,3) = Num2
Sheets("Outil de recherche").cells(4+k,4) = Sheets("données " & i).cells(j,3)
Sheets("Outil de recherche").cells(4+k,5) = Sheets("données " & i).cells(j,4)
Sheets("Outil de recherche").cells(4+k,6) = Sheets("données " & i).cells(j,5)
k=k+1
end if
next j
next i
end sub

[khroutchev]

Ceci est à mettre dans un module ?
Dois-je faire appelle à une fonction dans feuille1 intitulée "Outil de recherche" ?
Merci pour ton code

[EngueEngue]

Dans un module par exemple... C'est un sub.. pas une fonction. Tu peux l'appeler depuis un bouton, un userform, des touches ou depuis l'éditeur vba