figer la référence d'une cellule

[kevinch]

Bonjour le forum, voici le code suivant:

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

J'aimerais juste figer la référence d'une cellule, celle qui est représentée par Feuil1!R1C1. Mais je ne sais pas comment faire étant donné que les $ ne marchent pas.

Quelqu'un a t-il la soluce?

Merci

 

[kevinch]

Re : figer la référence d'une cellule

Désolé mais ça m'aide pas énormément,
je n'arrive pas à figer cette cellule.

Merci

 

[porcinet82]

Re : figer la référence d'une cellule

Salut kevinch, Ami José,

Qu'entends-tu par je n'arrive pas à figer cette cellule ?
Quand j'execute ton code, j'ai en cellule
C1 : =Feuil1!$A$1*B1
C2 : =Feuil1!$A$1*B2
C2 : =Feuil1!$A$1*B3

La cellule A1 est bien figée nan?

@+

 

[Hervé]

Re : figer la référence d'une cellule

bonjour tout le monde

sinon, essayes comme ceci :

Range("C" & ligne.Row).FormulaR1C1 = "=Feuil1!RC1*RC[-1]"

salut

 

[kevinch]

Re : figer la référence d'une cellule

c'est bon ça marche merci
j'avais déjà la bonne formule apparemment...

A +