Microsoft 365 Somme des prix pour une même référence et supprimer doublons

R

Rouge

XLDnaute Impliqué

• 12 Avril 2021

• #2

Bonjour,

Essayez ceci

Cdlt

 

Pièces jointes

• ivan27_Somme des prix pour une même référence et supprimer doublons.xlsm

  18.1 KB · Affichages: 9

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 12 Avril 2021

• #3

Bonjour à tous,

Une solution par TCD et par formule

JHA

 

Pièces jointes

• Somme sur les doublons.xlsx

  17.2 KB · Affichages: 5

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

• 12 Avril 2021

• #4

Bonjour à tous,

Il suffit d'utiliser Données / Consolider :

• sélectionner la cellule E2
• menu Données / consolider
• compléter la boite de dialogue

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 12 Avril 2021

• #5

Bonjour ivan27, le fil,

ton fichier en retour ; fais Ctrl e ➯ travail effectué.

VB:

Option Explicit

Sub Essai()
  Dim n&: n = Cells(Rows.Count, 1).End(3).Row: If n < 3 Then Exit Sub
  Application.ScreenUpdating = 0: [A2].Resize(n - 1, 2).Sort [A2], 1
  Dim i&
  For i = n To 2 Step -1
    With Cells(i - 1, 2)
      If .Offset(1, -1) = .Offset(, -1) Then
        .Value = .Value + .Offset(1): Rows(i).Delete
      End If
    End With
  Next i
End Sub

soan

 

Pièces jointes

• Somme sur les doublons.xlsm

  17.1 KB · Affichages: 9

Vote positif 0 Vote négatif

Solution

S

soan

XLDnaute Barbatruc

Inactif

• 12 Avril 2021

• #6

@mapomme

sur le bas de l'image de ton post #4, c'est coché pour Ligne du haut ET Colonne de gauche :​

j'ai fait ces 3 essais :

1) avec les 2 cases à cocher cochées, comme indiqué sur l'image : étiquette "prix" seulement, pas étiquette "référence" ; somme : ok.

2) avec seulement "Ligne du haut" cochée : y'a les 2 étiquettes, mais la somme n'est pas faite ➯ échec de la consolidation.

3) avec seulement "Colonne de gauche" cochée : étiquette "référence" seulement, pas étiquette "prix" ; somme : ok.

donc si on utilise la méthode "Consolider", il vaut mieux utiliser 1) ou 3) quitte à devoir saisir l'étiquette manquante, mais ne pas utiliser 2)

comme devoir saisir l'étiquette manquante est juste un p'tit inconvénient, j'ai quand même mis un "J'aime" sur ton post #4. (après tout, il s'agit juste d'une petite finition à faire)

mais ma méthode par un code VBA est quand même pas mal si on veut aussi trier les données selon la colonne "référence".
​

soan

 

Dernière édition: 12 Avril 2021

Vote positif 0 Vote négatif

I

ivan27

XLDnaute Occasionnel

• 12 Avril 2021

• #7

Re bonjour le forum,
Merci à tous pour toutes vos propositions.
J'ai l'embarras du choix !
A bientôt
Ivan

 

Vote positif 0 Vote négatif