Bonjour à toutes et à tous
Une fois de plus, je me permets de solliciter votre aide.
- Je tente de compléter ce code, en imposant le format "2 décimales" au résultat de calcul de la moyenne.
- Sur le même principe, j'ai besoin de faire des sommes hedomadaires, en colonnes C, D E et F, sachant que, comme précédemment et suivant les mois, les lignes "Dim" sont variables :
J'ai fait une tentative en déclarant une variable avec "NumCol", mais sans parvenir à l’intégrer au code existant.
Pouvez-vous m'éclairer ?
Vous trouverez, en pièce jointe, un petit fichier exemple.
Bien cordialement
Une fois de plus, je me permets de solliciter votre aide.
- Je tente de compléter ce code, en imposant le format "2 décimales" au résultat de calcul de la moyenne.
- Sur le même principe, j'ai besoin de faire des sommes hedomadaires, en colonnes C, D E et F, sachant que, comme précédemment et suivant les mois, les lignes "Dim" sont variables :
Code:
Sub hebdo()
For n = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Range("A" & n) = "dim" Then
If n - 6 < 1 Then
mm = 1
Else
mm = n - 6
End If
For m = n To mm Step -1
If Range("G" & m) <> 0 And Range("G" & m) <> "" Then
tot = tot + Range("G" & m)
nb = nb + 1
End If
Next m
If tot <> 0 And nb <> 0 Then Range("G" & n) = tot / nb
End If
tot = 0
nb = 0
Next
End Sub
J'ai fait une tentative en déclarant une variable avec "NumCol", mais sans parvenir à l’intégrer au code existant.
Pouvez-vous m'éclairer ?
Vous trouverez, en pièce jointe, un petit fichier exemple.
Bien cordialement