Bonjour,
Il m’a été demandé de créer une macro qui permettrait de supprimer toutes les lignes ayant le même numéro d’affaire (colonne D). Mais avant de les supprimer, il faudrait additionner les cellules des colonnes F, G, H, I ayant le même numéro d’affaire.
J’ai donc mis en place, grâce aux forums qui m’ont beaucoup aidé, cette macro qui fonctionne très bien.
Private Sub Workbook_Open()
Dim ligne As Integer
ligne = 7
Do
If Cells(ligne, 4) = Cells(ligne + 2, 4) Then
Cells(ligne, 6) = Cells(ligne, 6) + Cells(ligne + 2, 6)
Cells(ligne, 7) = Cells(ligne, 7) + Cells(ligne + 2, 7)
Cells(ligne, 8) = Cells(ligne, 8) + Cells(ligne + 2, 8)
Cells(ligne, 9) = Cells(ligne, 9) + Cells(ligne + 2, 9)
Cells(ligne + 3, 4).EntireRow.Delete Shift:=xlUp
Cells(ligne + 2, 4).EntireRow.Delete Shift:=xlUp
Else
ligne = ligne + 2
End If
Loop While Cells(ligne, 2) <> “” And Cells(ligne + 2, 2) <> “”
End Sub
Cependant, le problème est que quelques numéros d’affaire ne sont pas dans l’ordre donc cela ne supprime et n’additionne pas une partie.
Je me suis donc renseigné pour trouver un bout de macro qui pourrait trier les lignes à partir des numéros d’affaire mais mes lignes sont fusionnées et cela est visiblement impossible.
J’ai donc cherché une macro qui additionnerait et supprimerait en cherchant les doublons sur toute la feuille au lieu de la ligne suivante.
Mais je n’ai pas trouvé, je ne sais pas si c’est possible.
Je voudrais savoir finalement si c’est possible d’incorporer un code de tri à ma macro ou de faire une macro qui rechercherait les doublons sur toute la feuille.
Merci d’avance.