Bonjour !

Voici mon code :

Ce code parcours une feuille contenant des numéros d'articles sans doublons, puis il recherche le même article dans une feuille avec des doublons. Ensuite compare pour le même article la colonne des unités qui se trouve dans la colonne à côté de l'article concerné à ce moment. Puis si les unités correspondent il écrit OK sinon KO.

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
Sub Recherche()
'
 
Dim str1, str2, str3, str4 As String
 
 
 
 For i = 11 To Feuil3.UsedRange.Rows.Count  ' boucle de lecture de la feuille Creation
    For ii = 2 To Feuil4.UsedRange.Rows.Count ' boucle de lecture de la feuille MMS015
        str1 = Feuil3.Cells(i, 3)
        str2 = Feuil4.Cells(ii, 2)
        str3 = Feuil3.Cells(i, 5)
        str4 = Feuil4.Cells(ii, 4)
 
        If str1 = str2 Then ' les 2 articles correspondent
 
           If str3 = str4 Then ' les 2 unités correspondent
                Feuil3.Cells(i, 1) = "OK"
           Else
                Feuil3.Cells(i, 1) = "KO"
           End If
 
        End If
 
    Next ii
 Next i
 
End Sub

Je l'utilise pour un grand nombre de données et j'ai estimé le temps d'exécution à 2h30 ! J'ai par conséquent absolument besoin de l'optimiser !
Mais je ne suis pas un expert en la matière !!
Quelqu'un peu m'aider ?


a++