Discussion :

[wkrystof1]

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

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

Sous Excel

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")

Merci d'avance

[clementmarcotte]

Bonjour,

Essaie plutôt avec FormulaLocal à la place de value. Cela équivaut à utiliser VBA pour écrire ta formule dans la cellule

Avant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 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")

Après:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  If MaCellule.Text = Empty Then MaCellule.FormulaLocal ="= SI(ESTERREUR(RECHERCHEV(C2;'C:\Users\xXx\Desktop\[Consultation_clt.xls]A'!$C$2:$C$7000;1;FAUX));"0";"1") "

Il y a bien les deux = et les guillemets

[wkrystof1]

Bonjour Clement,

Merci pour ton retour, j'ai testé comme tu me l'as dis. J'ai une erreur 1004, erreur définie par l'application ou par l'objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each MaCellule In Range("AA2:A" & DernLig)
    If MaCellule.Text = Empty Then MaCellule.FormulaLocal ="=SI(ESTERREUR(RECHERCHEV(C2;'C:\Users\xXxi\Desktop\[Consultation_clt.xls]A'!$C$2:$C$7000;1;FAUX));0;1)"
    Next MaCellule

Merci d'avance