Doublons sur plusieurs colonnes

SALAH

XLDnaute Occasionnel
Bonjour à tous et à toutes

Permettez moi de vous dire que c 'est la première fois que je viens sur ce forum, je l'ai beaucoup consulté mais n' ayant pas trouvé exactement ce que je recherche alors je me suis permis d' envoyer ce fichier afin qu' une ame charitable me dépanne de ce processus infernal.
En fait je gère une réception de pochettes clients et une commande faite par le SAV, il me faudrait soit par une formule ou VBA de supprimer les doublons, additionner les quantités et faire une comparaisons sur une autre feuille afin de distinguer les differences de quantité et les pochettes non livrées ou manquantes sur la commande

Vous en remerciant à l' avance
 

Fichiers joints

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Bonjour Michel

Tout d' abord merci de m'avoir répondu

Sauf erreur de ma part, j'ai déjà consulté ces sites, mais je n' arrive pas à trouver ce que je recherche puisque mon problème agit sur deux plages de donnees avec ajout de quantité. Malgré tout je continue mes recherches

Merci
 

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Bonsoir Bebere et Michel

Merci pour ton aide, mais ce n' est pas exactement çà , en fait les données sur Palettes et Commandes sont complètees manuellement et ne sont jamais les mêmes la dernière partie sert à supprimer les doublons et additionner les quantités du même client tout sa sur la même feuille comme dans l' exemple

Merci encore
 

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Bonjour Bebere

J'ai bien testé ta macro mais il y a une chose qui cloche, j'ai voulu remettre d'autres données mais là dans cet exemple le client 229550 n' affiche pas la quantité de "900" sur la commande. Pourquoi la cellule reste t elle vide ?

Je te remercie pour tout ton aide

Salah
 

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Excuse moi Bebere

La pièce jointe ne passe pas

essaye juste de changer les valeurs dans la rubrique "commande" colonne client-quantite

32553 500
77261 300
77261 1000
229550 500
229550 400

Dans la rubrique "Palette"

77261 100
77261 200
229550 600

On a après synthese dans la rubrique "données"
colonne commande aucune quantité pour le client 229550

A bientot
 
Dernière édition:

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Bonjour bebere

Merci pour toutes tes réponses mais je ne t ' embeterais pas trop longtemps c 'est déjà pas mal mais il y a encore un souci, en cliquant de nouveau sur le bouton "synthèse" les donnees piétinnent sur les titres de la rubrique "Données" (clients, commande et palette) et de plus le premier client se répète deux fois

Merci encore pour ton aide

Bonne journée

salah
 

Bebere

XLDnaute Barbatruc
Re : Doublons sur plusieurs colonnes

oui Salah
le problème pourrait venir de là
Header:=xlguess,excel choisi si entêtes oui ou non
Header:=xlno,pas d"entêtes'tu mets celui-çi
Header:=xlyes,entêtes

.Sort Key1:=.Range("E3"), Order1:=xlAscending, Header:=xlno

si tu veux je corrige le code en ajoutant une colonne vide entre commandes/palettes et palettes/données,pour avoir 3 plages de données distinctes

à bientôt
 

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Bebere

Je ne comprends très bien pourquoi laisser 2 colonnes vides et dans quel but ? mais je te laisse le soin de corriger peut-être que je comprendrais mieux , si bien sur il n' y a pas d' autres choix.

BhBh
Merci aussi pour ton aide mais je n'ai jamais fait d' application avec des tableaux de croisé dynamique d'ailleurs il faut que je m' y mette mais le résultat est pas mal. Peux tu me dire comment validez avec d'autres données

Merci à tous les deux
 

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

Bebere et BhBh

Ok je viens de changer dans le code sa à l' air de marcher et je ne sais pas comment vous remercier. Une toute dernière chose : comment mettre sur une autre feuille la conclusion de tout sa en trois ou quatre lignes qui indiquerait les différences de quantités et l'absence du client en palette ou en commande avec sa quantité adéquate.

Merci encore une fois
 

bhbh

