Bonjour,
Je n'arrive pas à adapter le code du fichier joint (1er onglet) à mon tableau (2eme onglet) :
Je précise que mon tableau à un nombre de lignes variable
J'aimerai que lorsque sur 2 lignes différentes le contenu des colonnes A D E est identique sur chaque lignes, alors ces cellules fusionnent, alors que le contenu des cellues F G H I J K L M N et AB fusionnent en s'additionnant.
La fusion doit se faire sur la même feuille car j'ai plusieurs code qui s'enchaîne.
J'ai essayé ce code mais je ne suis pas sûre du
car je ne sais pas à quoi cela correspond au juste ?
J'ai l'impression que cela fonctionne 1 fois sur 2
Merci par avance
Je n'arrive pas à adapter le code du fichier joint (1er onglet) à mon tableau (2eme onglet) :
Je précise que mon tableau à un nombre de lignes variable
Code:
Sub SupprLigne()
Dim i As Long
For i = ActiveSheet.Range("A65536").End(xlUp).Row To 6 Step -1
If Cells(i, 1).Value = Cells(i - 1, 1).Value And _
Cells(i, 2).Value = Cells(i - 1, 2).Value And _
Cells(i, 3).Value = Cells(i - 1, 3).Value And _
Cells(i, 4).Value = Cells(i - 1, 4).Value And _
Cells(i, 5).Value = Cells(i - 1, 5).Value And _
Cells(i, 10).Value = Cells(i - 1, 10).Value Then
Cells(i - 1, 6).Value = Cells(i - 1, 6).Value + Cells(i, 6).Value
Cells(i - 1, 7).Value = Cells(i - 1, 7).Value + Cells(i, 7).Value
Cells(i - 1, 8).Value = Cells(i - 1, 8).Value + Cells(i, 8).Value
Cells(i - 1, 14).Value = Cells(i - 1, 14).Value + Cells(i, 14).Value
Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub
J'aimerai que lorsque sur 2 lignes différentes le contenu des colonnes A D E est identique sur chaque lignes, alors ces cellules fusionnent, alors que le contenu des cellues F G H I J K L M N et AB fusionnent en s'additionnant.
La fusion doit se faire sur la même feuille car j'ai plusieurs code qui s'enchaîne.
J'ai essayé ce code mais je ne suis pas sûre du
Code:
To 2 Step -1
Code:
Sub SupprLigne()
Dim i As Long
For i = ActiveSheet.Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 1).Value = Cells(i - 1, 1).Value And _
Cells(i, 4).Value = Cells(i - 1, 4).Value And _
Cells(i, 5).Value = Cells(i - 1, 5).Value Then
Cells(i - 1, 6).Value = Cells(i - 1, 6).Value + Cells(i, 6).Value
Cells(i - 1, 7).Value = Cells(i - 1, 7).Value + Cells(i, 7).Value
Cells(i - 1, 8).Value = Cells(i - 1, 8).Value + Cells(i, 8).Value
Cells(i - 1, 9).Value = Cells(i - 1, 9).Value + Cells(i, 9).Value
Cells(i - 1, 10).Value = Cells(i - 1, 10).Value + Cells(i, 10).Value
Cells(i - 1, 11).Value = Cells(i - 1, 11).Value + Cells(i, 11).Value
Cells(i - 1, 12).Value = Cells(i - 1, 12).Value + Cells(i, 12).Value
Cells(i - 1, 13).Value = Cells(i - 1, 13).Value + Cells(i, 13).Value
Cells(i - 1, 28).Value = Cells(i - 1, 28).Value + Cells(i, 28).Value
Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub
J'ai l'impression que cela fonctionne 1 fois sur 2
Merci par avance
Dernière édition: