Macro que je n'arrive pas à modifier

[Greg]

Bonjour le forum,

Je debut dans les macro et je m'instruit en vous regardant.

J'ai mixer plusieur macro trouver sur ce forum pour faire celle qui m'interresse mais je bloque au moment de la somme.(voir exemple).
Si quelqu'un à une idée ,moi la je tourne en rond ,j'ai beau apprendre par l'exemple ,je bloque.
Merci par avance atous ceux qui m'aiderons

 

[ZON]

Salut Greg,

Moi je ne vois pas ton exemple pour le moment, petits soucis sur le forum.

A+++

 

[Dominqiue]

oups j'ai du oublier? Merci ZON

je remet un fichier sinon voila la macro

Sub Macro3()

Dim compteur As Integer
Dim i As Long
Columns("c:c").Select
Selection.Insert Shift:=xlToRight
Range("a:ww").Select
Selection.Sort Key1:=Range("d1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("c1").Select
For i = 1 To Range("d65536").End(xlUp).Row
Rang = i
compteur = 0
Do
Rang = Rang + 1
compteur = compteur + 1
Cells(Rang - 1, 3) = compteur
Loop Until Cells(Rang, 4) <> Cells(Rang - 1, 4)
i = Rang - 1
Next
Cells.Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
Application.ScreenUpdating = False
Valeur = Cells(6, 1)
For i = 1 To 65536
If Cells(i, 1) = "" Then
Range("A1").Select
Exit Sub
Else
If Cells(i, 3) <> Valeur Then
Rows(i & ":" & i).Select
Selection.Insert Shift:=xlDown

''''''Je pense que c'est ici qu'il faut faire la modif'''''''''''''''''''''''''''''''''''''''

i = i + 1
Valeur = Cells(i, 3)
End If
End If
Next i
Application.ScreenUpdating = True
Cells(1).Select
Range("A1").Select
End Sub


Pour quelle me face la somme des ligne inserée

 

[GRego]

Je comprend pas le fichier joint ne suis pas

 

[ZON]

Re,

si je comprends bien Greg/dominique/grego, tu veux coder des sommes en VBA dans les lignes insérées pour chaque colonne, tant que j'y étais j'ai un peu d'ordre dans ton code:

Sub Macro3()

Dim compteur As Integer
Dim I As Long
Dim Rang As Long, Toto As Long

Application.ScreenUpdating = False
Columns(3).Insert
Cells.Sort Key1:=[D1]
For I = 1 To 65536
If IsEmpty(Range("A" & I)) Then Exit For
Rang = I: compteur = 0
Do
compteur = compteur + 1
Cells(Rang, 3) = compteur
Rang = Rang + 1
Loop Until Cells(Rang, 4) <> Cells(Rang - 1, 4)
Rows(Rang).Insert
Range("E" & Rang) = "Total"
Range("F" & Rang & ":AG" & Rang).FormulaLocal = "=SOMME(F" & I & ":F" & Rang - 1 & ")"
I = Rang
Next I
End Sub

A+++

 

[Grego]

Bonjour le forum ,ZON

Alors celle la chapeau elle est impecable.

Je la modifie et je te la represente, vous me dirais ce que vous en penser.

Vraiment top ce forum

Encore merci et plus particulierement à ZON pour cette macro fantastique.

J'espere avoir votre niveau un jour

A+