Lettrage

[boumlaik]

Bonjour,
j'ai un problème de lettrage j'ai bien chercher sur le forum et j'ai pas trouvé ce qui me convient apar une maco et j'ai personnaliser mais quand je la lance elle es super lent pour quelques millier de ligne. au fait je veux comparer débit et crédit par apport le numéro de compte si le montant et le numéro de compte sont identique donc c'est ok, vous trouver ci joint un exemple

 

[vgendron]

Re : Lettrage

Bonjour,

j'avais aidé quelqu'un ici pour le lettrage
regarde si la PJ peut t'aider

 

[boumlaik]

Re : Lettrage

Je te remercie bcp pour ta réponse, mais la macro bloque quand elle arrive a cette procédure

Cells(i, 8) = ListeLettre(j)


et autant débutant j'arrive pas a résoudre le problème, je pense c'est parce que j'ai bcp plus de donné que l'exemple que t'as mis!

Cordialement

 

[boumlaik]

Re : Lettrage

Bonjour,

dsl je viens de me rendre compte que le fichier que j'avais mis ne contient pas de macro

voila a macro.
J'attend vos réponse merci d'avance

Cordialement

Sub Commandes()
    Dim L1 As Long, L2 As Long, L3 As Long, Trouve As Boolean
        
    'Effacement du tableau de résultat
    Range("k2:n" & Range("l2").End(xlDown).Row).ClearContents
    L3 = 2    '1ère ligne du tableau de résultats
    
    'on va prendre les commandes du tableau2 1 par 1
    'et les comparer au tableau1
    
    For L2 = 2 To Range("d2").End(xlDown).Row
        'pas trouvé à ce stade
        Trouve = False
        For L1 = 2 To Range("j2").End(xlDown).Row
            If Range("d" & L1).Value = Range("j" & L2).Value And Range("b" & L1).Value = Range("h" & L2).Value Then
                'Si trouvé
                Trouve = True
            End If
        Next L1
        'Comparaison avec le tableau1 finie
        
        If Trouve = False Then
            'pas trouvé, donc on ajoute au tableau des résultat
            Range("l" & L3).Value = Range("j" & L2).Value
            Range("m" & L3).Value = Range("H" & L2).Value
            Range("n" & L3).Value = Range("g" & L2).Value
            L3 = L3 + 1
        End If
    Next L2
End Sub