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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
.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.