Tirage au sort aléatoire sur plusieurs plages

Bonjour,

j'ai parcouru le forum et j'ai trouvé partiellement la solution à mon problème.

Je voudrais réaliser simultanément des tirages au sort aléatoire sans doublon sur des plages différentes. Les valeurs sur chacune des plages oscillent entre 1 et 12.

Je vous joins un tableau qui fonctionne pour une plage. (j'ai recopié la formule de Zirak) mais ne connaissant pas la programmation VBA, je n'arrive pas à démultiplier la formule sur les autres plages.

Je suis sûr que ça ne sera pas difficile pour vous. J'ai testé plein de petites modifs, en vain.

Merci d'avance pour votre aide.

Aurélien.

Bonjour,

essaie ce code

Sub Aleatoire()

    alea_ici Range("E3:E14")
    alea_ici Range("I3:I14")
    ' définir idem autres plages

End Sub

Sub alea_ici(plage As Range)
Dim cel As Range, alea As Double

    plage.Value = ""
    If plage.Count > 12 Then Exit Sub

    Randomize

    For Each cel In plage
1       alea = WorksheetFunction.RandBetween(1, 12)
        If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
    Next

End Sub

à compléter par toi (je n'ai fait que 2 plages) ...

Bonjour et bienvenue sur le forum

Bonjour à tous

Une variante à tester.

Bye !

Merci à vous d'avoir été aussi rapide!

C'est juste super.

Rechercher des sujets similaires à "tirage sort aleatoire plages"