Discussion :

[jarode1111]

Bonjour,

prière de m'aider à calculer l'écart du stock entre ces 2 tableaux en cherchant les codes du 1er tableau dans le 2ème et si existant faire la différence entre les quantités correspondantes puis afficher le tout dans le 3ème tableau

ci-joint le résultat que je cherche mais ne fonctionne pas au delà de 1000 lignes

dans cette exemple la formule utilisée cherche les doublons et fais le cumule avant de faire la différence, moi je veux juste la recherche et la différence si existant


merci infiniment

[BENNASR]

bonjour
ton code s'arrête à 1000 à cause de cette instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 a = Range("A5:A" & [A1000].End(xlUp).Row)
   b = Range("E5:E" & [E1000].End(xlUp).Row)

à remplacer par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 a = Range("A5:A" & Range("A" & Rows.Count).End(xlUp).Row)
   b = Range("E5:E" & Range("E" & Rows.Count).End(xlUp).Row)

si ton code à part la limite de 1000 donne le résultat souhaité tant mieux , si non je propose :

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
21
22
23
24
25
26
27
28
29
Sub Testtt()
Application.ScreenUpdating = False
Dim f1 As Worksheet
Set f1 = Sheets("STOCK")
Dim TblBD1
Dim TblBD2
Dim i As Integer
Dim j As Integer
Dim Lig As Long
Dim derlig As Long
derlig = f1.Range("I" & Rows.Count).End(xlUp).Row
 f1.Range("I5:K" & derlig).ClearContents
TblBD1 = f1.Range("A5:C" & f1.Range("A" & Rows.Count).End(xlUp).Row)
TblBD2 = f1.Range("E5:G" & f1.Range("G" & Rows.Count).End(xlUp).Row)
Lig = 5
For i = LBound(TblBD1) To UBound(TblBD1)
    For j = LBound(TblBD2) To UBound(TblBD2)
        If TblBD2(j, 1) = TblBD1(i, 1) And TblBD2(j, 3) <> TblBD1(i, 3) Then
        f1.Cells(Lig, "i") = TblBD2(j, 1)
        f1.Cells(Lig, "j") = TblBD2(j, 2)
        f1.Cells(Lig, "k") = TblBD2(j, 3) - TblBD1(i, 3)
        End If
        If f1.Cells(Lig, "i") <> "" Then Lig = Lig + 1
    Next j
Next i
MsgBox ("Controle effectué")
Application.ScreenUpdating = True
 
End Sub

[jarode1111]

merci d'abord, mais ça fonctionne pas encore, ça compare pas tous les articles



merci

[Pierre Fauconnier]

Bonjour et bienvenue sur nos forums.

Du code adapté par bennasr, je déduis que tu n'utilises pas les tableaux structurés. Ceux-ci te permettraient de te détacher de la position et de la taille de tes données et rendrait ton code "plus simple" à lire et à écrire, et permettrait une meilleure maintenance (selon mes critères de ce qui est simple, lisible et maintenable ).

Je note l'utilisation de [A1000]. Outre qu'elle te limite à 1000 lignes comme le dit bennasr, cette notation est à mon avis à proscrire. Tu en trouveras les raisons sur ce billet de blog.


Normalement, à l'entame d'une discussion, il est préférable de donner le code utilisé et l'objectif visé plutôt que le fichier, pour les raisons évoquées dans ce message. Cela te permettra d'avoir des réponses plus rapides aux problèmes qui se posent à toi.

Sois certain que si tu exposes ton problème avec copies d'écran et extraits de code, nous pourrons t'aider rapidement à résoudre tes soucis.


Bonne continuation sur nos forums et au plaisir de t'y croiser prochainement

[BENNASR]

Ca ne fonctionne pas sans aucune explication ne m'aide pas à t'aider dans la bonne direction
A propos du code que j'ai proposé .. Ou se trouve le problème ??