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,
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,
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
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
Salut Mimimathy
Eh, oui ça marche
Re “milles merci”