Tirage au sort

Bonsoir le forum

Comment faire pour ne pas avoir de lignes vides lors du tirage ?

Dans l'exemple il faudrai que "C1:F2" soient remplies.

Merci

Bonjour

Modifies ton code

Sub tirage(Lig As Integer)
  ligne = Lig
  colonne = 3
  Set liste = New Collection
  While liste.Count < Range("k1")
    Randomize
    num = Int((Range("k1") * Rnd) + 2)
    On Error Resume Next
     liste.Add num, CStr(num)
    On Error GoTo 0
  Wend
  For n = 1 To liste.Count
   Cells(ligne + (n - 1) \ Range("k3"), colonne + (n - 1) Mod Range("k3")) = Range("A" & liste(n))
  Next n
End Sub

Merci Banzai64

J'ai juste omis de signaler que les limites sont les colonnes de " C à F",si on ajoute des participants,cela déborde au delà de "F"

Merci.

Bonjour

La cellule K3 ne correspond elle pas aux nombre de colonnes pour l'affichage ?

Si ce n'est pas le cas remplaces dans le code la partie surlignée

Sub tirage(Lig As Integer)
  ligne = Lig
  colonne = 3
  Set liste = New Collection
  While liste.Count < Range("k1")
    Randomize
    num = Int((Range("k1") * Rnd) + 2)
    On Error Resume Next
     liste.Add num, CStr(num)
    On Error GoTo 0
  Wend
  For n = 1 To liste.Count
   Cells(ligne + (n - 1) \ 4, colonne + (n - 1) Mod 4) = Range("A" & liste(n))
  Next n
End Sub

SI,Excat

Je suis pas vraiment doué en VBA

Encore merci pour ton travail

A+