OVH Cloud OVH Cloud

loterie

1 réponse
Avatar
Michel
Bonjour
J'aimerais qu'une macro excel puisse me tirer au sort des numéros par
paires.
Si dans A1 j'ai les noms des participants en b je voudrais qu'excel me fasse
des paires
de participants bien sur uniques car un participant ne peu jour qu'une fois.
Merci d'avance pour votre aide

1 réponse

Avatar
AV
Les noms des joueurs en A1:Ax
Colonnes B et C vides

Sub zzz()
Application.ScreenUpdating = False
x = [A65536].End(3).Row
Range("A1:A" & x).Copy ([B1])
Range("C1:C" & x) = "=rand()"
Range("B1:C" & x).Sort Key1:=[C1], Order1:=xlAscending
[C:C].Clear: z = 1
For i = 1 To x Step 2
n1 = Cells(i, "B").Value
n2 = Cells(i + 1, "B").Value
Cells(z, 2) = n1 & " - " & n2
z = z + 1
Next
Range(Cells(z, "B"), Cells(i, "B")).Clear
End Sub

AV