Additionner Cellules listview et supprimer doublons

Résolu/Fermé

JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023 - 23 mars 2022 à 03:32
JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023 - 24 mars 2022 à 18:30

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:

Additionner Cellules listview et supprimer doublons
Formule excel pour additionner plusieurs cellules - Guide
Supprimer une page word - Guide
Supprimer compte instagram - Guide
Supprimer les doublons excel - Guide
Doublons photos - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
23 mars 2022 à 16:48

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

JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023
Modifié le 23 mars 2022 à 17:39

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

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728 > JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023
23 mars 2022 à 18:43

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

JSCH19 Messages postés 129 Date d'inscription mercredi 30 octobre 2019 Statut Membre Dernière intervention 22 juin 2023 > cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
23 mars 2022 à 19:41

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

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

Bonjour,
Je viens de l’essayer ca ne marche pas comme voulu

Newsletters