Macro insérer lignes et insérer formule "moyenne"
Bonjour,
J'ai cherché une solution dans le forum mais je ne trouve pas une réponse complète alors je me permets de solliciter votre aide. Voilà mon problème :
J'aurais besoin d'une macro insérant automatiquement des lignes en fonction d'un tri d'une colonne E par exemple et qui insère dans cette ligne ainsi crée un formule moyenne : j'ai un tableau avec des notes, je veux faire la moyenne de ces notes an fonction de l'établissement d'origine (c'est là que le tri opère colonne E).
Je débute totalement en macro....
J'ai joins un exemple de tableau.
Merci par avance pour votre aide
PS: j'ai bien trouvé des macros pour trier et insérer une ligne en fonction de l'établissement mais pas pour intégrer la moyenne...
Voici pour l'instant la macro que j'ai et qui effectue le tri:
Dim DerLig As Long
Dim I As Long
With Sheets("Feuil2")
DerLig = .Range("E65536").End(xlUp).Row
.Cells(DerLig + 1, 5) = "Total " & .Cells(DerLig, 5)
For I = DerLig To 4 Step -1
If .Cells(I - 1, 5) <> .Cells(I, 5) Then
.Rows(I).Insert shift:=xlDown
.Cells(I, 5) = "Total " & .Cells(I - 1, 5)
End If
Next I
End With
End Sub
Bonjour,
J'ai cherché une solution dans le forum mais je ne trouve pas une réponse complète alors je me permets de solliciter votre aide. Voilà mon problème :
J'aurais besoin d'une macro insérant automatiquement des lignes en fonction d'un tri d'une colonne E par exemple et qui insère dans cette ligne ainsi crée un formule moyenne : j'ai un tableau avec des notes, je veux faire la moyenne de ces notes an fonction de l'établissement d'origine (c'est là que le tri opère colonne E).
Je débute totalement en macro....
J'ai joins un exemple de tableau.
Merci par avance pour votre aide
PS: j'ai bien trouvé des macros pour trier et insérer une ligne en fonction de l'établissement mais pas pour intégrer la moyenne...
Voici pour l'instant la macro que j'ai et qui effectue le tri:
Dim DerLig As Long
Dim I As Long
With Sheets("Feuil2")
DerLig = .Range("E65536").End(xlUp).Row
.Cells(DerLig + 1, 5) = "Total " & .Cells(DerLig, 5)
For I = DerLig To 4 Step -1
If .Cells(I - 1, 5) <> .Cells(I, 5) Then
.Rows(I).Insert shift:=xlDown
.Cells(I, 5) = "Total " & .Cells(I - 1, 5)
End If
Next I
End With
End Sub
Pièces jointes
Dernière édition: