Discussion :

[Lechette]

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

Code :

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

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)"

[ouskel'n'or]

Il te manque plein de guillemets partout partout

Code :

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

    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

[Lechette]

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

Code :

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

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))"

[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