double clic sur Calculer en VBA

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

HERBIN

XLDnaute Junior
bonsoir
j'ai un problème avec ma macro, pour obtenir les résultats justes je dois cliquer deux fois sur mon bouton calculer pour obtenir les bons résultats sur la colonne D.
voila mon code
Code:
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)))
            .Cells(i + 2, 4).Value = Application.WorksheetFunction.Average(.Range(.Cells(i + 1, 3), .Cells(i + 2, 3)))
        Next i
         .Range(.Cells(DerLig - 1, 4), .Cells(DerLig, 4)).ClearContents
    End With
 
End Sub
merci pour votre aide
cordialement
xi yi Moyenne mobile Moyenne mobile centrée
1 6000
2 4500 4250,00
3 1500 4625,00 4437,50
4 5000 4700,00 4662,50
5 7500 4825,00 4762,50
6 4800 4950,00 4887,50
7 2000 5325,00 5137,50
8 5500 5675,00 5500,00
9 9000 5650,00 5662,50
10 6200 5475,00 5562,50
11 1900 5425,00 5450,00
12 4800 5275,00 5350,00
13 8800 5225,00 5250,00
14 5600 5100,00 5162,50
15 1700 3866,67
16 4300
 

Pièces jointes

Re : double clic sur Calculer en VBA

Bonsoir Herbin,

Essaie avec ceci:

Code:
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 soirée,

mth

Edit: re kjin 🙂 🙂
(tu as raison je n'avais pas vu celui là, beaucoup de fils pour un seul sujet ...)
bise,
m
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
1 K
Réponses
11
Affichages
1 K
Réponses
16
Affichages
3 K
Retour