Le code...
Private Sub CommandButton1_Click()
Dim plage As Range
Dim cell As Range
Set plage = Range("H10:H14, U10:U14, AH10:AH14, AU10:AU14")
For Each cell In plage
cell = (Int(Rnd(1) * 100) + 1) + Sheets("UN").Range("U9")
Next cell
End Sub
D'abord, j'établis mes variables (Dim plage as Range et Dim cell as Range).
J'ai donc maintenant deux variables, désignées comme étant des cellules avec lesquelles je peux travailler.
J'identifie ma variable "plage" comme étant une plage de cellule en lui indiquant quelle est sa portée.
Set plage = Range("H10:H14, U10:U14, AH10:AH14, AU10:AU14")
Ma boucle qui dit que pour chaque cellule (variable cell) dans ma plage (variable plage),
For Each cell In plage
j'effectue le calcul suivant :
cell = (Int(Rnd(1) * 100) + 1) + Sheets("UN").Range("U9")
Ma cellule (ici H10 qui est la première) est égale à un nombre aléatoire (Rnd(1)) multiplié par 100 pour obtenir un nombre entre 0 et 99 additionné de 1 pour obtenir un nombre entre 1 et 100 additionné de la valeur de la cellule U9 de la feuille UN
Rnd(1) * 100) + 1) + Sheets("UN").Range("U9")
et je termine en m'assurant qu'il s'agit d'un nombre entier.
(Int(Rnd(1) * 100) + 1) + Sheets("UN").Range("U9")
Finalement, je passe à ma cellule suivante :
Next cell