Copier liste transposée

[jamespatagueul]

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

 

[mapomme]

Bonjour,

Une piste dans le fichier joint. Il faut compléter les valeurs des sept constantes dans le code de la macro.

 

[jamespatagueul]

Bonjour mapomme,

super merci, plus qu'a adapter a mes besoins.
Question : commet déclarer le codename des feuil, pour éviter les erreur si je modifie les nom des feuilles.

Merci

 

[mapomme]

Re,

Question : commet déclarer le codename des feuil, pour éviter les erreur si je modifie les nom des feuilles.

On ôte les deux constantes des noms de feuilles et on marque Feuil1 et Feuil2 en dur dans le code.

 

[mapomme]

Re,

On peut aussi déclarer deux variables F1 et F2 de type WorkSheet et les initialiser en début de code avec les feuilles correspondantes aux deux CodeName puis,dans le code, à la place des deux CodeNames Feuil1 et Feuil2, utiser F1 ou F2. Cela laisse une possibilité de paramétrage des deux CodeNames (au cas où).

 

[jamespatagueul]

Merci a vous 2.

et pour ces constente :
Const PasHori = 3 'le pas horizontal
Const NbrValHori = 5 'nombre de cellule à remplir par ligne
Const PasVert = 4 'le pas vertical

comment les "lier" a des cellule (feuil1.range("A1") par ex)

Merci

 

[mapomme]

Re,

Merci a vous 2

C'est qui les deux ?

et pour ces constantes :
Const PasHori = 3 'le pas horizontal
Const NbrValHori = 5 'nombre de cellule à remplir par ligne
Const PasVert = 4 'le pas vertical

comment les "lier" a des cellule (feuil1.range("A1") par ex)

Voir le fichier joint.

J'ai ajouté une feuille "Data" qui contient les valeurs des constantes. On peut donc directement sur la feuille "Data" faire varier leur valeur. Les cellules contenant ces constantes ont été nommées. Dans le code, c'est avec ces noms qu'on détermine les valeurs à utiliser. Dans le code, ces "constantes"ont été transformées en variables.

 

[jamespatagueul]

Super merci mapomme.