Reference de cellule

F

Fred

Guest

• 11 Août 2002

• #2

Slt, je pense que c'est ca que tu souhaites faire, sinon apporte plus de precisions ou un exemple.

Sub test()
ActiveCell.Offset(0, 2).Select
debut = ActiveCell.Address
fin = ActiveCell.Offset(3, 0).Address
Range(debut, fin).Select
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
ActiveCell.Select
Selection.AutoFill Destination:=Range(debut, fin), Type:=xlFillDefault
End Sub

 

Vote positif 0 Vote négatif

B

BY

Guest

• 11 Août 2002

• #3

Merci, mais mon probleme c'est que dans l'execution de mon programme, ce n'est pas une cellule qui est active mais la ligne complete qui est selectionnee .

 

Vote positif 0 Vote négatif

F

Fred

Guest

• 11 Août 2002

• #4

et alors essaye le bout de code que je t'ai fais tu verras ca marche

 

Vote positif 0 Vote négatif

B

BY

Guest

• 11 Août 2002

• #5

Merci ,super sympa! Maintenant un peu plus difficile peut-etre :je souhaite que la cellule C de la ligne active soit le total des montants dans les cellules C des 3 lignes suivantes

 

Vote positif 0 Vote négatif

F

Fred

Guest

• 11 Août 2002

• #6

Alors essaye ca :

Sub test()
ActiveCell.Offset(0, 2).Select
debut = ActiveCell.Address
fin = ActiveCell.Offset(3, 0).Address
Range(debut, fin).Select
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
ActiveCell.Select
Selection.AutoFill Destination:=Range(debut, fin), Type:=xlFillDefault
ActiveCell.FormulaR1C1 = "=R[3]C+R[2]C+R[1]C"
End Sub

 

Vote positif 0 Vote négatif