Discussion :

[Runsh63]

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.

[issoram]

Bonjour,

Essaie ceci:

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
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

[Runsh63]

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