etendre la sélection

merci de donner plus de précisions sur ce que tu fais réellement dans ton
fichier.

ST

"elite" <litziemaarek@hotmail.com> a écrit dans le message de
news:1121871975.509215.321920@g44g2000cwa.googlegroups.com...
bonjour,
jaimerais savoir comment etendre une sélection a l infini
en effet, je dois créer une macrommande : pendant l enregistrement,
jetends ma sélection pour executer une formule
le pb est que si j ajoute des nveaux enregistrements, alors ma macro ne
marche plus. C pour ca que je voudrais etendre mes sélections a l
infini (ou peut etre y a t il un meilleur moyen...)

j ai deux colonnes B et C, je calcule des résultats dans D,E,F.
Pour cela je fais des opérations sur la premiere ligne et ensuite j
etends ma sélection par ex
D2=C2
D3=D2/C2*(1+C2/*C3
D4=D3/C3*(1+C3)*C4 etc

dans la colonne E j ai
E2=D2/SOMME($D$3:$D$15)
E2=D2/SOMME($D$3:$D$15 ect

J ai voulu créer une macro qui enregistre et reproduit (je débute)
mais le pb c que qd j ajoute des enregistrements dans ma colonne C par
ex, elle n en tiens pas compte. Voici son code :
ub MacroEssai()
'
' MacroEssai Macro
' Macro enregistrée le 20/07/05 par Aedian
'

'
ActiveCell.FormulaR1C1 = "=RC[-1]"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=R[-1]C/R[-1]C[-1]*(1+R[-1]C[-1])*RC[-1]"
Range("D3").Select
Selection.AutoFill Destination:=Range("D3:D15"),
Type:=xlFillDefault
Range("D3:D15").Select
Range("E2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/SUM(R3C4:R15C4)"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E15"),
Type:=xlFillDefault
Range("E2:E15").Select
Range("F2").Select
ActiveCell.FormulaR1C1 =
"=SUMPRODUCT(RC[-4]:R[13]C[-4],RC[-1]:R[13]C[-1])"
Range("F3").Select
End Sub

j aimerais avoir par exn au lieu de E2:E15, E2:Edernier.

merci bcp de ton aide:)