Bonjour à tous,

Cette macro est fonctionnelle mais évidemment très lente.

Existe-t-il une autre façon de procéder ?

(4 colonnes : La première = séquence; la deuxième = qté; la troisième = séquence; la quatrième = qté -> Le but étant de trouver les mêmes référence dans les colonnes 1 et 3 et de soustraire leur quantité respectives. Ensuite on colle la référence en colonne 6 avec le résultat de la soustraction en colonne 7)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub reper_idem_soustraction()  
    Application.ScreenUpdating = False
    dernLigne = ActiveCell.SpecialCells(xlLastCell).Row
    Dim Plage As Range
    i = 1
    Do While (i < 2350)
        j = 1
        t = 0
        Do While (j < 1663 And t = 0)
            If (Range("A" & i).Value = Range("C" & j).Value) Then
                Range("F" & i).Value = Range("A" & i).Value
                Range("G" & i).Value = Range("B" & i).Value - Range("D" & j).Value
                t = 1
            End If
            j = j + 1
        Loop
        i = i + 1
    Loop
    Application.ScreenUpdating = True
End Sub
Merci !