Bonjour à tous,
J'ai un petit soucis avec une formule. Le débogeur annonce une erreur 9 (l'indice n'appartient pas à la sélection) pour la partie surligné.
J'ai vérifié la formule, et je pense avoir une erreur dans le sens où j'écris en vba comme si j'écrivais la formule dans la cellule sous excel.
Sous Vba
Sous Excel
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Dim DernLigne As Integer 'Démarre Bas jusqu'à 1ere ligne non vide DernLig = Range("C" & Rows.Count).End(xlUp).Row 'Insertion "Le Meux" RechercherV si cellule Vide For Each MaCellule In Range("AA2:A" & DernLig) If MaCellule.Text = Empty Then MaCellule.Value = Application.IfError(Application.VLookup(Range("C" & MaCellule.Row), Workbooks("Consultation_clt.xls").Worksheets("A").Range("C2:C7000"), 1, 0), "0", "1") Next MaCellule
Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part =SI(ESTERREUR(RECHERCHEV(C2;'C:\Users\xXx\Desktop\[Consultation_clt.xls]A'!$C$2:$C$7000;1;FAUX));"0";"1")
Partager