Report de données et step

Bonjour à tous,

Voici le code qui me pose problème:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

For i = 6 To Nb + 7 For j = 2 To min - 36 'Affectation de la fenetre glissante contenant 36 mois de données Set rgb = ThisWorkbook.Worksheets(i).Cells(j, 8).Resize(36, 1) 'Report des informations sur les rendements With wse .Cells(1, i - 4) = Worksheets(i).Name .Cells(j, i - 4) = WorksheetFunction.Average(rgb) .Cells(j, 1) = Worksheets(i).Cells(j, 1).Value .Cells(1, 1) = "Dates" End With next j next i

---

La ligne en gras a pour but de reporter une colonne de dates présentes sur une autre feuille de mon classeur. Néanmoins, j'aimerais reporter une date sur 3, c'est à dire celle de la cellule A2, puis celle de la cellule A5 etc... J'ai envisagé de faire ça avec step néanmoins cela bloque (je ne dois pas toucher à ma boucle).

Auriez vous des suggestions ?

Merci d'avance ;)

Bonjour.

Au cas où, et par le plus grand des hasards, j'aurais compris, tu peux essayer

Code:

---

if (j mod 3) = 2 then .Cells(j, 1) = Worksheets(i).Cells(j, 1).Value

---

Fais attention à l'indentation de ton code : cela ressemble à n'importe quoi ;)

PGZ

Ah bah mince moi qui trouvais ça plus lisible :p (bon je vais changer ça)

Sinon c'est presque ça, disons par exemple que sur ma sheets(1), j'ai la colonne A remplie de dates, et je veux en reporter certaines sur la sheets(2).
Comme ceci:

01/01/2011
02/01/2011
03/01/2011
04/01/2011
05/01/2011
06/01/2011
07/01/2011
etc...

J'aimerais que la date 01/01/2011 apparaisse dans la cellule A2 de ma sheets(2), puis la date 04/01/2011 dans la cellule A3 de ma sheets(2), et ainsi de suite. J'ai tenté de réutiliser Mod3 dans la partie droite de la ligne de code mais cela me définie une erreur d'application :/

Merci pour ta réponse sinon :)

Re,

Il faut mettre un espace entre "Mod" et "3".

PGZ

Code:

---

.Cells(j, 1) = Worksheets(i).Cells((j Mod 3) = 2, 1).Value

---

Euh oui j'ai bien mis l'espace, mais malheureusement ça ne fonctionne pas ici. Je ne peux pas intégrer le IF dans le membre de droite alors j'ai voulu placer le MOD ainsi mais malheureusement erreur d'application.

Si tu veux commencer en ligne 2 :

Code:

---

if (j mod 3) = 2 then .Cells((j\3)+2, 1) = Worksheets(i).Cells(j, 1).Value

---

PGZ

Great ça tourne, mais malgré tout je vais étudier le truc parce que j'aurais jamais pensé à ça tout seul.

Thx :)