Discussion :

[locosr]

Bonjour à tous,

Voici le code qui me pose problème:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

Bonjour.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[locosr]

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

[pgz]

Re,

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

PGZ

[locosr]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

      .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.

[pgz]

Si tu veux commencer en ligne 2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

PGZ