Robmachine
XLDnaute Nouveau
Bonsoir a tous,
Un petit problème avec ma fonction Vlookup qui déclenche l'erreur d’exécution 1004.
Je cherche à comparer en fait a comparé les valeurs de 2 colonnes situées dans deux feuille différente pour vérifier que chacune des valeurs d'une colonne est bien présente dans l'autre. (les données sont des nombre mais je les ai volontairement convertit en texte pour des raisons pratiques)
Voici mon code:
Sub Verification()
Dim i As Integer
Dim j As String
For i = 2 To 200
j =
WorksheetFunction.VLookup(Workbooks("BASE_à_vérifier.xlsm").Sheets("BASE_à_vérifier_ktp").Range("H" & i), Workbooks("BASE_à_vérifier.xlsm").Sheets("base_à_comparer_cash_solutions").Range("F2:G200"), 1, False)
If j = Null Then
Workbooks("BASE_à_vérifier.xlsm").Sheets("BASE_à_vérifier_ktp").Range("J" & i).Select
ActiveCell.FormulaR1C1 = "Ligne non rapproché"
Else
Workbooks("BASE_à_vérifier.xlsm").Sheets("BASE_à_vérifier_ktp").Range("J" & i).Select
ActiveCell.FormulaR1C1 = "ok"
End If
Next
End Sub
Merci d'avance pour vos réponse
Un petit problème avec ma fonction Vlookup qui déclenche l'erreur d’exécution 1004.
Je cherche à comparer en fait a comparé les valeurs de 2 colonnes situées dans deux feuille différente pour vérifier que chacune des valeurs d'une colonne est bien présente dans l'autre. (les données sont des nombre mais je les ai volontairement convertit en texte pour des raisons pratiques)
Voici mon code:
Sub Verification()
Dim i As Integer
Dim j As String
For i = 2 To 200
j =
WorksheetFunction.VLookup(Workbooks("BASE_à_vérifier.xlsm").Sheets("BASE_à_vérifier_ktp").Range("H" & i), Workbooks("BASE_à_vérifier.xlsm").Sheets("base_à_comparer_cash_solutions").Range("F2:G200"), 1, False)
If j = Null Then
Workbooks("BASE_à_vérifier.xlsm").Sheets("BASE_à_vérifier_ktp").Range("J" & i).Select
ActiveCell.FormulaR1C1 = "Ligne non rapproché"
Else
Workbooks("BASE_à_vérifier.xlsm").Sheets("BASE_à_vérifier_ktp").Range("J" & i).Select
ActiveCell.FormulaR1C1 = "ok"
End If
Next
End Sub
Merci d'avance pour vos réponse