.Find multicritères + résultats multiples

Version imprimable

06/08/2013, 19h39
Sysmic76

.Find multicritères + résultats multiples

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.
06/08/2013, 19h46
mercatog

Un filtre automatique fera l'affaire
06/08/2013, 21h49
parmi

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

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

tu peux utiliser la structure suivante:

Code:

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.

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

Code:

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

08/08/2013, 10h07
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)..
08/08/2013, 10h30
Invité

Citation:

Envoyé par 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)..

Citation:

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.

Je n'ai fait que répondre à la question initiale.
08/08/2013, 20h39
Sysmic76

Je suis d'accord avec CodeFacile.

La solution du filtre ne convient pas à ce que je cherche à faire. Là je cherche à trouver les lignes correspondant à mes critères pour les insérer par la suite dans un combobox.

Mais malgré tout merci pour vos propositions.

Je vais tester la méthode que m'a proposé CodeFacile et je vous présenterai un code.

Dans ce cas:

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
Option Explicit
 
Public Sub Main()
 
  Call TriDonnees
  Call RemplirCombobox
 
End Sub
 
Private Sub TriDonnees()
 
  With ActiveSheet
    If .FilterMode = True Then .AutoFilterMode = False
    .UsedRange.AutoFilter Field:=1, Criteria1:="X"
    .UsedRange.AutoFilter Field:=2, Criteria1:="=05/08/2013"
  End With
 
End Sub
 
Private Sub RemplirCombobox()
 
  Dim rngC As Range
 
  With ActiveSheet
    .cmbTest.Clear
    For Each rngC In .UsedRange.SpecialCells(xlCellTypeVisible).Rows
      If rngC.Row > 1 Then
        .cmbTest.AddItem .Cells(rngC.Row, 3)
      End If
    Next rngC
  End With
 
End Sub

Avec 'cmbTest' le 'ComboBox' présent sur la feuille Excel.
Un exemple est donné en PJ.

ceci avec une liste en feuille 2 trois colonnes ABC
un Userform avec 2 textbox , 1 combobox et un command bouton
le code dans le commandbutton

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_Click()
Dim alim() As Variant
i = 1
With Sheets(2)
Tbl = .Range("a1:c" & .Range("a1").End(xlDown).Row)
End With
For t = 1 To UBound(Tbl, 1)
If Tbl(t, 1) = TextBox1.Value And Str(Tbl(t, 2)) = TextBox2.Value Then
ReDim Preserve alim(i)
alim(i) = Tbl(t, 3)
End If
Next
With ComboBox1
For t = 1 To UBound(alim, 1)
.AddItem alim(t)
Next
End With
End Sub

En utilisant la méthode de CodeFacile, voici un bout de code qui fait exactement ce que je veux et qui prend à peine 1s de traitement.

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
With Workbooks(AppelsXXXX).Worksheets("Appels")
 
        Set c = .Range("B3:B" & Dlg).Find(NumTermRech.Value, LookAt:=xlPart)
 
        If Not c Is Nothing Then
 
            first_row = c.Row
 
            Do
 
                If .Cells(c.Row, 6) = DateFormat Then
 
                    ConcatChxIncidt = .Range("H" & c.Row) + " | " + .Range("J" & c.Row)
 
                    ChoixIncident.AddItem ConcatChxIncidt
 
                End If
 
            Set c = .Range("B3:B" & Dlg).FindNext(c)
 
            Loop While Not c Is Nothing And c.Row <> first_row
 
        End If
 
    End With

Il est également possible d'utiliser un filtre comme proposé mais dans ce cas il faudra détecter la première ligne du filtre et la dernière pour pouvoir utiliser une liste pour l'ajout dans la comboxbox.

Merci à tous pour vos propositions !

09/08/2013, 13h26
Invité

Ma méthode est plus rapide car elle ne boucle par sur l'ensemble des lignes.
Mais bon la différence doit être minime.
09/08/2013, 14h13
patricktoulon

heu

Bonjour

si tu fait une recherche dans les contributions tu en trouvera une qui fait exactement ce que tu cherche j'en suis l'auteur
le theme est de trier les doublons sur plusieur colonne

