références cellules pour formule

[kevinch]

Bonsoir le forum,

j'aimerais créer une formule qui s'étende à chaque fois que l'on remplit les cellules d'une autre colonne. J'y arrive mais mon soucis est lié à la référence de mes cellules. La formule devrait être la suivante:C2=Feuil1$A$1*Feuil2B1.
Mais je n'arrive pas à spécifier correctement les références en VBA.
Quelqu'un peut-il m'aider?

Merci

Voilà mon fichier, vous comprendrez mieux...


http://cjoint.com/?hgvfQ1zDvG

 

[Kobaya]

Re : références cellules pour formule

hello,

comme ça, ça devrait mieux marcher :

Sub Macro5()
    Dim ligne As Range
    
    Workbooks("Classeur2.xls").Activate
    Worksheets("Feuil2").Activate
    Application.ScreenUpdating = False
    For Each ligne In Workbooks("Classeur2.xls").Worksheets("Feuil2").Columns(2).Cells
        If Not IsEmpty(ligne) Then
            Range("C" & ligne.Row).FormulaR1C1 = "=Feuil1!R1C1*RC[-1]"
        End If
    Next
    Application.ScreenUpdating = True
End Sub

 

[kevinch]

Re : références cellules pour formule

Salut,

le problème c'est qu'avec cette formule ça ne va pas figer la cellule A1 dans le calcul...je me trompe?