[EXCEL]Recherche multi-critères dans un tableau

Question

Bonjour &#224; tous 

Etant en train d'&#233;baucher un projet sous Excel, je me retrouve confront&#233; &#224; un double-probl&#232;me, mais dont la racine est la m&#234;me.

Le contexte du 1er probl&#232;me:
---------------------------------
Je dispose d'un tableau &#224; plusieurs colonnes. Je cherche dans un premier temps &#224; ce que ne soit pris en compte que les lignes de la derni&#232;re colonne avec pour crit&#232;res ce qu'il y a dans les colonnes 2 et 3.

Par exemple dans la colonne 1, je disposerais des dates sur une ann&#233;e. Dans la colonne 2, j'aurais "Culture" avec pour donn&#233;es "bl&#233;", "orge", et "tournesol". Dans la colonne 3, j'aurais "Agriculteur" avec pour donn&#233;es "Michel", "Jacques" et "Pierre". Enfin, dans la derni&#232;re colonne, j'aurais les quantit&#233;s correspondantes.
Ainsi, on peut imaginer qu'&#224; la ligne 2, j'aurais par exemple "10/06/2005" - "bl&#233;" - "Michel" - "30".

Maintenant, comment faire pour ne s&#233;lectionner que les lignes contenant par exemple "Orge" en colonne 2 et "Michel" en colonne 3? La finalit&#233; &#233;tant de donner le nb de fois o&#249; Michel a eu de l'orge. J'ai tent&#233; le NB.SI, mais cette fonction ne marche qu'avec un seul crit&#232;re de colonne...

Le contexte du 2nd probl&#232;me:
----------------------------------
Toujours dans un tableau &#224; plusieurs colonnes, la derni&#232;re affichant des donn&#233;es cibl&#233;es. Imaginons que dans la colonne 1 j'ai des entreprises "Moulinex", "Seb" et "Braun". Dans la 2&#232;me colonne, j'ai le nom de quelques employ&#233;s 
"Michel", "Jacques" et "Pierre" 
qui travaillent pour les 3 entreprises et dans la derni&#232;re le nb d'heures mensuelles de ces employ&#233;s pour chaque entreprise.
Ainsi, on peut imaginer qu'&#224; la ligne 2, j'aurais par exemple "Moulinex" - "Pierre" - "80".

Comment donc faire pour trouver le minimum d'heures travaill&#233;es pour une entreprise donn&#233;e, sachant que les donn&#233;es ne sont pas tri&#233;es par entreprise?

Exemple:
Seb --------- Michel ----- 90
Moulinex --- Pierre ------ 80
Seb --------- Jacques --- 45
Braun ------- Pierre ----- 85
Moulinex --- Jacques --- 50

Le r&#233;sultat de ma fonction, si le crit&#232;re est "Moulinex" devrait &#234;tre "50".

Voil&#224; c'est long mais c'est pour &#234;tre le plus clair possible 
Je pr&#233;cise qui ce n'est pas possible avec des fonctions Excel, l'option VBA est tout &#224; fait envisageable.
Merci d'avance

FaroukVazaha · Answer

Pour ton 2ème problème la fonction à utiliser est : bdmin col A Col B Col C ---- 1 Société , , , ---- 2 Moulinex , , , ---- 3, , , ---- 4, , , ---- 5 Société, Employé, Heures, ---- 6 Seb , Michel , 90, ---- 7 Moulinex , Pierre , 80, ---- 8 Seb , Jacques , 45, ---- 9 Braun , Pierre , 85, ---- 10 Moulinex , Jacques , 50 Cette Phrase est à mettre en A11 mergé jusqu'à C11 "Nombre d'heures minimum de la société " & A2 &" " En D11 la fonction est : =BDMIN(A5:C10;"Heures";A1:A2) Il suffit de changer le nom de la société en A2 pour avoir le nb mini d'heure de cette société. Pour ton premier pb je pense qu'avec un =si(et(critère1;critère2);vrai;faux) tu devrais le resoudre facilement en 2 étapes. Une première étape ecrirait un 1 dans la colonne complètement à doite, et il te suffira de faire le total de cette colonne pour connaitre le nb de fois ou etc.... Si cela a solutionner tes soucis en partie c'est génial. Bon courage. Farouk

