Additionner Cellules listview et supprimer doublons

Résolu
JSCH19 Messages postés 128 Date d'inscription   Statut Membre Dernière intervention   -  
JSCH19 Messages postés 128 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Ce que je cherche désespérement à faire c'est d'additionner des lignes d'une listview si le(s) critère(s) sont vérifié(s) et de supprimer les doublons, je suis parvenu a supprimer les doublons dans la lisview mais pas d'additionner les lignes.
Illustration:

https://drive.google.com/file/d/1V4Qx5-7AwsrRsbfuIlINTQI9ZCU9k9oU/view?usp=sharing
A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

comme ceci: 

Private Sub CommandButton2_Click()
Dim i As Long
Dim Somme As Integer
Dim addi As Integer
For i = 1 To ListView1.ListItems.Count
Somme = ListView1.ListItems(i).SubItems(3)
addi = addi + Somme
Next i
MsgBox "Total HT " & addi
addi = 0
For i = 1 To ListView1.ListItems.Count
Somme = ListView1.ListItems(i).SubItems(4)
addi = addi + Somme
Next i
MsgBox "Total TTC " & addi
End Sub


a lancer après la suppression des doublons
0
JSCH19 Messages postés 128 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour Cs_Le Pivert,
Avec ton code j’ai la somme d’une colonne mais non ce que je cherche à faire, c’est pour chaque numero de la première colonne ou il y a les doublons de faire la somme(Total HT) des numéros puis effacer les doublons.

Exemple: pour le numero 937 je sais que la somme (Total HT) sera :172,5+(-8,863636)+(-81.818)=81.81836364
Et (Total TTC) sera:189.75+(-9.75)+(-90)=90
Ainsi de suite
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729 > JSCH19 Messages postés 128 Date d'inscription   Statut Membre Dernière intervention  
 
Je n'ai pas tout compris!

Essaie ceci: 

Private Sub CommandButton3_Click()
Dim x As Integer
Dim i As Integer
For i = 1 To ListView1.ListItems.Count
x = ListView1.ListItems(i).SubItems(3)
x = ListView1.ListItems(i).SubItems(4)
MsgBox x + x
Next
End Sub


@+
0
JSCH19 Messages postés 128 Date d'inscription   Statut Membre Dernière intervention   > cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention  
 
Dans le fichier dont j ai posté, tu verras Dans la feuille “Attente” un tableau avec des doublons et sur l’autre feuille “Attente details” ce tableau tableau sans les doublons mais ou la somme de chaque numéro a été faite
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729 > JSCH19 Messages postés 128 Date d'inscription   Statut Membre Dernière intervention  
 
Essaie ceci: 

Private Sub CommandButton1_Click()
Dim i As Long
Dim N As Double
For i = ListView1.ListItems.Count To 2 Step -1
If ListView1.ListItems(i).SubItems(1) = ListView1.ListItems(i - 1).SubItems(1) Then
ListView1.ListItems(i - 1).SubItems(3) = ListView1.ListItems(i - 1).SubItems(3) + ListView1.ListItems(i - 1).SubItems(3)
ListView1.ListItems(i - 1).SubItems(4) = ListView1.ListItems(i - 1).SubItems(4) + ListView1.ListItems(i - 1).SubItems(4)
ListView1.ListItems.Remove (i - 1)
End If
Next i
End Sub


@+
0
JSCH19 Messages postés 128 Date d'inscription   Statut Membre Dernière intervention   > cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention  
 
Bonjour,
Je viens de l’essayer ca ne marche pas comme voulu
0