Fonction index & Match dans un code VBA

Version imprimable

Bonjour à tous

pour effectuer une recherche dans une plage variable et retourner une valeur j'ai combiné ces deux fonction

Code:

=SI(ESTERREUR(EQUIV(I2;canal!$A$2:$A$79;0)); INDEX(canal!$A$2:$A$79;EQUIV(data!K2;canal!$D$2:$D$79;0);1);I2)

Mon souci c'est que j'arrive pas à convertir cette forumle en code VBA
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 i = ThisWorkbook.Worksheets("data").Range("F2").End(xlDown).Row j = Worksheets("canal").Range("B2").End(xlDown).Row Set RangeNPRNOM = ThisWorkbook.Worksheets("canal").Range("A2: A" & j) Set RangeNOM = Worksheets("canal").Range("D2: D" & j) 'ThisWorkbook.Worksheets("data").Range("U2").Formula = "=IF(IsError(Match(I2, [RangeNPRNOM], 0)), Index([RangeNPRNOM], Match(Data!K2, [RangeNOM], 0), 1), I2)" 'ThisWorkbook.Worksheets("data").Range("U2").Formula = "=IF(ISERROR(MATCH(I2,Worksheets("canal").Range("A2:A"&j),0)),INDEX(Worksheets("canal").Range("A2:A"&j),MATCH(data!K2,Worksheets("canal").Range("D2:D"&j),0),1),I2)" Range("U2").AutoFill Destination:=Range("U2: U" & i)

Bonjour,

Essaie comme cela

Code:

1
2
3
4
5
6
7
8
9
Dim RangeNPRNOM As String, RangeNOM As String
    i = ThisWorkbook.Worksheets("data").Range("F2").End(xlDown).Row
    j = Worksheets("canal").Range("B2").End(xlDown).Row
    RangeNPRNOM = "canal!" & Worksheets("canal").Range("A2: A" & j).Address
    RangeNOM = "canal!" & Worksheets("canal").Range("D2: D" & j).Address
 
    ThisWorkbook.Worksheets("data").Range("U2").Formula = _
    "=IF(ISERROR(Match(I2," & RangeNPRNOM & ",0)),INDEX(" & RangeNPRNOM & ",MATCH(data!K2," & RangeNOM & ",0),1),I2)"
    Range("U2").AutoFill Destination:=Range("U2: U" & i)

Cordialement.

04/03/2013, 17h01
jfontaine

Bonjour,

Afin de t'éviter la conversion en formule anglaise utilise FormulaLocal à la place de Formula
05/03/2013, 12h14
rinada

Bonjour les amis
Merci gFZT82 , la solution marche à merveille
Jfontaine je vais prendre en considération cela dans mes futurs formula ;)