Bonjour,
Je suis plus que débutant dans les macros.
Je voudrais savoir comment faire pour inserer une ligne toute les 8 lignes (ça j'ai trouvé) et comment remplir automatiquement les cellules de cette ligne avec la moyenne des valeurs des 7 lignes précédente.
Je m'explique, j'ai un tableu avec les 7 jours de la semaine dans la colone A et des valeurs dans les colonnes C à L.
J'ai trouvé cette macro sur ce forum pour inserer la ligne suplémentaire:
Sub MacroInsertUneLigneSurCinq()
Dim Line As Integer
Range("A2").Select
Line = 0
Recommence:
Line = Line + 8
Rows(Line).Select
Selection.Insert Shift:=xlDown
If Line < ActiveSheet.UsedRange.Rows.Count Then
GoTo Recommence
End If
End Sub
et maintenant je cherche comment inserer les formules (ou la moyenne directement)
dans les colonnes C à L.
Merci par avance
Je suis plus que débutant dans les macros.
Je voudrais savoir comment faire pour inserer une ligne toute les 8 lignes (ça j'ai trouvé) et comment remplir automatiquement les cellules de cette ligne avec la moyenne des valeurs des 7 lignes précédente.
Je m'explique, j'ai un tableu avec les 7 jours de la semaine dans la colone A et des valeurs dans les colonnes C à L.
J'ai trouvé cette macro sur ce forum pour inserer la ligne suplémentaire:
Sub MacroInsertUneLigneSurCinq()
Dim Line As Integer
Range("A2").Select
Line = 0
Recommence:
Line = Line + 8
Rows(Line).Select
Selection.Insert Shift:=xlDown
If Line < ActiveSheet.UsedRange.Rows.Count Then
GoTo Recommence
End If
End Sub
et maintenant je cherche comment inserer les formules (ou la moyenne directement)
dans les colonnes C à L.
Merci par avance