Recopier des données en boucle

Bonjour,

Je me remet à Excel pour le boulot après des années sans trop l'utiliser donc j'ai perdu quelques notions avancées. Votre site à l'air bien dynamique alors je me permet de vous poser une paire de questions.

Je travail dans le solaire. Pour les calculs de charge je fait une semaine type de consommation grâce à des analyse de conso sur site. Puis je duplique cette semaine à l'ensemble de l'année avec différents coéf pour les mois de l'année. J'ai a peu prés tout automatisé. Il ne me manque plus qu'une partie.

J'ai ma semaine type (conso par heure du lundi 00h au dimanche 23h), que je veux dupliquer sur une années entière du 1er janvier 00h au 31 décembre 23h.

Donc il s'agit de copier X fois à la suite la semaine en question jusqu'au 31 décembre.

Je vous met un exemple en PJ.

Merci d'avance.

Gilles

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Option Explicit

Dim TabloS, tabloR
Dim i&, iR&, nbL, dte, k&

Sub Report()

    TabloS = Range("B3:B170")
    dte = DateValue(Replace(Left(Range("F3"), 10), ".", "/"))
    nbL = (DateSerial(Year(dte) + 1, Month(dte), Day(dte)) _
            - DateSerial(Year(dte), Month(dte), Day(dte))) * 24
    ReDim tabloR(1 To nbL, 1 To 1)
    For iR = 1 To nbL
        If iR Mod 168 <> 0 Then
            tabloR(iR, 1) = TabloS(iR Mod 168, 1)
        Else
            tabloR(iR, 1) = TabloS(168, 1)
        End If
    Next iR
    Range("H3").Resize(UBound(tabloR, 1), 1) = tabloR
End Sub

Bye !

Hey, super,

C'est exactement ce dont j'ai besoin !

J'essaie de compiler tous mes morceaux de fichier et éventuellement reposterai un message si besoin d'optimisations.

Merci en tout cas.

Gilles