[XL-2007] Formule dans une plage de données variables

Formule dans une plage de données variables

Bonjour,

Je tente de faire un bout de code afin d'obtenir des nombres entre 0 et 100 mais uniquement sur un nombre de lignes déterminé qui peut être variable. Je m'explique : L'utilisateur entre un chiffre entier compris entre 1 et 20. Ce chiffre me sert de base pour déterminer sur combien de lignes la faormule alea.entre.bornes va être dupliquée. Voilà ce que j'ai fait, mais je dois avoir une erreur de paramétrage :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub MaMacro() Dim i As Integer, j As Range Application.ScreenUpdating = False With Sheets("Test") i = .Range("F6").Value + 10 For Each j In .Range("B11:B" & i) .Formula = "=RANDBETWEEN(1,100)" .Value = .Value Next End With Application.ScreenUpdating = True End Sub
C'est l'erreur d'exécution n° 438 (Propriété ou méthode non gérée par cet objet) qui s'affiche en me surlignant ma ligne :

Code:

.Formula = "=RANDBETWEEN(1,100)"

Quelqu'un pourrait-il me dire où j'ai loupé mon code SVP ?
Merci d'avance, bonne journée à vous tous.

Bonjour,

Essaie ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub MaMacro()
 
    Dim i As Integer
 
    Application.ScreenUpdating = False
 
    With Sheets("Test")
        i = .Range("F6").Value + 10
        .Range("B11").Formula = "=RANDBETWEEN(1,100)"
        .Range("B11").AutoFill Destination:=.Range("B11:B" & i)
        .Range("B11:B" & i).Value = .Range("B11:B" & i).Value
    End With
 
    Application.ScreenUpdating = True
 
End Sub

Super, merci issoram, ça fonctionne à merveille ! ^^