XLDnaute Barbatruc
Re : Doublons sur plusieurs colonnes

Re-,
comme tu peux le constater, le TCD prendra toutes les données que tu ajouteras dans les 4 premières colonnes.
En cliquant à l'intérieur du TCD, une nouvelle barre d'outils apparaît (ou sinon, Affichage/Barre d'outils, et sélectionner Tableau Croisé Dynamique)
Pour mettre à jour les données, il suffit d'appuyer sur le point d'exclamation rouge.
En cliquant sur Tableau Croisé Dynamique, un menu déroulant apparait.
Sélectionne Assistant.... et tu te retrouves avec une boîte de dialogue.
En cliquant sur précédent, tu verras les zones prises en compte pour la construction du tableau. Ici, ce sont des zones nommées dynamiques. Tu peux déterminer toi-même les zones que tu veux
 

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

BhBh

Je te remercie pour cette magnifique explication, on ne cesse jamais de découvrir et d' apprendre. Je te remercie pour tout et là je vais m' y mettre sérieusement

Je te souhaite une bonne journée

Abientot certainement
 

bhbh

XLDnaute Barbatruc
Re : Doublons sur plusieurs colonnes

Bonjour, une autre solution, sans utiliser les TCD, par la fonction Données/consolider :

le code :

Sub consoli()
Dim cel As Range, MonDico, temp, I, Plg1 As Range, Plg2 As Range
Dim plage1, plage2
Set Plg1 = Range("A2:A" & Range("A65536").End(xlUp).Row)
Plg1.Name = "plage1"
Set Plg2 = Range("C2:C" & Range("C65536").End(xlUp).Row)
Plg2.Name = "plage2"
Set MonDico = CreateObject("Scripting.Dictionary")
For Each cel In Range("plage1")
If Not MonDico.Exists(cel.Value) Then MonDico.Add cel.Value, cel.Value
Next cel
For Each cel In Range("plage2")
If Not MonDico.Exists(cel.Value) Then MonDico.Add cel.Value, cel.Value
Next cel
temp = MonDico.items
For I = LBound(temp) To UBound(temp): Cells(1 + I, 6) = temp(I): Next
Range("F1:F" & Range("F65000").End(xlUp).Row).Select
Set Plg1 = Range("A2:B" & Range("A65536").End(xlUp).Row)
Plg1.Name = "plage1"
Set Plg2 = Range("C2:D" & Range("C65536").End(xlUp).Row)
Plg2.Name = "plage2"
Selection.Consolidate Sources:=Array("plage1", "plage2"), Function:=xlSum, TopRow:=True, LeftColumn:=True
Range("F2").Select
End Sub
 

Fichiers joints

SALAH

XLDnaute Occasionnel
Re : Doublons sur plusieurs colonnes

BhBh

En effet la presentation est nettement meilleur

Peux tu juste me résumer ce code quel différence avec le VBA ? de quelle manière on arrive au résultat ?
Pourrais tu si ce n' est pas trop demandé me rajouter un onglet pour y apporter des conclusions genre " Voici les clients qui ont une différence de quentité ": les uns en dessous des autres avec la quantité adéquate et l' abscence de clients dans l'une et l' autre des catégories

Te remerciant
 

bhbh

XLDnaute Barbatruc
Re : Doublons sur plusieurs colonnes

Re-,

Peux tu juste me résumer ce code quel différence avec le VBA ? de quelle manière on arrive au résultat ?
Il n'y a pas de différences, C'est du VBA
Pour obtenir le résultat, je charge dans un tableau en mémoire tous les codes clients, si ceux-ci n'y sont pas encore inscrits.
Je colle la liste à partir de la cellule F2, et ensuite, j'utilise la fonction Excel Données/Consolider (regard l'aide, ce sera plus explicite que mes tentatives d'explication ;))
Pour la seconde partie, je ne comprends pas trop, peux-tu renvoyer le fichier, avec dans l'onglet supplémentaire ce que tu désires, on ira sûrement plus vite
 

Discussions similaires


Haut Bas