rechercher et afficher les résultats

[maya]

Bonsoir et merci de lire mon message et peut-être (je l'espère) m'apporter votre aide. Puisque rien n'est impossible avec excel voici mon projet. J'ai un fichier dans lequel je veux enregistrer des dossiers (feuille dossiers). Je souhaiterais ensuite (feuille formulaire) pouvoir lancer une recherche à partir du critère que je choisis et afficher dessous tous les résultats. J'espère être explicite. Merci de prendre un peu de temps !

 

[maya]

voici mon fichier que j'ai oublié dans le 1er post
Merci [file name=Archivage_dossiers.zip size=8646]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Archivage_dossiers.zip[/file]

 

[soft]

Bonjour Maya, le forum,

Voici une macro qui utilise la fonction filtre et copie les données :

Sub Lister()
    Dim i As Long, Rdate As Date, RCategorie As String, RObjet As String, RParticipant As String
    Dim FormatN As String
    
    Sheets('Formulaire').Select
    If IsDate(Range('F13')) Then Rdate = Range('F13')
    If Range('F15') <> '' Then RCategorie = Range('F15')
    If Range('F17') <> '' Then RObjet = Range('F17')
    If Range('F19') <> '' Then RParticipant = Range('F19')

    i = Range('D24').End(xlDown).Row
    Range('D24:G' & i).ClearContents

    Sheets('Dossiers').Select
    Range('A2').Select
    FormatN = Selection.NumberFormat
    i = Sheets('Dossiers').Range('A2').End(xlDown).Row
    If i = 65536 Then
        Sheets('Formulaire').Select
        Exit Sub
    End If
    If Rdate <> 0 Then Selection.AutoFilter Field:=1, Criteria1:='=' & Format(Rdate, FormatN), Operator:=xlAnd
    If RCategorie <> '' Then Selection.AutoFilter Field:=2, Criteria1:='=' & RCategorie, Operator:=xlAnd
    If RObjet <> '' Then Selection.AutoFilter Field:=3, Criteria1:='=' & RObjet, Operator:=xlAnd
    If RParticipant <> '' Then Selection.AutoFilter Field:=4, Criteria1:='=' & RParticipant, Operator:=xlAnd

    Sheets('Dossiers').Range('A1:D' & i + 1).Copy Sheets('Formulaire').Range('D23') ':G' & 24 + i)
    
    Selection.AutoFilter
    Sheets('Formulaire').Select
End Sub