Reference de cellule

[BO]

Comment puis-je selectionner une cellule en faisant reference a la ligne complete (variable)qui est selectionnee.
Soit, dans ActiveRow, je souhaite selectionner la cellule de la colonne C (ainsi que les cellules de la colonne C des 3 lignes suivantes)et leur appliquer une formule en faisant reference a d'autres colonnes de ActiveRow (exemple C= $A*B)

 

[Fred]

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

 

[BY]

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 .

 

[Fred]

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

 

[BY]

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

 

[Fred]

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