Selection aléatoire sans doublon
Résolu
Sormick
Messages postés
146
Date d'inscription
Statut
Membre
Dernière intervention
-
Sormick Messages postés 146 Date d'inscription Statut Membre Dernière intervention -
Sormick Messages postés 146 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Selection aleatoire
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Tirage au sort excel aléatoire sans doublon ✓ - Forum Excel
- Formule "alea entre bornes" sans doublon. - Forum Excel
- Tirage au sorte d'un nom dans une liste sans répetition - excel ✓ - Forum Excel
- Erreur d'execution 9, l'indice n'appartient pas à la sélection ✓ - Forum Programmation
quelque chose ne va pas dans votre code!
il m'efface les valeurs que j'ai dans ma colonne A et me mets des valeurs comme ceci:
50
42
70
18
43
55
jusqu'à la cellule (A67)
et merci pour le temps passé ?
Relis quand même ton charabia que tu as appelé "code"
en fait voila ce que je souhaite faire mais je n'y arrive pas.
je souhaite que une valeur soit sélectionnée au hazard dans la colonne (A)
puis il passe à une autre valeur toujours de manière aléatoire.
mais tout ceci sans sélectionner une deuxième fois une valeur déjà sélectionnée auparavant!
il doit faire la sélection que trois fois maximum donc je pense qu'il faut utiliser une boucle du genre:
i cptr = 1 To 3
voilà . désolé. si besoin je vous mettrais une pièce jointe de mon tableau
Merci
La voici::
Columns("c:c").ClearContents
Dim FillRange As Range, SrcRange As Range
Dim LastRow As Long, c As Range
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set SrcRange = Range("A1:A" & LastRow)
Set FillRange = Range("c1:c" & Range("h1").Value)
For Each c In FillRange
Do
c.Value = Application.Index(SrcRange, Int((LastRow * Rnd) + 1))
Loop Until WorksheetFunction.CountIf(FillRange, c.Value) < 2
Next
Bonne journée à tous!!