Discussion :

[sophiefag]

Bonjour,
J'essaie de faire une fonction qui permette de décaler la formule d'une cellule sur toute une plage.
Ici, je mets les formules dans les cellules F10 à J10, et ensuite je veux glisser cette ligne jusqu'à la ligne 44.
Le numero de la ligne i ne doit pas changer quand je descend la formule (donc dans excel, ça serait avec un dollar devant, donc sans crochet sur vba?)
Et mon problème vient du fait que j'appliquerai cette formule dans divers cas, selon i qui est un numéro de ligne.. comment écrire cela??
J'ai essayé avec Ri, rows(i), cells(i,..) mais sans succès...

Voici ma fonction en vba:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function nom(i)
    Range("F10").Select
    ActiveCell.FormulaR1C1 = _
        "=Feuil1!RiC[-3]/(1+Feuil2!RC1)^1"
    Range("G10").Select
    ActiveCell.FormulaR1C1 = _
        "=Feuil1!Rows(i)C[-3]/(1+Feuil2!RC1)^2"
    Range("H10").Select
    ActiveCell.FormulaR1C1 = _
        "=Feuil1!Rows(i)C[-3]/(1+Feuil2!RC1)^3"
    Range("I10").Select
    ActiveCell.FormulaR1C1 = _
        "=Feuil1!Rows(i)C[-3]/(1+Feuil2!RC1)^4"
    Range("J10").Select
    ActiveCell.FormulaR1C1 = _
        "=Feuil1!Rows(i)C[-3]/(1+Feuil2!RC1)^5"
    Range("F10:J10").Select
    Selection.AutoFill Destination:=Range("F10:J44"), Type:=xlFillDefault
    Range("F10:J44").Select
End Function

J'espère avoir été claire sur mon problème, merci d'avance

Sophie

[fring]

Bonjour,

Pour commencer tu peux te passer des "Select", au lieu d'écrire

Code :

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

1
2
Range("F10").Select
ActiveCell.FormulaR1C1 = _

tu peux écrire

Code :

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

Range("F10").FormulaR1C1 = _

Pour insérer la variable i dans ta formule, essaye comme ceci

Code :

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

1
2
Range("F10").FormulaR1C1 = _
"=Feuil1!R" & i & "C[-3]/(1+Feuil2!RC1)^1"

Dans ce cas la ligne sera figée lors de la duplication de la formule.

Si on veut que le numéro de ligne s'incrémente lorsqu'on duplique la formule, on l'écrit de cette manière

Code :

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

1
2
Range("F10").FormulaR1C1 = _
"=Feuil1!R[" & i & "]C[-3]/(1+Feuil2!RC1)^1"

A1 = R[1]C[1]
$A1 = R1C[1]
$A$1 = R1C1

Par contre concernant AutoFill, je ne suis pas persuadé qu'une fonction puisse le réaliser.

@+