Vba générer des nombres entiers bornés sans doublon

Résolu/Fermé
Messages postés
166
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
25 janvier 2022
-
 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

Configuration: Windows / Chrome 84.0.4147.135

3 réponses

Messages postés
8539
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 juillet 2021
1 731
Bonjour,

Sans macro :
https://www.cjoint.com/c/ELorxurKQBU
Enfin une explication claire , simple et précise sans se lancer dans une usine à gaz!!! Mille merci
Messages postés
16551
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
26 janvier 2022
3 261
Bonjour

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


Messages postés
166
Date d'inscription
vendredi 18 juillet 2008
Statut
Membre
Dernière intervention
25 janvier 2022
4
Merci Patrice , merci michel les deux solutions sont excellentes