Recherche selon criteres

  • Initiateur de la discussion Initiateur de la discussion Djar
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

Djar

Guest
Bonsoir le forum,

Je cherche a extraire certaines lignes d'un tableau selon des criteres variable de 1 a 4 choix , pour le classement finale j'y arrive mais pas pour extraire le fichier

Merci a tous pour votre aide
 

Pièces jointes

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
 

Pièces jointes

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
60
Retour