Ecriture de formule en VBA

Bonjour

lorsque j'écris ce code

Code:

---

1 2 3 4 5

Range("Q2").Select ActiveCell.FormulaR1C1 = "=IF(RC[10]="""","""", RC[-2]+RC[2])" Range("Q2").Select Selection.AutoFill Destination:=Range("Q2:Q450"), Type:=xlFillDefault Range("Q3:Q450").Select

---

J'obtiens dans la cellule

Code:

---

=SI(LC(13)="";""; LC(-2)+LC(5))

---

normalement j'aurai du obtenir

Code:

---

=SI(LC(10)="";""; LC(-2)+LC(2))

---

une personne saurait elle pourquoi ?
merci d'avance de vos réponses

Cordialement

Quand tu mets :

Code:

---

RC[10]

---

La valeur entre crochet est une valeur d'offset, c'est à dire qu'il va décaler de 10 colonnes sur la droite par rapport à Q2, donc Q13.

Tu devrais essayer plutôt ceci :

Code:

---

ActiveCell.Formula = "=IF(" & ActiveCell & "="""",""""," & activecell.offset(0,-2) & "+" & activecell.offset(0,2) & ")"

---

Tu pourrais écrire directement

Code:

---

Range("Q2:Q450").FormulaR1C1 = "=IF(RC10="""","""", RC[-2]+RC2)"

---

en Q2 on aura

Citation:

---

=SI($J2="";""; O2+$B2)

---

C10: signifie la colonne 10
C[10]: signifie la 10ème cellule à droite de la cellule de formule
C[-10]: signifie la 10ème cellule à gauche de la cellule de formule

R2: signifie la ligne 2
R[2]: signifie la 2ème ligne en dessous de la cellule de formule
R[-2]: signifie la 2ème ligne en dessus de la cellule de formule

juste une rectification pour touffe54:

Citation:

---

La valeur entre crochet est une valeur d'offset, c'est à dire qu'il va décaler de 10 colonnes sur la droite par rapport à Q2, donc Q13.

---

Ce serait pas plutôt la cellule "AA2"?


avec le code de target111 :

Citation:

---

Code:

---

1 2	Range("Q2").Select ActiveCell.FormulaR1C1 = "=IF(RC[10]="""","""", RC[-2]+RC[2])"

---

---

j'obtiens ceci en Q2:

Code:

---

=SI(AA2="";""; O2+S2)

---

est-ce le résultat que tu souhaites avoir?

Bonjour

Merci pour vos réponses

Je n'aie pas encore essayé les solutions que vous me proposées

la formule je l'aie écrite dans la cellule Q2 et j'ai fait une macro pour avoir cette formule en VBA et copier cette formule dans la colonne Q

je voulais avoir =SI(AA2="";"";O2+S2)
Et comme je le disais j'obtiens =SI(AD2="";"";O2+V2)
comme le code vient d'une macro possible qu'il ne soit pas bon et comme je ne connais pas grand chose au VBA j'éssaye de me débrouiller avec des macros

Cordialement