Excel dédoubler en renseignent colonnes

Question

Bonjour, 

j'ai 1 liste de produits suivant 4 colonnes.
1er colonne N°  Réf (maison) du produit 
2eme désignation
3eme  nom du fabricant
4 eme réf. produit du fabricant
J'ai pour 1 même Réf. (maison) plusieurs fabricant. Cela me doublonne les lignes de N° Réf. (maison). Je voudrai avoir sur la même ligne dans differentes colonnes les differents fabricant et la colonne suivante le N° de la Réf. fabricant.
J'espere que je suis clair merci de votre aide.

Configuration: Windows XP / Internet Explorer 7.0

phoceen8 · Answer

Salut,
je ne suis pas sur de bien comprendre si je comprend bien en gros:

Tu veux ajouter une/plusieurs colonne(s) entre la 3eme et la 4eme c'est ça ? 
Si tel est le cas, cliques droit sur la colonne de droite et insertion 
Ex: Ajouter une colonne entre C et D, va sur D en haut cliques droit Insertion et D sera décalé en E, a cause de l'apparition d'un nouveau C 

Je sais pas si j'ai bien compris alors redis moi :)

Bon courage

Raymond PENTIER · Answer

Il te faudrait une macro : tu t'y connais en VBA ?

Le Pingou · Answer

Bonjour,
Essayer de mettre un exemple avec une vingtaine de lignes (avec doublons ou triplons...) et sur la feuille 2, le résultat que vous souhaitez. Le mettre sur https://www.cjoint.com/  et poster  le lien. Je regarderai ce qu'il est faisable !

Louchadiere · Answer

Bonsoir 
J'espere que la manip à marchée.
Merci de votre aide.

Le Pingou · Answer

Bonjour,
Il manque le lien qui a été créé .... Le copier et le coller sur le message... !

Louchadiere · Answer

Je ne comprends pas tout ..
https://www.cjoint.com/?0KDv00KVnOl

Le Pingou · Answer

Bonjour,
Merci pour le fichier.
Si j'ai bien compris, vous voulez supprimer les lignes dont le [ITEM_ID] est en double, .... Est-ce bien cela ?

Le Pingou · Answer

Bonjour,
Essayer pour voir si cela vous convient.
Votre exemple : https://www.cjoint.com/?3KDxldxctPE

Le Pingou · Answer

Bonjour,
Libre à vous d'utiliser une autre méthode.
et je veux inserer des colonnes pour concerver ces données en Z, AA, AB, AC
C'est étonnant car mon code prend en compte les valeurs des colonnes selon la ligne des titres du tableau de base !

Si vous voulez de l'aide, merci de mettre sur https://www.cjoint.com/ et poster le lien qui a été créé... !
  
  
Salutations. 
Le Pingou

Le Pingou · Answer

Bonjour,
Eh bien oui,  j'ai repris le tout et j'ai constaté que cela m'avait échappé que vous vouliez conserver les valeurs [FABRICANT] et [REF FABRICANT] de la ligne supprimer et de les insérées dans la ligne unique.
Ce n'est pas simple à réaliser car vous avez des doublons multiples (2, 3, 4, et plus).
Merci de patienté ... dimanche oblige ...

Le Pingou · Answer

Bonjour,
Je vous laisse découvrir et essayer ma proposition : https://www.cjoint.com/?3Ldk3hNCHSR

Louchadiere · Answer

Bonjour,
La découverte est de la joie ça marche.
Je vai tenté qlq. aménage car cette macro servira tout les mois.
Merie beaucoup
Louchadiere

Le Pingou · Answer

Bonjour,
Merci pour l'information.
Un détail m'a échappé, pour tenir compte de la plage complète de la feuille [Brut] dans la macro [Sub Doublons() ], 
veuillez remplacer cette ligne : Sheets("Brut").[A1:AE1000].AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=.[A1:A2], CopyToRange:=.[D1:F1], Unique:=True
Par : Sheets("Brut").Range("A1").CurrentRegion.AdvancedFilter _  Action:=xlFilterCopy, CriteriaRange:=.[A1:A2], _ CopyToRange:=.[D1:F1], Unique:=True

