Recherche selon criteres

Bonsoir,

Alors une petite tentative avec un TCD pour revenir sur le Forum.
à voir la suite car je suis curieuse de comprendre le tout.


Et il s'en est passé des choses sur ce Forum ! - on ne peut vraiment pas vous laisser quelques jours seuls (es) !.
Vous vous êtes déchainés entre les Demos, les Zip et les gifs animés et les soulignés et les gras et les recherches V qui se cherchent et trouvent les formules qui se transforment en matricielles et les heures et les listbox et les combo et les tris qui se draguent et les listes déroulantes qui n'en peuvent plus de se dérouler et les passwords qui s'oublient !!
Bravo à toutes et tous pour ce beau travail - je vais passer des heures à vous relire et vous copier coller serré !!!!!
Merci Merci - qu'il fait bon de revenir vous voir tous et toutes-

à bientôt.
Celeda

bonsoir Celeda,

et si tableau je change les criteres la feuille TCD ne donne pas mes recherches !

Merci Djar

Oups pas bien réveillé pour faire un truc comme çà !!! (lol) !

@+Thierry

Bonjour Djar

regarde ce lien

http://www.excel-downloads.com/html/French/forum/messages/1_11931_11931.htm

il ressemble à ton problème. Tu y trouveras deux autres solutions.

@+Jean-Marie

Bonjour tout le monde,

Ah Merci Thierry : je sais que je suis sportive mais pas encore à faire des tours de cette manière mais j'aimerai bien !! Je ne sais pas comment tu as fait cela mais tu m'expliqueras plus tard. Thanks a lot.

Pour le Tcd : il s'actualise naturellement au fur et à mesure que l'on change des données mais effectivement il y a d'autres solutions : celle-ci n'était qu'un modeste exemple.

Il faudrait peut-être un jour faire une liste de toutes les manips possibles pour obtenir un même résultat - avec pour couronner le tout la variante VBA, mais ceci quand on aura plus rien à faire de nos journées.......et quand nous pourrons consacrer toutes nos soirées bénévolement à autrui.

Bonne journée
Celeda

Bonjour,

Autre système, par formules, à partir du fichier "afficher_resultats_02.xls"
http://www.excel-downloads.com/html/French/forum/messages/1_11931_11931.htm

Merci a tous et au Forum

Me le suit taper en VBA compliquer mais ca marche surement pas dur pour certain de faire plus simple

Sub Triage()
' Efface l'ancien triage
Sheets("Triage").Select
Range("T5").Value = "En traitement"
Application.ScreenUpdating = False
For i = 11 To Range("c65535").End(xlUp).Row
For j = 2 To 72
Cells(i, j).Value = ""
Next j
Next i
Application.ScreenUpdating = True
' Lecture des valeurs à chercher
Application.ScreenUpdating = False
A1 = Range("C5").Value
A2 = Range("D5").Value
A3 = Range("E5").Value
A4 = Range("F5").Value
A5 = Range("G5").Value
Position = 11
' Triage avec la feuille 2002
Sheets("2002").Select
For rangee = 2 To Range("b65535").End(xlUp).Row
Sheets("2002").Select
If Cells(rangee, 26 + A1).Value = A1 And Cells(rangee, 26 + A2).Value = A2 And Cells(rangee, 26 + A3).Value = A3 And Cells(rangee, 26 + A4).Value = A4 And Cells(rangee, 26 + A5).Value = A5 Then
An = Cells(rangee, 1).Value
Sheets("Triage").Select
Cells(Position, 2).Value = An
For colonne = 27 To 96
Sheets("2002").Select
B = Cells(rangee, colonne).Value
Sheets("Triage").Select
Cells(Position, colonne - 24).Value = B
Next colonne
Application.ScreenUpdating = True
Position = Position + 1
Application.ScreenUpdating = False
End If
Next rangee
' Triage avec la feuille 2003
Sheets("2003").Select
For rangee = 2 To Range("b65535").End(xlUp).Row
Sheets("2003").Select
If Cells(rangee, 26 + A1).Value = A1 And Cells(rangee, 26 + A2).Value = A2 And Cells(rangee, 26 + A3).Value = A3 And Cells(rangee, 26 + A4).Value = A4 And Cells(rangee, 26 + A5).Value = A5 Then
An = Cells(rangee, 1).Value
Sheets("Triage").Select
Cells(Position, 2).Value = An
For colonne = 27 To 96
Sheets("2003").Select
B = Cells(rangee, colonne).Value
Sheets("Triage").Select
Cells(Position, colonne - 24).Value = B
Next colonne
Application.ScreenUpdating = True
Position = Position + 1
Application.ScreenUpdating = False
End If
Next rangee
Sheets("Triage").Select
Range("T5").Value = "Terminé"
Call Total
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Valide de 0 a 5 choix

Merci qd mm Djar