FormulaLocal Recherchev avec variable
Bonjour,
Je bloque sur le placement des guillemets sur une formule avec prise en compte d'une variable.
La formule Excel est celle ci
Code:
=RECHERCHEV(G2&""&AD2;'Table synergie'!$A:$D;4;FAUX)
La variable c étant la dernière ligne d'un tableau
Voilà ce que j'ai essayé mais sans succès (ligne 6 du code)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| With Ws
g = .Range("C65536").End(xlUp).Row
.Range("I" & c & ":I" & g).Copy
.Range("AD" & c).PasteSpecial Paste:=xlPasteValues
.Range("AA" & c).FormulaLocal = "=Y" & c & "-Z" & c
.Range("AB" & c).FormulaLocal = "=RECHERCHEV(G" & c & """" & "AD" & c & ";'Table synergie'!$A:$D;4;FAUX)"
.Range("AC" & c).FormulaLocal = "=annee(M" & c & ")"
.Range("AA" & c & ":AC" & c).Copy
.Range("AA" & c & ":AA" & g).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Range("I" & c & ":I" & g).Formula = "=IF(E" & c & "=""Service"",""Activité"",IFERROR(VLOOKUP(E1,TCD!AA:AB,2,FALSE),0))" |
Si j'essaye cela
Code:
.Range("AB" & c).FormulaLocal = "=RECHERCHEV(G2&""""&AD2;'Table synergie'!$A:$D;4;FAUX)"
ça fonctionne
Donc je me dis je n'ai plus qu'à changer 2 par "& c &"
mais non!!!!????
Merci de votre aide
