Bonjour le forum,
je souhaite copier une liste (ligne 2 a 50 par exemple) sur une autre feuille,
mais coller les valeurs ligne +1 dans des cellules parametrable.
J'ai ce type de code actuellement qui fonctionne bien :
""
Randomize
ch = Feuil1.Cells(2 ^ 16, 2).End(xlUp).Row
Feuil2.Select
For C = 2 To 15 Step 3 'b à j
For l = 3 To 290 Step 29 'de la ligne 3 a la ligne 290 feuil3 tous les 29
tirage:
t = Feuil1.Cells(Int(Rnd() * ch) + 2, 2) 'liste col b feuil liste
If t = "" Then GoTo tirage
Cells(l, C) = t
'tests sur le passé
a = a + 1
ReDim Preserve Tableau(a)
Tableau(a) = t
For i = 1 To a - 1
If Cells(l, C) = Tableau(i) Then GoTo tirage
Next i
Next l
Next C
.... ""
mais je souhaite ne plus utilisé le tirage car je vais faire un trie aléatoire de la colonne avant.
Pourriez vous me guider.
Merci d'avance