Discussion :

[target111]

Bonjour

lorsque j'écris ce code

Code :

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

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 :

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

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

normalement j'aurai du obtenir

Code :

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

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

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

Cordialement

[Touffe54]

Quand tu mets :

Code :

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

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 :

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

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

[mercatog]

Tu pourrais écrire directement

Code :

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

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

en Q2 on aura

=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

[rvtoulon]

juste une rectification pour touffe54:

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 :

Code :

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

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

j'obtiens ceci en Q2:

Code :

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

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

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

[target111]

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