Help macro Excel
Résolu
MIKE
-
MIKE -
MIKE -
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
A voir également:
- Help macro Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
2 réponses
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
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