Vérifier les doublons entre deux colonnes et afficher un MsgBox qui indique le nombre de doublons


#1

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)