Discussion :

[Sysmic76]

Bonjour à tous !

Je cherche à faire une recherche dans un fichier excel afin d'exploiter les résultats, jusque là rien de trop compliqué.
Le problème est que dans un cas, j'ai besoin de faire une recherche sur 2 critères d'une même ligne.

Exemple :

Col 1 Col2 Col3

X 05/08/13 Blabla

Il faut que toutes les lignes comportant un X et la date 05/08/13 soient insérées dans un combobox (je pense que cette partie ne me posera pas de problème).

Je coince vraiment sur la partie de recherche multicritères. De ce que j'ai pu voir sur le net, c'est pas possible mais peut être que quelqu'un a une solution...

Je n'ai pas de début de code à vous présenter puisque tout ce que j'ai pu essayer jusqu'à présent ne fonctionne pas... Si vous avez une proposition, je ferai un bout de code pour le présenter ici.

[mercatog]

Un filtre automatique fera l'affaire

[parmi]

Sinon, tu peux peut-être incorporer une colonne et y concaténer les valeurs de recherche.

[CodeFacile]

Tu peux avoir plusieurs conditions ( ou critéres mais on est en VBA ):


tu peux utiliser la structure suivante:

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
 
'le critére 1 s'applique à une plage colonne 1
with range ("A1:A5" )
  set c= = .Find("toto", LookAt:=xlPart ) 
 
 If Not c Is Nothing Then
    first_row = c.Row
   Do
 
       'traitement
  'tu testes le critere suivant , exemple la valeur  colonne 3 = "toto3"
 
if cells ( c.row , 3).value =   "toto3"  then 
 
           tu enrichis le combobox avec la valeur trouvée dans cellule ( A et c.row )   et  cellule ( C et c.row )
end if 
 
       Set c = .FindNext(c)
    Loop While Not c Is Nothing And <> first_row
 end if 
 
end with

'tu peux mettre autant de if que de critére.
et pour avoir un résultat le plus rapide tu fais le find sur la colonne qui est la plus discriminante.

[Invité]

Il suffit de filtrer les deux colonnes en question avec un simple filtre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Public Sub TriDonnees()
 
  With ActiveSheet
    If .FilterMode = True Then .AutoFilterMode = False
    .UsedRange.AutoFilter Field:=1, Criteria1:="X"
    .UsedRange.AutoFilter Field:=2, Criteria1:=CDate("5/8/2013")
  End With
 
End Sub

[CodeFacile]

D'accord mais c'est pas avec un filtre que l'on remplit la Combo.
Pour moi la solution passe par VBA ( on est dans le forum VBA)..