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 : Sélectionner tout - Visualiser dans une fenêtre à part
=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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
 .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