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:
veuillez m'assister svp
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
merci d'avance
Partager