Additionner Cellules listview et supprimer doublons

Résolu

JSCH19 Messages postés 134 Statut Membre -
JSCH19 Messages postés 134 Statut Membre - 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

Afficher la suite

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 8437 Statut Contributeur 730
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
1. JSCH19 Messages postés 134 Statut Membre
  
  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
2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730 > JSCH19 Messages postés 134 Statut Membre
  
  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
3. JSCH19 Messages postés 134 Statut Membre > cs_Le Pivert Messages postés 8437 Statut Contributeur
  
  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
4. cs_Le Pivert Messages postés 8437 Statut Contributeur 730 > JSCH19 Messages postés 134 Statut Membre
  
  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
5. JSCH19 Messages postés 134 Statut Membre > cs_Le Pivert Messages postés 8437 Statut Contributeur
  
  Bonjour,
  Je viens de l’essayer ca ne marche pas comme voulu
  
  0

Additionner Cellules listview et supprimer doublons

1 réponse

Discussions similaires

Newsletters