Macro VBA - I need your

Bonjour,

J'ai besoin de votre aide pour m'aider à réaliser cette macro VBA que je souhaiterais mettre en place.

Sur la feuil 1 excel, j'ai un nombre significatif de lignes de dossiers avec des factures et des notes de crédits.

Mon besoin est de lister par dossier, dans un second onglet, les factures ayant des notes de crédits pour le même montant dans le but de les lettrer en comptabilité.

Pour exemple, dans le fichier en pièce jointe, les deux premières lignes devraient être retranscrites dans la feuil 2 pour opérer un traitement.

Est-ce que l'un d'entre vous pourrait m'apporter de l'aide.

Merci,

Bonjour,

Private Sub CommandButton1_Click()
    'derniere ligne écrite de la Feuil1e de l'onglet Feuil1
    LigneFin = Sheets("Feuil1").Range("a" & Rows.Count).End(xlUp).Row
    'boucle recherche "Feuil2 de crédit"
    For n = 2 To LigneFin
        'dans la colonne "C" numéro "3"
        'on cherche "Feuil2 de crédit"
        If Sheets("Feuil1").Cells(n, 3).Value = "Note de crédit" Then
            'on Feuil2 le numéro de dossier et le montant
            DossierNum = Sheets("Feuil1").Cells(n, 1).Value
            Montant = Sheets("Feuil1").Cells(n, 4).Value
            'boucle recherche le montant
            For n2 = 2 To LigneFin
                'quand on trouve le même montant et le même numéro de dossier
                If Abs(Sheets("Feuil1").Cells(n2, 4).Value) = Abs(Montant) Then
                    If Trim(LCase(Sheets("Feuil1").Cells(n2, 3).Value)) = "facture" Then
                        If (Sheets("Feuil1").Cells(n2, 1).Value = DossierNum) Then
                            'on ecrit dans la feuille 2
                            LigneFin2 = Sheets("Feuil2").Range("a" & Rows.Count).End(xlUp).Row + 1
                            Sheets("Feuil1").Range("a" & n & ":d" & n).Copy Destination:=Sheets("Feuil2").Range("a" & LigneFin2)
                        End If
                    End If
                End If
            Next n2
        End If
    Next n
End Sub

Fichier_JP-v1

@+JP

bonjour

salut mjpmjp

suggestion sans aucun calcul ni aucun VBA, juste un simple TCD

Merci à vous deux messieurs !