Re : Dupliquer ma formule VBA
Pour additionner les 2 cellules identiques dans la colonne "Pds Total" la formule est cette ligne en rouge ?
Sub doublon_BC()
tableau = Array("BC")
For n = 0 To UBound(tableau)
With Sheets(tableau(n))
l = 3
Set deb = .Cells(l, 5)
While deb.Offset(1, 0) <> ""
Set deb = .Cells(l, 5)
If egal(deb) = True Then 'Si la ligne qui suit est égal alors action
deb.Offset(0, -1) = deb.Offset(0, -1) + deb.Offset(1, -1)
deb.Offset(0, -2) = ""
deb.Offset(0, -3) = ""
deb.Offset(0, -4) = texte(deb.Offset(0, -4)) & Chr(10) & texte(deb.Offset(1, -4))
deb.Offset(0, 6) = deb.Offset(0, -1) + deb.Offset(1, 6)
Set deb = .Cells(l, 5)
deb.Offset(1, 0).EntireRow.Delete
Else 'si non on passe à la suivante
l = l + 1
End If
Wend
End With
Next
End Sub
J'ai essayer de la copier pour faire la même chose avec la longueur :
deb.Offset(0, 7) = deb.Offset(0, -1) + deb.Offset(1, 7)
Mais cela ne fonctionne pas. De plus la somme additionné n'est pas la bonne.
Le repère 007 et 008 font tout les deux 1.72 kg, lorsque je supprime les doublon le résultat est de 4.72kg au lieu de 3.44kg. J'ai bien essayer de le faire par moi même mais la j’avoue que je suis totalement dépasser par tes formules.