VBA - Une macro pour vérifier les données

J'essaie de créer une macro quelconque pour effectuer des vérifications afin de nous assurer que tout est correctement rempli. Voici un exemple de feuille de calcul ...

ABCDE

1Kit Item Item2 Item3 Résultats

2AAA ABC BCD CDE

3AAA ABC BCD CDE BON

4BBB BCD CDE DEF

5BBB ABC BCD CDE BAD

6BBB ABC BCD CDE BON

7CCC BCD CDE DEF

8CCC ABC BCD CDE BAD

9CCC CDE CDE DEF BAD

10CCC ABC BCD CDE

Je dois écrire une macro qui fera ce qui suit.

 Si la cellule A1 = A2, vérifiez si B1 = B2 et C1 = C2 & D1 = D2.
Si tous les éléments correspondent, postez "BON" à E1, sinon, postez "MAUVAIS à E1.
Mais si A1 A2 alors laissez E1 vierge et passez à A2 vs A3
Dans l'exemple ci-dessus, A2 = A3 et B2 = B3 et C2 = C3 et D2 = D3, donc E3 = BON
Dans l'exemple ci-dessus A4 = A5 et B4 B5 & C4 C5 & D4 D5, donc E5 = BAD

Solution

Voici le code:


Sub findResult ()
Dim Kit, Item, Item2, Item3, Résultats sous forme de plage
Dim itemCount As Long
itemCount = Range ("A1"). CurrentRegion.Rows.Count
Set Kit = Range ("A: A")
Set Item = Range ("B: B")
Set Item2 = Range ("C: C")
Set Item3 = Range ("D: D")
Set Results = Range ("E: E")
Pour i = 3 À itemCount
Choisir le kit (i, 1) = Kit (i - 1, 1)
Affaire True
Si élément (i, 1) = élément (i - 1, 1) et élément2 (i, 1) = élément2 (i - 1, 1) _
Et Item3 (i, 1) = Item3 (i - 1, 1) Puis
Résultats (i, 1) = "BON"
Fin si
Si (élément (i, 1) = élément (i - 1, 1) et élément2 (i, 1) = élément2 (i - 1, 1) _
Et Item3 (i, 1) = Item3 (i - 1, 1)) = Faux alors
Résultats (i, 1) = "BAD"
Fin si
Affaire Faux
Résultats (i, 1) = ""
Fin Sélectionnez
Ensuite je
End Sub