Discussion :

[ALEX80800]

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

[letienne]

Bonjour
Et comme ceci ?

Code :

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

1
2
 
 .Range("AB" & c).FormulaLocal = "=RECHERCHEV(G" & c & "&" & """" & "&AD" & c & ";'Table synergie'!$A:$D;4;FAUX)"

Petite question, à quoi servent les guillemets ici : G2&""&AD2 ? ça ne marche pas avec G2&AD2 ?

[ALEX80800]

Bonjour
Petite question, à quoi servent les guillemets ici : G2&""&AD2 ? ça ne marche pas avec G2&AD2 ?

Letienne, pour concatener 2 cellules.
Et effectivement sans les guillemets ça fonctionne

[parmi]

Bonjour,

Je ne pense pas que les guillemets soient nécessaires...
Si tu essayais

Code :

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

.Range("AB" & c).FormulaLocal = "=RECHERCHEV(G" & c & "&AD" & c & ";'Table synergie'!$A:$D;4;FAUX)"

EDIT: oupsss je me suis fait brûlé...