il y a les deux methodes (avec dictionnaire ,avec variables tableaux )

au plaisir

Citation:

Envoyé par patricktoulon

Bonjour

si tu fait une recherche dans les contributions tu en trouvera une qui fait exactement ce que tu cherche j'en suis l'auteur
le theme est de trier les doublons sur plusieur colonne

il y a les deux methodes (avec dictionnaire ,avec variables tableaux )

au plaisir

Bonjour, j'utilise déjà ta méthode avec dictionnaire lors de l'initialisation de mon UserForm pour remplir certains combobox. Je dois avouer avoir cherché la meilleure façon de charger des combobox en le moins de temps possible et je n'ai pas trouvé mieux !
La seule méthode qui est plus rapide est d'utiliser une liste, mais ce n'était pas exploitable dans mon cas...

Si je ne me trompe pas, tu parles de ce code (adapté à une autre partie de mon code) :
Code:

1 2 3 4 5 6 7 8 9 With CreateObject("Scripting.Dictionary") .CompareMode = vbTextCompare For Each v In Worksheets("NumTerm").Range("A5:A" & DlgNumTerm) If Not IsEmpty(v.Value) And Not .exists(v.Value) Then .Add v, Nothing Me.CodeAgence.AddItem v End If Next v End With

10/08/2013, 14h18
patricktoulon

re

bonjour
c'est une solution mais incomplète

pour remplir ta liste tu boucle sur une plage de cellules hors dans mon exemple on boucle sur un tableau contenant la plage désignée ce qui accélère de 80% la rapidité d'exécution du tri ,ce qui n'est pas négligeable quand on a un listing avec beaucoup de lignes

retourne voir mon exemple et analyse le code tu comprendra mieux

Au plaisir

Bonjour,
Je sais cette discussion résolue mais voici une autre approche basée sur le filtre avancé d"excel et en utilisant la propriété RowSource du ComboBox.
Cette procédure nécessite une feuille (qui peut-être cachée) et qui contiendra le résultat de la sélection et qui servira de référence pour la propriété RowSource.
Code à lancer par exemple à l'ouverture du UserForm ou lors d'un changement de sélection. Il faudra alors paramétrer la formule contenue dans la variable myFormula qui elle même pour le besoin de la démonstration est figée.
La formule placée par le programme en cellule A2 (zone des critères) est

Code:

=ET(db!D2="H";MOIS(db!E2)=1;ANNEE(db!E2)=2013)

Code VBA
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub AlimenteCombobox() Dim rngData As Range, rngExport As Range, rngCriteria As Range Dim myFormula As String Set rngData = ThisWorkbook.Worksheets("db").Range("A1").CurrentRegion With shtExport ' CodeName de la feuille Export Set rngExport = .Range("C1") Set rngCriteria = .Range("A1:A2") End With myFormula = "=AND(db!RC[3]=""H"",MONTH(db!RC[4])=1,YEAR(db!RC[4])=2013)" With rngCriteria ' Placement des critères .Cells(1).Value = "critère": .Cells(2).Formula = myFormula End With ' Exportation suivant critères rngData.AdvancedFilter xlFilterCopy, rngCriteria, rngExport ' Affectation nouvelle valeur rngExport pour RowSource With rngExport.CurrentRegion Set rngExport = .Offset(1).Resize(.Rows.Count - 1) End With ' Alimentation du ComboBox With rngExport Me.cbFiltre.RowSource = .Worksheet.Name & "!" & .Address End With End Sub

10/08/2013, 18h09
Sysmic76

Citation:

Envoyé par patricktoulon

bonjour
c'est une solution mais incomplète

pour remplir ta liste tu boucle sur une plage de cellules hors dans mon exemple on boucle sur un tableau contenant la plage désignée ce qui accélère de 80% la rapidité d'exécution du tri ,ce qui n'est pas négligeable quand on a un listing avec beaucoup de lignes

retourne voir mon exemple et analyse le code tu comprendra mieux

Au plaisir

Si tu peux me redonner le lien ce serait sympa, j'étais tombé dessus lors d'une recherche mais je ne me souviens plus laquelle. Et en plus, ça aidera certainement d'autres personnes de passage sur ce post ;)