Tirage au sort avec pré tirage

[gourdin]

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]

Re

Vois si cela te convient

 

[Dranreb]

Avec le module de classe ListeAléat :

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]

Re

Vois si cela te convient

Celà semble convenir
Merci

 

[gourdin]

Avec le module de classe ListeAléat :

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]

Re

Version plus generaliste

 

[gourdin]

Re

Version plus generaliste

Bonjour,
Merci