Bonjour chers experts,
Dans un fichier Excel j’ai deux feuille :
- Première feuille nommée « saisie BL » contenant les colonnes : n° de lot, quantité, emplacement
- Deuxième feuille nommée « état de stock » contenant les colonnes : n° de lot, quantité, emplacement
Je veux que Excel fasse une comparaison entre les colonnes n° de lot et emplacement de la feuille « saisie BL » et les colonnes n° de lot et emplacement de la feuille « état de stock » et lorsqu’il trouve une coïncidence dans la table « état de stock » il mis les cellules de coïncidence en jaune.
ci dessous mon code mais ça ne marche pas:

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
Sub plasticolor()
Dim i As Integer
Dim j As Integer
Dim f As Integer
Dim TabEtq() As String
Sheets("Saisie BL").Activate
For i = 1 To 30
ReDim Preserve TabEtq(i)
TabEtq(i) = ActiveSheet.Cells(i + 2, 2).Value & Cells(i + 2, 3).Value
Next i
Sheets("Etat de stock").Activate
For j = 1 To 100
   For f = 1 To UBound(TabEtq())
      If ActiveSheet.Cells(j + 1, 2).Value = TabEtq(f) And ActiveSheet.Cells(1 + j, 3).Value = TabEtq(f) Then
      ActiveSheet.Cells(1 + j, 3).Interior.ColorIndex = 6
      End If
   Next f
Next j
End Sub
veuillez m'assister svp
merci d'avance