Ameliorer code trie

Bonjour a tous et a toutes

j'aimerais savoir s'il y a un moyen d’améliorer ce code

Sub Tri()

Dim i, j, n, m As Integer
Dim DerLig As String

Application.ScreenUpdating = False
DerLig = Range("B" & Rows.Count).End(xlUp).Row

For i = 7 To DerLig
    If Cells(i, 7) = 0 Then Cells(i, 7) = ""
    If Cells(i, 8) = 0 Then Cells(i, 8) = ""
Next i
n = 0
m = 0

Cells(5, 7).Interior.ColorIndex = 2
Cells(5, 7) = ""
Cells(5, 8).Interior.ColorIndex = 2
Cells(5, 8) = ""

For i = 7 To DerLig
For j = 7 To DerLig

If Cells(i, 7) <> 0 Then
    If Cells(i, 7) = Cells(j, 8) Then

        Cells(i, 7) = ""
        Cells(i, 7).Interior.ColorIndex = 4
         n = n + 1
        Cells(j, 8) = ""
        Cells(j, 8).Interior.ColorIndex = 4
         m = m + 1
    End If
End If

Next j
Next i
Cells(5, 7).Interior.ColorIndex = 4
Cells(5, 7) = n
Cells(5, 8).Interior.ColorIndex = 4
Cells(5, 8) = m
Application.ScreenUpdating = True

End Sub

merci a ceux qui me donneront une idée

Bonjour

Un exemple de ton fichier serait le bienvenu

Crdlt

Bonjour Iliyes

Il s'agit d'un code de Tri de données, si c'est le cas, revoir les algorithmes de tri à bulle, ...

bonjour

la feuil1, j'ai gardé la colonne G et H que je copie dans la feuil TRIEDEBITDREDIT pour le test, et cela a partir de la ligne 7 des colonne G et H

le but est d'enlever les doublons entre debit et credit

merci

scraper a écrit :

Bonjour Iliyes

Il s'agit d'un code de Tri de données, si c'est le cas, revoir les algorithmes de tri à bulle, ...

merci, mais c'est cet algorithme de tri à bulle???

Bonsoir à tous,

Un début de réponse....mais surement possible d'optimiser...

Cordialement,

deja comme cela, c'est magnifique!!

juste un petit soucis, les valeurs copie dans les colonnes G et H sont en " peu être text" donc ca n'affiche pas la somme en G1 et H1...ou bien c’est un problème chez moi???

merci pour l'aide

merciiiiiiiiiiiiiiiiiiiiiiii

j'ai arrangé en ca

If tb(i, 1) <> "" Then ntb(k + 1, 1) = CDbl(tb(i, 1)) 'Format(CDbl(tb(i, 1)), "0.00")
If tb(i, 2) <> "" Then ntb(k + 1, 2) = CDbl(tb(i, 2)) 'Format(CDbl(tb(i, 2)), "0.00")

pour que le resultat des cellules G1 etH1 se fait

merci

Re,

Bizarre, le total se faisait bien chez moi..., le format de tes cellules étaient bien en nombre ?

Ravi que tu ais trouvé une solution,

Bonne continuation,

re-bonjour

effectivement, .... mais heureusement ca fonctionne, et extrêmement rapide

je ne maîtrise pas très bien les tableaux, mais je vais m'y mettre

merciiiiiiiiiiiiiii