Tirage au sort avec pré tirage

gourdin · 16 Juin 2017

Bonjour,

J'ai récupéré une macro qui me permet d'attribuer des N° à des noms (cf fichier joint) et qui fonctionne parfaitement (merci les forums).

L'affaire se complique car il arrive que des N° soit attribués à des noms avant le tirage au sort (têtes de série en sport).
Comment attribuer des numéros au sort en tenant compte de numéros déjà attribués ?

Voir pièce jointe

Merci

pierrejean · 17 Juin 2017

Re

Vois si cela te convient

Dranreb · 17 Juin 2017

Avec le module de classe ListeAléat :

VB:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C&, Plage As Range, LAt As New ListeAléat, T(), L&
If Target(1,1).Value <> "> TIRAGE" Then Exit Sub
C = Target.Column
Set Plage = Cells(8, C + 1).Resize(Cells(60000, C).End(xlUp).Row - 7, 2)
T = Plage.Value
Randomize
LAt.Init UBound(T, 1)
For L = 1 To UBound(T, 1)
   If Not IsEmpty(T(L, 2)) Then LAt.Remettre T(L, 1), L
   Next L
For L = 1 To UBound(T, 1)
   T(L, 1) = LAt.Aléat(L): Next L
Plage.Value = T
End Sub

gourdin · 17 Juin 2017

pierrejean à dit:
Re

Vois si cela te convient

Celà semble convenir
Merci

gourdin · 17 Juin 2017

Dranreb à dit:

Avec le module de classe ListeAléat :

VB:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C&, Plage As Range, LAt As New ListeAléat, T(), L&
If Target(1,1).Value <> "> TIRAGE" Then Exit Sub
C = Target.Column
Set Plage = Cells(8, C + 1).Resize(Cells(60000, C).End(xlUp).Row - 7, 2)
T = Plage.Value
Randomize
LAt.Init UBound(T, 1)
For L = 1 To UBound(T, 1)
   If Not IsEmpty(T(L, 2)) Then LAt.Remettre T(L, 1), L
   Next L
For L = 1 To UBound(T, 1)
   T(L, 1) = LAt.Aléat(L): Next L
Plage.Value = T
End Sub

Celà fonctionne parfaitement merci

pierrejean · 18 Juin 2017

Re

Version plus generaliste

gourdin · 18 Juin 2017

pierrejean à dit:
Re

Version plus generaliste

Bonjour,
Merci

Tirage au sort avec pré tirage

gourdin

XLDnaute Impliqué

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

gourdin

XLDnaute Impliqué

gourdin

XLDnaute Impliqué

pierrejean

XLDnaute Barbatruc

Pièces jointes

gourdin

XLDnaute Impliqué

Discussions similaires