Bonjour,
Voici ce qui met demandé :
Lors d’un click sur le bouton Tirage, vous devez générer, sans répétition, 7 nombres aléatoire entre 1 et 49, les afficher, en ordre croissant, dans la grille Tirage et ensuite, déterminer et afficher combien de nombres choisis par l’usager se retrouvent dans la combinaison gagnante. L’affichage se fait dans un MsgBox.
Je suis capable de créer 7 nombres aléatoire et de les placer en ordre croissant. Toutefois, je n’arrive pas à les comparer et à afficher un MsgBox avec le nombre de doublons …
Voici le code que j’ai fait jusqu’à présent:
Private Sub cmdTirage_Click()
Dim i As Integer
Randomize
For i = 14 To 20
Cells(i, 5) = Int((49 - 1 + 1) * Rnd + 1)
Next i
Range("E13:E20").Select
ActiveWorkbook.Worksheets("loto").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("loto").Sort.SortFields.Add2 Key:=Range("E13"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("loto").Sort
.SetRange Range("E13:E20")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'comparer et afficher MsgBox
End Sub
Vous trouverez ici, un document Excel qui montre exactement à quoi doit ressembler mon travail à la fin. Cela peut vous aider à comprendre ce que je dois faire.
modele.xlsm (25,2 Ko)