Formule ligne en double avec des montants Fermé

Question

Bonjour à tous, 

J'ai sur mon fichier excel des lignes en doublon pour les noms, prénoms etc.. Mais avec des montants différents.

EX: 
A  / 1789 / 1 00 EURO
A  / 1789 / 200 EURO
B / 2018 / 300 EURO
B / 2018 / 150 EURO
B / 2018 / 10 EURO

Je veux les fusionner pour chaque client et additionner les cellules des montants pour ce même client.

C'est un fichier avec 400 000 lignes ! Et chaque client a une quantité de factures différentes. 

J'ai tenté plusieurs formules de logique je n'ai pas réussi.

Je vous remercie pour ceux qui peuvent m'aider.

Configuration: Windows / Chrome 68.0.3440.106

yg_be · Answer

bonjour, tu n'indiques pas comment les données sont enregistrés dans Excel: en plusieurs colonnes?
as-tu essayé un tableau croisé dynamique?

titeufdu89 · Answer

Bonjour,

Souhaites tu créer un nouveau tableau dans une autre feuille qui synthétise les premier ou supprimer les lignes dans le tableau d'origine? 
Quelles sont les colonnes ou le doublons sont à rechercher et quelles sont les colonnes à additionner? 
Un bouton d'activation (par clic) pour le lancement d'une macro qui effectuerait la mise à jour te conviendrait-il? 

A bientot 

Jc

titeufdu89 · Answer

Voici une code qui modifie le tableau d'origine, si il y a des doublons en colonne A et B, il additionne la colonne C et supprime les lignes en doublon. A adapter à ton cas de figure. 
Colle ce code, soit directement dans la feuille en question, soit dans un module, ajoute un contrôle activeX qui appelle la macro dans la feuille qui contient ton tableau et ça devrait jouer. 

ATTENTION : une fois la macro exécutée, tu ne peux plus revenir en arrières, donc les lignes supprimées le seront définitivement. Fais une sauvegarde de ton fichier d'origine pour éviter tout problème de perte de données. 

Option Explicit
Sub maj()
Dim i As Double, j As Double, der As Double
der = Range("A65536").End(xlUp).Row
For i = 1 To der
    For j = der To i + 1 Step -1
    If Range("A" & j) = Range("A" & i) And Range("B" & j) = Range("B" & i) Then
    Range("C" & i) = Range("C" & i).Value + Range("C" & j).Value
    Rows(j).EntireRow.Delete
    der = der - 1
    End If
    Next j
Next i
 
End Sub


A bientot 

Jc

Formule ligne en double avec des montants

3 réponses

Discussions similaires

Newsletters