valtrase · Answer

Lut, Pour ton premier prob je t'ai trouver cela sur la toile '=Count2Ifs(A2:A17;"=";10;B2:B17;">";1 Function Count2Ifs(range1, equality1, value1, range2, equality2, value2) 'equality1 and equality2 could be =,>,<,<>,<=,>= Const EvalStrings = ".>.<.<>.<=.>=.=." If range1.Cells.Count <> range2.Cells.Count Then Count2Ifs = CVErr(xlErrRef) Exit Function End If If InStr(1, EvalStrings, "." & equality1 & ".") = 0 _ Or InStr(1, EvalStrings, "." & equality2 & ".") = 0 Then Count2Ifs = CVErr(xlErrValue) Exit Function End If Dim i As Long Dim countt As Long Dim eval1 As String Dim eval2 As String countt = 0 For i = 1 To range1.Cells.Count eval1 = range1.Cells(i) & equality1 & value1 eval2 = range2.Cells(i) & equality2 & value2 If Evaluate(eval1) And Evaluate(eval2) Then countt = countt + 1 End If Next i Count2Ifs = countt End Function Cordialement, Jean-Paul ______________________________________________________________________ Le Savoir n'a de valeur que s'il est partagé

NicoRep · Answer

Merci beaucoup pour vos r&#233;ponses! 

A vrai dire, pour le probl&#232;me1, j'ai planch&#233; dessus hier soir, apr&#232;s avoir tent&#233; d'appliquer la solution de FaroukVazaha. H&#233;las elle ne me convenait pas, car dans mon tableau, il existe une multitude de variable dans chaque colonne; cela aurait fait beaucoup trop de rajout au tableau.

Donc j'ai fini par passer sur VBA. Mais m&#234;me si le "codage" de FaroukVazaha ne me convenait pas, j'ai conserv&#233; l'id&#233;e de faire en 2 &#233;tapes; voil&#224; comment j'ai fait:

 Sub Analyse_clients()
c = 5
i = 4
' Selection de la premi&#232;re cellule du tableau &#224; consid&#233;rer, puis d&#233;termination de la taille du tableau
a = Cells(9, 2)
Sheets("Historique relations clients").Select
Range("B4").Select
b = ActiveCell.CurrentRegion.Rows.Count
PasFini = True
' Extraction des &#233;v&#232;nements correspondants &#224; un num&#233;ro de client donn&#233;, dans un autre tableau, par analyse descendante du tableau "Historique"
While PasFini
d = Cells(i, 2)
    If d = a Then
        Cells(i, 3).Select
        Selection.Copy
        Cells(c, 10).Select
        ActiveSheet.Paste
        Cells(i, 4).Select
        Selection.Copy
        Cells(c, 9).Select
        ActiveSheet.Paste
        Cells(i, 5).Select
        Selection.Copy
        Cells(c, 11).Select
        ActiveSheet.Paste
        c = c + 1
   End If
i = i + 1
    If i = b + 2 Then
        PasFini = False
    End If
Wend
' Copie du tableau dans la feuille d'analyse client&#232;le, puis tri par date
Range("I5").Select
ActiveCell.CurrentRegion.Select
Selection.Copy
Selection.Clear
Sheets("Analyse client&#232;le actuelle").Select
Range("E5").Select
ActiveSheet.Paste
Selection.Sort Key1:=Range("E5"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
CutCopyMode = False
End Sub
 
Ainsi, dans ma premi&#232;re feuille, j'obtiens un tableau o&#249; un crit&#232;re a d&#233;j&#224; &#233;t&#233; utilis&#233;. Il ne me reste plus qu'&#224; utiliser un NB.SI pour le second crit&#232;re 

Je n'ai en revanche pas encore commencer &#224; plancher sur le 2nd probl&#232;me...

NB: comme vous pouvez le voir dans mon code, je s&#233;lectionne chaque cellule &#224; copier s&#233;par&#233;ment, car la fonction Range ne permet que la s&#233;lection de 2 Cells. Comment faire pour que je puisse copier une ligne avec 3 Cells?

Merci

[auteurdetail.aspx?ID=294617 ]

valtrase · Answer

Testes ce que j'ai trouv&#233; sur la toile c'est une fonction NB.SI &#224; deux crit&#232;res que tu peux mettre dans tes cellules !!!

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

FaroukVazaha · Answer

---- Date , Culture, Agriculteur, Resultat du test, Critères :, maïs, michel, A7, B7, C7, ---- 01/01/2005, Blé, Michel, , , , , , , , ---- 01/02/2005, Orge, Pierre, , , , , , , , ---- 01/03/2005, Maïs, Bernard, , , , , , , , ---- 01/04/2005, Carotte, Bernard, , , , , , , , ---- 01/05/2005 , Orge, Michel, , , , , , , , ---- 01/06/2005 , Maïs, Michel, 1, , , , , , , ---- 01/07/2005, Blé, Pierre, , , , , , , , ---- , , , , , , , , , , ---- 01/06/05 , Maïs, Michel 10 colonnes sont nécessaires. A1=Date B1= culture C1=Agriculteur D1= Resultat du test E1=Criteres : F1=valeur du 1er critère G1=Valeur du 2ème critère Pour la bonne regle il faut nommer : la colonne de A2 à A9 : ColDate la colonne de B2 à B9 : ColProduit la colonne de C2 à C9 : ColNom la colonne de D2 à D9 : ColResultat Tu dois dépasser la dernière ligne de ta matrice de 1 ligne car si tu veux ajouter des info sup il faudra faire "insertion ligne" sur cette ligne vide sous peine de pas avoir un ajout de ligne dans la colonne nommée. Et donc les infos ajoutées ne seront pas prise en compte. La cellule F1 : TestProduit La cellule G1 : TestNom La cellule H1: ResultatDate la cellule I1 : ResultatProduit la cellule J1 : ResultatNom la formule suivante donne le numero de la ligne de la matrice contenant la valeur cherchée, et non pas le numéro de la ligne du tableau Excel. Formule de la cellule ResultatDate : ="A" & (EQUIV(1;ColResultat;0))+1 Formule de la cellule ResultatProduit : ="B" & (EQUIV(1;ColResultat;0))+1 Formule de la cellule ResultatNom : ="C" & (EQUIV(1;ColResultat;0))+1 Donc pour retrouver le numéro de la ligne du tableau Excel : le +1 est obligatoire car la matrice démarre en ligne 2. Si tu ne met pas d'entete de colonne tu devras supprimer ce +1. Formule des cellules D2 à D9 : =SI(ET(ColCulture=TestProduit;ColNom=TestNom);1;0) La formule est la même car tu fais référence au nom de la ou des colonnes. Tu peux mettre autant de critères que tu veux en les spécifiant dans la formule précédante. N'oublie pas de rajoute tes valeurs de test dans les cellules Testxxxx que tu rajoutes en parallele. Formule de la cellule A10 : =INDIRECT(ResultatDate) Formule de la cellule B10 : =INDIRECT(ResultatProduit) Formule de la cellule C10 : =INDIRECT(ResultatNom) Il te suffit ensuite de saisir tes critères en F1= TestProduit et en G1=TestNom pour que sur la ligne 10 apparaissent les info correspondantes. L'avantage de nommer les cellules et les colonnes c'est que si tu es ammené à deplacer les cellules les noms suivent et aucune formule n'est à changer. En VBA la solution est plus complexe mais elle existe aussi. Bon courage

[EXCEL]Recherche multi-critères dans un tableau

5 réponses

Discussions similaires