Décaler d'une ligne

[HERBIN]

j'ai réalisé une macro avec excel 2003, qui affiche un tableau des résultats, mon probleme est que je souhaiterais décalés d'une ligne la colonne c et décalés de deux lignes la colonne d
voir fichier en pièce jointe.
merci pour votre aide
bien cordialement
HERBINE

Moyenne mobile Moyenne mobile centrée

473,00
475,00 474,00
485,00 480,00
491,00 488,00
505,00 498,00
511,00 508,00
513,00 512,00
517,00 515,00
523,00 520,00
549,00 536,00
563,00 556,00
573,00 568,00
575,00 574,00
546,67

 

[mth]

Re : Décaler d'une ligne

Bonjour

Un bout d'essai avec ce code (si j'ai bien compris ?...)

Sub calCoeff()
 
    Dim i As Integer
    Dim DerLig As Long

With Worksheets("Moyenne_Mobile")
    DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 2 To DerLig - 2
        .Cells(i + 1, 3).Value = Application.WorksheetFunction.Average(.Range(.Cells(i, 2), .Cells(i + 3, 2)))
    Next i
    For i = 2 To DerLig - 4
        .Cells(i + 2, 4).Value = Application.WorksheetFunction.Average(.Range(.Cells(i + 1, 3), .Cells(i + 2, 3)))
    Next i
End With
End Sub

Bonne journée,

mth

 

[HERBIN]

Re : Décaler d'une ligne

merci, ça marche au début mais à la fin de la colonne D deux chiffres s'affichent que je souhaierais pas affiché. en D16 et D17
MERCI
A B C D
xi yi Moyenne mobile Moyenne mobile centrée
1 524
2 378 473
3 354 475 474
4 636 485 480
5 532 491 488
6 418 505 498
7 378 511 508
8 692 513 512
9 556 517 515
10 426 523 520
11 394 549 536
12 716 563 556
13 660 573 568
14 482 575,00 574,00
15 434 546,67 560,83
16 724 546,67
Les deux chiffres de la colonne D 560.83 et 546.67 ne doivent pas s'afficher

 

[mth]

Re : Décaler d'une ligne

re 🙂

Essaie en ajoutant cette ligne à la fain (juste avant le End With)

        .Range(.Cells(DerLig - 1, 4), .Cells(DerLig, 4)).ClearContents

@ +

mth

 

[HERBIN]

Re : Décaler d'une ligne

Merci beaucoup ca marche