Insertion de formule par macro

Version imprimable

J'ai le code suivant afin d'insérer des formules dans différentes cellules. Je ne comprends pas pour quelle raison ca ne fonctionne pas:cry:

Code:

1
2
3
4
5
6
7
Sheets("Impression").Select 'met à zero la feuille de lots
    Range("b10:p1000").Select
        Selection.Value = ""
    Range("i10").FormulaLocal = "=si(d10="";"";ANNEE(d10))"
    Range("h10").FormulaLocal = "=SI(D10="";"";SI(MOIS(D10)<5;"Printemps";SI(MOIS(D10)<9;"Eté";"Automne")))"
    Range("m10").FormulaLocal = "=si(g10="";"";RECHERCHEV(G10;ObjVel!A2:D35;2;1)"
    Range("n10").FormulaLocal = "=si(g10="";"";RECHERCHEV(G10;ObjVel!A2:D35;4;1)"

02/04/2008, 16h58
ouskel'n'or

Il te manque plein de guillemets partout partout :mouarf:

Code:

Range("i10").FormulaLocal = "=SI(D10="""";"""";SI(MOIS(D10)<5;""Printemps"";SI(MOIS(D10)<9;""Eté"";""Automne"")))"

Je te laisse corriger les autres ;)

Ceci dit, je n'ai pas vérifié la véracité de tes dires... et à mon avis, tu auras quelques corrections à apporter à la formule elle-même :roll:

J'ai trouvé la solution en enregistrant une macro, on se rends compte que la syntaxe est un peu différente...

Code:

1
2
3
4
5
6
7
ActiveCell.FormulaR1C1 = "=IF(RC[-5]="""","""",YEAR(RC[-5]))"
    Range("M10").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-6]="""","""",VLOOKUP(RC[-6],ObjVel!R2C1:R35C4,2,1))"
    Range("N10").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-7]="""","""",VLOOKUP(RC[-7],ObjVel!R2C1:R35C4,4,1))"

03/04/2008, 09h59
ouskel'n'or

Si tu avais dit tout de suite que tu voulais faire une RechercheV...
C'est pas pour dire... mais je le dis quand même, ta solution n'a rien à voir avec ta question :mouarf: