If Range("H15").Value > Range("C15").Value Then
ActiveCell.Value = Range("H15").Value - Range("C15").Value
En effet, [A1] est une forme abrégée de Evaluate("A1") et non de Range("A1").Re bonsoir,
C'est vrai que quelquefois j'ai tendance à me compliquer la vie. Cependant, j'ai eu la désagréable surprise sur plusieurs projets de voir que la codification des plages entre crochets ne focntionnait pas. Donc, j'écris systématiquement Range("").
A+
Private Sub CommandButton1_Click()
If ActiveCell.Row > 14 And ActiveCell.Row < Trim(Str(Range("weight").Row) - 2) Then
activerow = ActiveCell.Row + 1
Cells(activerow, 1).EntireRow.Insert
Range(Cells(activerow, 10), Cells(activerow, 11)).FormulaR1C1 = "=IF(RC[-2]>RC[-7], RC[-2]-RC[-7],0)"
End If
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" + Trim(Str(Range("weight").Row) + 2)
End Sub
Bonsoir à tous
En effet, [A1] est une forme abrégée de Evaluate("A1") et non de Range("A1").ROGER2327
#3004