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 30 31 32 33 34 35 36 37 38 39 40 41
| 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"
If Feuil4.Cells(ii + 1, 4) = Feuil4.Cells(ii, 4) Then
Else
Exit For
End If
Else
Feuil3.Cells(i, 1) = "KO"
If Feuil4.Cells(ii + 1, 4) = Feuil4.Cells(ii, 4) Then
Else
Exit For
End If
End If
End If
Next ii
Next i
End Sub |
Partager