Bonjour,
Je suis en train de faire une macro me calculant une fomule de type A3/ADernièreligne-1. Cependant, ce calcul est dans une boucle For. Le nombre de la colonne est variable tout comme le nombre de ligne. Voici mon code, j'ai un probleme sur la ligne Sheets("US") ... Merci de votre aide
Sub Analyse()
var1 = (Cells(3, Columns.Count).End(xlToLeft).Column)
MsgBox (var1)
var2 = (ActiveSheet.UsedRange.Rows.Count)
MsgBox (var2)
Z = 3
For x = 1 To var1
y = Cells(Application.Rows.Count, x).End(xlUp).Row
MsgBox (y)
Sheets("US").Range(Sheets("US").Cells(var2 + 1, y), Sheets("US").Cells(var2 + 1, y)).Offset(0, Z).FormulaR1C1 = "=(R[" & y & "]C[" & Z & "]/R[3]C[" & Z & "]-1,"""")"
x = x + 4
Z = Z + 4
Next x
End Sub