Discussion :

[korni184]

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 :

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

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

Dans VBA :

Code :

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

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,

[mercatog]

Tu peux faire directement

Code :

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

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

[korni184]

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

Code :

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

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

[mercatog]

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 :

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

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

[korni184]

Un grand merci