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)..

[Invité]

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)..

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.

[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.

[Invité]

Dans ce cas:

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
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.

[Daranc]

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 :

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
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

[Sysmic76]

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 :

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
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 !

[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.

[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

[Sysmic76]

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 :

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

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

[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

[Philippe Tulliez]

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 :

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

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

Code VBA

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
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

[Sysmic76]

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