Vba générer des nombres entiers bornés sans doublon
Résolu
noe2008
Messages postés
184
Date d'inscription
Statut
Membre
Dernière intervention
-
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
A voir également:
- Nombre aleatoire vba
- Nombre de jours entre deux dates excel - Guide
- Nombre facile - Télécharger - Outils professionnels
- Tirage au sort excel aléatoire sans doublon ✓ - Forum Excel
- Ascii nombre de caractères - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
3 réponses
Bonjour,
Sans macro :
https://www.cjoint.com/c/ELorxurKQBU
Sans macro :
https://www.cjoint.com/c/ELorxurKQBU
Trotinne
Enfin une explication claire , simple et précise sans se lancer dans une usine à gaz!!! Mille merci