Discussion :

[rinada]

Bonjour à tous


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

Code :

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

=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 :

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

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)

[gFZT82]

Bonjour,

Essaie comme cela

Code :

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

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.

[jfontaine]

Bonjour,

Afin de t'éviter la conversion en formule anglaise utilise FormulaLocal à la place de Formula

[rinada]

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