Correspondance entre VBA et excel

Bonjour,

Pouvez-vous m'expliquer une correspondance entre une formule EXCEL et sa contrevaleur dans VBA ?

Dans Excel :

En B3 : Le résultat attendu
En A3 : La correspondance rechercher

Code:

---

=IF(ISERROR(VLOOKUP(A3;'FRANCE'!G:H;2;FALSE);"";VLOOKUP((A3;'FRANCE'!G:H;2;FALSE))

---

Dans VBA :

Code:

---

1 2 3 4 5 6

Sheets("Tableau").select Range("B3").select ActiveCell.FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC[-1],FRANCE!C[5]:C[6],2,FALSE)),"""",VLOOKUP(RC[-1],FRANCE!C[5]:C[6],2,FALSE)) Range("B3").select Selection.AutoFill Destination:=Range("B3:B19), Type:=xlFillDefault

---

Merci d'avance, car je ne comprends pas le """ C[5]:C[6]"""" cela ne correspond vraiment pas à G:H

Bàv,

Tu peux faire directement

Code:

---

Worksheets("Tableau").Range("B3:B19").Formula = "=IF(ISERROR(VLOOKUP(A3,FRANCE!$G:$H,2,FALSE)),"""",VLOOKUP(A3,FRANCE!$G:$H,2,FALSE))"

---

Parcontre si ma sheet se nomme (FRANCE J+1) avec un espace, le code ne fonctionne pas, est-ce normal ?

Code:

---

Worksheets("Tableau").Range("B3:B19").Formula = "=IF(ISERROR(VLOOKUP(A3,FRANCE J+1!$G:$H,2,FALSE)),"""",VLOOKUP(A3,FRANCE J+1!$G:$H,2,FALSE))"

---

Si J est une variable et que ta feuille se nomme FRANCE 2 (Pour J=1), tu dois faire sortir la variable et d'ajouter des '

Code:

---

Worksheets("Tableau").Range("B3:B19").Formula = "=IF(ISERROR(VLOOKUP(A3,'FRANCE " & j + 1 & "'!$G:$H,2,FALSE)),"""",VLOOKUP(A3,'FRANCE " & j + 1 & "'!$G:$H,2,FALSE))"

---

Un grand merci