Bonjour le Forum,
J'aimerai pouvoir comparer deux colonnes de données de deux feuilles différentes. L'objectif étant de tester (les deux colonnes devant être identiques) si un changement a été effectué dans une des colonnes. Voici mon code:
Et là j'ai une erreur "l'indice n'appartient pas à la sélection". Je ne comprends pas bien. Est-ce que je déclare mal mes tableaux?
Merci de votre aide.
J'aimerai pouvoir comparer deux colonnes de données de deux feuilles différentes. L'objectif étant de tester (les deux colonnes devant être identiques) si un changement a été effectué dans une des colonnes. Voici mon code:
Code:
Private Sub CommandButton2_Click()
Dim maColonnePrincipale, maColonneCompare
Dim MaJ As Boolean
With Sheets(3)
maColonnePrincipale = Array(range("E9:E287").Value)
Derligne = .range("A65536").End(xlUp).Row + 1
End With
With Sheets(1)
maColonneCompare = Array(range("F8:F287").Value)
End With
i = 1
k = 1
While i <> Derligne
test: If maColonnePrincipale(i).Value = maColonneCompare(k).Value Then
i = i + 1
k = j + 1
GoTo test
Else: MaJ = True
End If
Wend
End Sub
Et là j'ai une erreur "l'indice n'appartient pas à la sélection". Je ne comprends pas bien. Est-ce que je déclare mal mes tableaux?
Merci de votre aide.