Salut Wolf, @Xtof@, le Forum
Essaie soit ceci :
Sub FormuleLocale() 'pour Excel version FR
Dim Val1 As Byte, val2 As Byte '(As Interger si Val doit être > 255)
Val1 = 5
val2 = 5
Cells(1, 1).FormulaLocal = "=SOMME(R[0]C" & Val1 & ":R[0]C" & val2 & ")"
End Sub
Ou encore
Sub Formule()'pour toute version d'Excel
Dim Val1 As Byte, val2 As Byte '(As Interger si Val doit être > 255)
Val1 = 5
val2 = 5
Cells(1, 1).Formula = "=SUM(R[0]C" & Val1 & ":R[0]C" & val2 & ")"
End Sub
Bon App
@+Thierry