Vba générer des nombres entiers bornés sans doublon
Résolu
noe2008
Messages postés
191
Statut
Membre
-
Trotinne -
Trotinne -
Bonjour les amis ,
Dans la plage de cellules B2:B(n+1) je veux créer aléatoirement des nombres entiers sans doublon de 1 à n ; avec n=NBVAL(X:X)
j'ai trouvé une macro mais je suis pas arrivé à la modifier pour l'adapter à mon problème :
Sub Aleatoire()
Dim plage As Range, cel As Range, alea As Double
Set plage = Range("A1:A10") 'modifiable
plage.Value = ""
If plage.Count > 76 Then Exit Sub
Randomize
For Each cel In plage
1 alea = 25 + Int(76 * Rnd)
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
Next
End Sub
Merci d'avance
Dans la plage de cellules B2:B(n+1) je veux créer aléatoirement des nombres entiers sans doublon de 1 à n ; avec n=NBVAL(X:X)
j'ai trouvé une macro mais je suis pas arrivé à la modifier pour l'adapter à mon problème :
Sub Aleatoire()
Dim plage As Range, cel As Range, alea As Double
Set plage = Range("A1:A10") 'modifiable
plage.Value = ""
If plage.Count > 76 Then Exit Sub
Randomize
For Each cel In plage
1 alea = 25 + Int(76 * Rnd)
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
Next
End Sub
Merci d'avance
Configuration: Windows / Chrome 84.0.4147.135
