Vba générer des nombres entiers bornés sans doublon [Résolu]

Signaler
Messages postés
153
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
24 octobre 2020
-
Messages postés
153
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
24 octobre 2020
-
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

Configuration: Windows / Chrome 84.0.4147.135

3 réponses

Messages postés
8212
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
22 octobre 2020
1 498
Bonjour,

Sans macro :
http://www.cjoint.com/c/ELorxurKQBU
Messages postés
16260
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 octobre 2020
3 051
Bonjour

Avec VBA s'inspirant de ton exemple
https://mon-partage.fr/f/Dd8VP8aN/


Messages postés
153
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
24 octobre 2020
3
Merci Patrice , merci michel les deux solutions sont excellentes