Recherche solution pour faire coïncider deux listes
Bonjour,
Je viens à vous, car je suis devant une impasse et mes connaissances en Excel sont loin être parfaite.
Pour résumer le problème, je me suis permis de créer un petit fichier Excel comme exemple qui serait ajouté en pièce jointe.
Alors on possède deux listes chacune avec un certain nombre de données allant de 20 lignes pour la première liste et 27 lignes pour la deuxième liste. (En réalité elles s'étendent sur 3500 lignes).
Je souhaite pouvoir faire coïncider / aligner le nom de chaque cellule avec le même nom de l'autre liste.
C'est à dire : Y avec le Y. Dans l'exemple , le Y est aligné avec le H.
En espérant ne pas vous avoir perdu dans mon problème des plus simple ... je l'imagine.
Merci beaucoup,
Steamby
Merci bien , je vais me renseigner sur ce que c'est un tableau croisé dynamique.
Bonjour steamby , [Zebulon] ,
un essai macro:
Sub Coincide()
Dim T1, T2, T3(), Dico1, Dico2, i As Long, x As Long, W1 As Worksheet, W2 As Worksheet, W3 As Worksheet
Set Dico1 = CreateObject("Scripting.Dictionary")
Set Dico2 = CreateObject("Scripting.Dictionary")
Set W1 = Worksheets("Feuille_01")
Set W2 = Worksheets("Feuille_02")
Set W3 = Worksheets("Feuille-Total")
T1 = W1.Range("A2:B" & W1.Range("A" & Rows.Count).End(xlUp).Row)
T2 = W2.Range("A2:B" & W2.Range("A" & Rows.Count).End(xlUp).Row)
ReDim T3(1 To UBound(T1, 1) + UBound(T2, 1), 1 To 4)
For i = LBound(T1, 1) To UBound(T1, 1)
Dico1(T1(i, 1)) = T1(i, 2)
Next
For i = LBound(T2, 1) To UBound(T2, 1)
Dico2(T2(i, 1)) = T2(i, 2)
Next
For Each clé In Dico1.keys
x = x + 1
T3(x, 1) = clé
T3(x, 2) = Dico1(clé)
If Dico2.exists(clé) Then
T3(x, 3) = clé
T3(x, 4) = Dico2(clé)
Dico2.Remove (clé)
End If
Next
For Each clé In Dico2.keys
x = x + 1
T3(x, 3) = clé
T3(x, 4) = Dico2(clé)
Next
W3.Range("A2").Resize(UBound(T3, 1), UBound(T3, 2)) = T3
End SubA+
Merci à toi Algoplus, je confirme que ta macro fonctionne sur le fichier exemple que j'ai envoyé.
Je vais essayer de la faire fonctionner sur mon fichier excel avec 3600 lignes et 21 colonnes.
Bonjour
Bonjour à tous
Une variante à tester.
Bye !
Salut gmb, écoute merci pour ta macro WForm, je l'ai essayé et elle "marche" mais ... il y a des erreurs à certain endroit que je n'arrive pas a résoudre en modifiant le code C.
Je vais te passer mon fichier personnel mais pourrait tu me mp en privé en me fournissant un lien pour que je te le passe en privé.
C'est un document plutôt confidentiel.
Merci bien et très bonne soirée !
Tout est prévu sur le forum :
Bye !