gresishark
XLDnaute Nouveau
Bonjour,
j'aimerais effectuer un tirage aléatoire sur 2 colonnes avec avec des chiffres allant de 1 à <valeur cellule>.
Cela fonctionne avec une limite paire mais si je met comme limite un nombre impair, la macro ne s’exécute pas
alors que j'aimerais :
1 6
3 5
7 4
2
Voila mon code :
Merci d'avance.
Gresishark
j'aimerais effectuer un tirage aléatoire sur 2 colonnes avec avec des chiffres allant de 1 à <valeur cellule>.
Cela fonctionne avec une limite paire mais si je met comme limite un nombre impair, la macro ne s’exécute pas
alors que j'aimerais :
1 6
3 5
7 4
2
Voila mon code :
Code:
Sub Aleatoire()
Dim plage As Range, cel As Range, alea As Double
Dim num_ligne As Integer
Dim cel_fin As String
nb_equipes = [Feuil1!A1]
num_ligne = 12
cel_deb = "D2"
cel_fin = "E" & num_ligne
Set plage = Range(cel_deb & ":" & cel_fin) 'modifiable
Range(cel_deb & ":E1000").ClearContents
plage.Value = ""
If plage.Count > nb_equipes Then Exit Sub
Randomize
For Each cel In plage
1 alea = WorksheetFunction.RandBetween(1, nb_equipes)
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
Next
End Sub
Merci d'avance.
Gresishark