Le Pingou · Answer

Bonjour,
Avec tous mes voeux pour 2013,  oui c'est possible, mais pour cela il faut des éléments précis .... !

Le Pingou · Answer

Bonjour,
Si le code n'a pas été modifier, essayer dans la procédure [Sub insertfabr()] d'insérer en dessous [Set sh ....] cette ligne : nbd = Range("nbmaxdbl")
Et la ligne après [With] doit-être :
.Columns("Z").Resize(, 2 * (nbd - 1)).Insert

Le Pingou · Answer

Bonjour,
Le minimum d'explication se trouve directement dans les procédures.
Le fichier : https://www.cjoint.com/?3Anqn13zCGP
Note le fichier fonctionne correctement selon votre demande.

Louchadiere · Answer

Bonsoir,
Merci pour les explications.
Sur un fichier de 23000 lignes, la macro  ** insérer les lignes sans doublons
 bloque à la l'instruction  Sheets("Resultat").[A1].Resize(mondico.Count, UBound(c, 2)) = c
peut être un problème de mèmoire.
Y a t'il une solution.

Le Pingou · Answer

Bonjour,
Qu'elle est le message d'erreur exact !

Louchadiere · Answer

Suite,
Erreur d'execution 1004
Erreur défini par l'application ou l'objet
Pointé suivant l'instruction
** insérer les lignes sans doublons
  Sheets("Resultat").[A1].Resize(mondico.Count, UBound(c, 2)) = c
Cordialement

Le Pingou · Answer

Bonjour,
Merci, oui effectivement il y a un problème avec un si grand nombre de lignes (23000  de 30 colonnes).
Pour l'instant je n'ai pas de solution sans faire un test.
Réponse pas avant mardi à moins qu'une autre personne intervienne... !i

eriiic · Answer

Bonsoir à tous,

Je ne pense pas qu'un manque mémoire puisse provoquer cette erreur.

A ta place je regarderais la valeurs de mondico.Count que je comparerais à UBound(c, 1)
voir s'il n'y a pas un problème de dimension.

eric

Louchadiere · Answer

Bonsoir Le Pingou,
Je te joins le lien pour un fichier de 24633 lignes. J'en ai de 29000lignes mais il ne passe pas par le lien.
http://cjoint.com/?0Aou6RQVRmb
A bientôt
Merci

Le Pingou · Answer

Bonjour,
J'ai réalisé une suite de test sur mon fichier avec 10000, 20000 et 30000 lignes sur 32 colonnes  avec une copie du code en direct et tous passe  normalement en 1, 2 et 3 secondes et les 3 tableaux sans doublons sont OK . Avec votre dernier fichier de 24 633 lignes j'ai le tout en 2.5 secondes.
Par contre, si je lance depuis le bouton de commande le système plante. Je pense que le problème se trouve dans la procédure .... Je cherche... !
Bonjour eriiic, merci pour l'information. 
De mon côté je n'obtiens pas de message d'erreur mais simplement le système plante (Excel : ne réponds plus).

Le Pingou · Answer

Bonjour,
Belle surprise,  selon votre exemple de départ c'est la colonne [B][ITEM_ID] (en principe des nombres au format standard) qui sert de référence pour les doublons  alors que dans votre dernier fichier cette même colonne fait référence au [CODE ARTICLE] qui est en format [Texte] , conclusion inutilisable avec mes procédures.. !
Quelle est votre explication ?

louchadiere · Answer

Bonsoir,
La surprise est aussi pour moi, je me renseigne demain pour avoir cette colonne au même format que précedent.
Excuse..

Le Pingou · Answer

Bonjour,
Voici une proposition avec modification partielle des procédures suite au plantage du système avec plus de 3'000 lignes.
Ma proposition : https://www.cjoint.com/?3ApxglRMDMo

Excel dédoubler en renseignent colonnes

26 réponses

Votre réponse

Newsletters