Tirage aléatoire


#1

Tirage.xlsx (10,1 Ko)

Bonsoir,
J’ai encore besoin de vos connaissances.
Les explications sont notées sur le fichier joint.
Merci de vous pencher sur mon problème.
Cordialement,


#2

Bonjour,

Un exemple avec une petite macro
Tirage.xlsm (354,1 Ko)


#3

Bonjour,
Petite macro, mais combien efficace
Juste un bref problème (qui finalement n’en es pas un, pour remettre à zéro)
Lorsque j’efface je note zéro est le « click » sur la macro, donne une fenêtre d’erreur.
Mais cela me va très bien, c’est parfait.
Encore une petite remarque :
Attention, en apportant une solution si vite, un jour tu vas répondre avant que ne soit posé le problème.
Mille mercis


#4

Re,
Dans le cas remplace par cette macro qui prend aussi bien le zéro ou le vide

Sub Aleatoire()

Dim plage As Range, cel As Range, alea As Double
Dim NbInscrit%, NbNeCes%
Range(“A1:A65000”).Clear
NbInscrit = Range(“G3”)
NbNeCes = Range(“G2”)
If NbNeCes = 0 Then Exit Sub
Set plage = Range(“A1:A” & NbNeCes) 'modifiable
plage.Value = ""
If plage.Count > NbNeCes Then Exit Sub
Randomize
For Each cel In plage
1 alea = WorksheetFunction.RandBetween(1, NbInscrit)
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
Next

End Sub


#5

Salut Mimimathy
Eh, oui ça marche
Re “milles merci”