Autres correction formule

[ALEA()]

Bonjour, j'ai écrit:

For i = 10 To 5 Step -1

Cells(i, 13).Value = Formula = "=Alea.entre.bornes(1;30)"

Next i

VBA refuse la formule, vous pouvez m'aider?
merci

 

[sylvanu]

Bonjour Alea,
Testez ces deux macros :

Sub essai()
    For i = 10 To 5 Step -1
        Cells(i, 13).FormulaR1C1 = "=RANDBETWEEN(1,30)"
    Next i
End Sub

Sub essai2()
    Range("M5:M10").FormulaR1C1 = "=RANDBETWEEN(1,30)"
End Sub

La seconde est plus simple.
Pour la syntaxe utilisez l'enregistreur de macros, c'est rapide et efficace.

 

[pierrejean]

Bonjour ALEA
tester:
Sub test()
For i = 10 To 5 Step -1
Cells(i, 13).FormulaLocal = "=ALEA.ENTRE.BORNES(1;30)"
Next i
End Sub

 

[ALEA()]

Merci beaucoup à vous.

A ++