Bonjour le forum,
Je suis en train de travailler sur une petite macro et je bloque sur ma dernière étape.
En effet, sur ma dernière étape, voici ce que j'ai mis dans la macro:
With Workbooks(Fichier_traité).Sheets(Feuille_traitée)
For i = 3 To DerLig
If Range("C" & i) <> Range("C" & i - 1) Then
If LigneFormule > 0 Then
Range("L" & LigneFormule).Formula = "=SUM(H" & LigneFormule & ":H" & i - 1 & ")"
Range("H" & i - 1).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Rows(i - 1).Select
Selection.Delete Shift:=xlUp
LigneFormule = i
End If
Next i
End With
LE problème, c'est qu'il ne supprime pas les bonnes lignes, le but étant de sommer les valeurs de colonne H dont les valeurs C soient identiques.
Dans ce fichier, la valeur H2 et H3 doivent être sommées en H2 et la ligne 3 supprimé.
JE vous joint mes 3 fichiers:
Fichier de base - sortie brut du logiciel
Fichier terminé - ce à quoi je souhaiterai arriver
Fichier en cours - Avec la macro.
En remerciant tout le monde par avance.
Kevin