jamespatagueul
XLDnaute Occasionnel
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
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