[Excel] Comparer et compiler
elglouton
Messages postés
197
Statut
Membre
-
Elglouton -
Elglouton -
Bonjour,
Je suis a la recherche d'un moyen de comparer deux cellules afin de creer une troisieme cellule qui regrouperai uniquement les element non doublon des deux 1er.
En fait j'ai pour un elements donner existe plusieur equipements ,pour un meme element j'ai deux listes d'equipement je souhaiterai comparer ces dex listes afin d'en creer une nouvelles avec les bonnes infos.
http://www.cijoint.fr/cjlink.php?file=cj201109/cijvIZN7eB.xls
Dans l'attente de vous lire et en esperant avoir ete explicite merci par avance.
Elglouton
Je suis a la recherche d'un moyen de comparer deux cellules afin de creer une troisieme cellule qui regrouperai uniquement les element non doublon des deux 1er.
En fait j'ai pour un elements donner existe plusieur equipements ,pour un meme element j'ai deux listes d'equipement je souhaiterai comparer ces dex listes afin d'en creer une nouvelles avec les bonnes infos.
http://www.cijoint.fr/cjlink.php?file=cj201109/cijvIZN7eB.xls
Dans l'attente de vous lire et en esperant avoir ete explicite merci par avance.
Elglouton
A voir également:
- Tableau excel comparatif mutuelle
- Tableau word - Guide
- Trier un tableau excel - Guide
- Imprimer tableau excel sur une page - Guide
- Liste déroulante excel - Guide
- Tableau ascii - Guide
1 réponse
Bonjour,
essaie avec ce code :
Bonne journée
essaie avec ce code :
Sub element()
Dim Cel As Range
Dim Elts As Object
Dim Tblo
Dim I As Integer
Application.ScreenUpdating = False
Set Elts = CreateObject("Scripting.Dictionary")
For Each Cel In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Tblo = Split(Cel.Offset(, 1).Value & "," & Cel.Offset(, 2).Value, ",")
For I = LBound(Tblo) To UBound(Tblo)
If Tblo(I) <> "" And Tblo(I) <> " " Then Elts(Trim(Tblo(I))) = Trim(Tblo(I))
Next I
Cel.Offset(, 3) = Join(Elts.Items, ", ")
Elts.RemoveAll
Next Cel
End Sub
Bonne journée
ça à l'air de fonctionner à merveille merci beaucoup je verrifis rapidement le fichier et vous tien au courant mais c'est parfait.
Une petite question suplementaire serait il possible de metre en evidence les ajouts?
Pour ce qui est de la mise en évidence des équipements ajoutes d'une liste a l'autre j'ai tente de passer par world en utilisant la fonction comparaison de document mais si quelqu'un a une méthode pour rester sous Excel je suis preneur
ci joint peut être une solution sauf erreur de compréhension.
http://www.cijoint.fr/cjlink.php?file=cj201109/cijSUEPZUm.xls
le champ colonne C est converti pour donner une valeur par colonne
le champ à droite donne les valeurs non présentes dans la ,colonne B
Crdlmnt
Merci pour ta reponse tres rapide mais ce n'est pas exactement ce que je souhaiter faire en fait je voulais que les équipements qui diffères entre les deux colonnes apparaissent dune couleur différente
En fait ce tableau sera utilise par un tierce personne affin de mètre a jour la liste des équipements pour chaque éléments et je souhaitai les mètre en évidence afin qu'ils soit repérable plus facilement sachant que dans le tableau final je n'ai que deux colónes avant /après et que je ne peut pas modifier la mise en forme du fichier final
Je ne sais pas si c'est plus clair et malheureusement je ne peux pas mètre le fichier final en ligne ce weekend
Merci encore pour ta reponse