Autres correction formule

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Avril 2021

• #2

Bonjour Alea,
Testez ces deux macros :

VB:

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 1 Avril 2021

• #3

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

 

Vote positif 0 Vote négatif

A

ALEA()

XLDnaute Occasionnel

• 1 Avril 2021

• #4

Merci beaucoup à vous.

A ++

 

Vote positif 0 Vote négatif