Discussion :

[NewYork]

Bonjour à tous,
Je suis sur le point de créer une base de donnée sur excel (malheureusement je ne peut pas utiliser Acces). Dans une feuille nommée "DATA", j'ai une liste de nom en "A" et avec plusieurs informations dans les colonnes suivantes. Dans une autre feuille nommé "Recherche". de plus, j'ai en ligne 2 cinq listes comportant différents facteurs. Mon but est de créer une macro me permettant de sortir les noms correspondant aux facteurs selectionnés, cad que si j'ai Facteur1 <>"" et le reste = "", je veux tous les noms disponibles avec cette caracteristique....et ca pour ttes les combinaisons possibles. J'ai déjà fait une macro en utilisant des if end if et en le faisant pour ttes les combinaisons...ca marche plutot bien mais je crois que certaines boucles écrasée d'autres...
Ainsi, je voulais savoir si vous connaisseriez un moyen plus efficace de faire une telle chose???
Merci d'avance,
Cordialement

[Many31]

Bonjour,

Une petite réponse pour dire que la discussion ne se perdent pas...

Dans le cas "Mode Bourrin" que tu décris il y a une chose que j'utilise de temps en temps pour ce genre de méthode pas très futé mais qui marche, une variable qui va concaténer tout ton petit monde :-) (effectivement le if end if peut réserver des surprises si on ne le maitrise pas parfaitement)

Je concatène toutes les catégories dans une seule variable et j'utilise la fonction Instr pour savoir si pendant la recherche ca match :-)

exemple grossier imaginons que dans une colonne 1 tu mettent Oui si le critère de la colonne 2 doit être recherché, puis tu souhaites retrouver toutes les personnes dont le nom est dans une feuille2 colonne 1 qui respectent au moins un de ces critères (les critères de chaque personne étant contenu dans les colonnes 5,6,7 etc.) voila ce que ca pourrait donner:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For i = 0 to 100
   if Feuil1.cells(i,1) = "Oui" then Rech = Rech & "££" & Feuil1.Cells(i,2)  & "££" 
Next
 
For i = 0 to 5000
   present = false
   for h = 5 to 50
       if instr(Rech,"£" & Feuil2.cells(i,h) & "£") <> 0 and Feuil2.cells(i,h) <> "" then present = true
   next
   if present then Les_personnes_qui_correspondent = Les_personnes_qui_correspondent & ", " & Feuil2.cells(i,4)
Next

(les £ sont la pour délimiter les critères... à savoir par exemple qui si tu recherche la couleur des yeux, tu puisses faire la différence entre "bleu" et "bleu-vert")
C'est pas propre c'est rapide mais c'est simple et ca peut donner des idées