Help macro Excel
Résolu
au secours
j'aimerais réaliser une macro pour :
dans la case E9, choisir au hasard un nombre entier de 1 à 5
dans la case F9, choisir au hasard un nombre entier de 1 à 5, différent de celui de E9
dans la case G9, choisir au hasard un nombre entier de 1 à 5, différent de celui de E9 et de F9
dans la case H9, choisir au hasard un nombre entier de 1 à 5, différent de celui de E9 et de F9 et de G9
Puis quand cela est fait pour la ligne 9, on fait lameme chose pour laligne 10
ceci jusque la ligne 139
j'aimerais réaliser une macro pour :
dans la case E9, choisir au hasard un nombre entier de 1 à 5
dans la case F9, choisir au hasard un nombre entier de 1 à 5, différent de celui de E9
dans la case G9, choisir au hasard un nombre entier de 1 à 5, différent de celui de E9 et de F9
dans la case H9, choisir au hasard un nombre entier de 1 à 5, différent de celui de E9 et de F9 et de G9
Puis quand cela est fait pour la ligne 9, on fait lameme chose pour laligne 10
ceci jusque la ligne 139
Configuration: Windows XP Internet Explorer 7.0
2 réponses
-
Modérateur
-
j'ai trouvé :
Sub hasard()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
For m = 9 To 139
i = Fix(Rnd() * (6 - 1) + 1)
Cells(m, 5).Value = i
Do
j = Fix(Rnd() * (6 - 1) + 1)
Loop Until j <> i
Cells(m, 6).Value = j
Do
k = Fix(Rnd() * (6 - 1) + 1)
Loop Until k <> i And k <> j
Cells(m, 7).Value = k
Do
l = Fix(Rnd() * (6 - 1) + 1)
Loop Until l <> k And l <> j And l <> i
Cells(m, 8).Value = l
Next m
End Sub
merci quand meme
