Variable de bouclage dans formule RechercheV

Tu veux vérifier quelle(s) cellule(s)?

Je veux vérifier si chaque cellule A7 jusqu'a A[X] (avec X dernière cellule non vide de la colonne) du fichier Test2 est dans Test1, et si ce n'est pas le cas, stocker le numéro de la ligne dans le tableau.

Pour plus de comprehension peut être :

Test 1 : http://cjoint.com/?BEEkoyWsrps

Test 2 : http://cjoint.com/?BEEkl6S7xyf

Je peux pas vérifier ton fichier d'où je suis mais je peux t'aider :

Dim compteur as integer
Dim derniere_ligne as Integer

'Permet de trouver la dernière ligne écrite
For compteur = 7 to 20000

If Test2.Sheets(...).Cells(compteur, 1).value ="" then

derniere_ligne = compteur
Exit For

End If

Next Compteur

'On initialise ton tableau à 0
Dim NomTableau(derniere_ligne) As Integer

For compteur = 1 to derniere_ligne

NomTableau(compteur) = 0

Next compteur

'On vérifie les lignes et si elles sont différentes, on met un 1 à l'indice de la ligne
For compteur = 7 to derniere_ligne

If Test2.Sheets(...).Cells(compteur, 1).Value <> Test1.Sheets(...).Cells(compteur, 1).Value then
NomTableau(compteur) = 1
End If

Next compteur

Ainsi, par exemple, si les lignes 7 sont différentes, alors NomTableau(7) = 1 sinon NomTableau(7) = 0

Attention, j'ai codé comme un barbare par manque de temps, tu peux largement améliorer mon code! (Surtout au niveau des boucles For que je fais!) mais là j'étais pressé.

Merci pour avoir chercher de ton côté !!

J'avais aussi reussi a récupérer la dernière ligne non vide, par :
DerniereLigne = Cells(65536, 1).End(xlUp).Row 'Sur la colonne A, ce qu'il me faut.

Je ne comprend pas pourquoi tu fais autant de Next compteur.

Sinon, juste une petite remarque. Je ne veux pas comparer A7 du Test1 à A7 du Test2, A8 du Test1 à A8 du test2, et ainsi de suite. Ce que je veux, c'est comparer A7 du test1 à (A7 jusqu'a A[DerniereLigne]) du Test2, A8 du test1 à (A7 jusqu'a A[DerniereLigne]) du Test2, et ainsi de suite.
J'espère avoir été clair :D.

Et voila ce que j'ai fait pour ce sujet la, mais mon tableau reste vide, alors qu'il ne devrait pas :
Sub Test()

'Permet d'ouvrir le fichier Test1.xls si ce n'est pas le cas.
MacroExcel

Windows("Test1.xls").Activate
Dim numLigne As Long
Dim NomTableau(5) As Integer
Dim i As Integer
Dim DerniereLigne As Integer
Dim Lig

DerniereLigne = Cells(65536, 1).End(xlUp).Row 'On va aller trouver la dernière ligne de la colonne A
MsgBox "" & DerniereLigne

For i = 7 To 9
Valeur_Test = Cells(i, 1).Value 'La valeur qu'on souhaite tester
'On va voir si on trouve la valeur testée.
Windows("Test2.xlsm").Activate
Set Lig = Range(Cells(1, 1), Cells(DerniereLigne, 1)).Find(Valeur_Test, LookIn:=xlValues, LookAt:=xlWhole)
If Lig Is Nothing Then
NomTableau(numLigne) = i

End IfNext i

Un for dans un for? (Tu vas me dire que j'aime bien les for, je sais :p )

For compteur = 7 to derniereligne
      valeur = Cells(compteur, 1).Value
      For compteur2=7 to derniereligne
      if test2.sheets(...).cells(compteur2, 1).value = valeur then
           NomTableau(compteur)=compteur2
      end if
      next compteur2
next compteur

Ainsi, imagine que la cellule 7 de test1 soit trouvé en ligne 14, tu auras dans ton tableau NomTableau(7) = 14

Pour ton code, tu écris NomTableau(numLigne) = i cependant, tu ne définis à aucun moment ton numLigne, voila pourquoi il ne fonctionne pas^^