bonjour,
Comme ça entre 2 portes et sans vérif, pour un tirage en colonne C:
Option Base 1
Sub testC()
Dim Tablo, i%, j%, k%
Application.ScreenUpdating = False
i = Range('C1').End(xlDown).Row
ReDim Tablo(i)
For j = 1 To i
k = Int(((i + 1 - j) * Rnd) + 1)
Tablo(j) = Cells(k, 3)
Cells(k, 3).Delete Shift:=xlUp
Next
Range('C1:C' & i) = Application.Transpose(Tablo)
Tablo = Clear
End Sub
Sinon tu peux aussi essayer ça (toujours sans filet...)
En supposant que
colonne A contienne les noms et
colonne B les prenoms, cette macro devrait faire un tirage avec les noms, prenoms concaténés.
Il suffit de mettre au départ une copie de la liste des noms (ou des prénoms, ou des chiffres...) en colonne C
Il faut et il suffit qu'il y ait autant d'éléments dans chaque colonne.
Option Base 1
Sub testConc()
Dim Tablo, i%, j%, k%
Application.ScreenUpdating = False
i = Range('C1').End(xlDown).Row
ReDim Tablo(i)
For j = 1 To i
k = Int(((i + 1 - j) * Rnd) + 1)
Tablo(j) = Cells(k, 1) & ' ' & Cells(k, 2)
Range(Cells(k, 1), Cells(k, 2)).Delete Shift:=xlUp
Next
Range('C1:C' & i) = Application.Transpose(Tablo)
Tablo = Clear
End Sub
Ok ?
Message édité par: galopin01, à: 19/04/2005 23:17
