Obtenir un tableau a partir de 2 autres tableaux

nougitch

XLDnaute Occasionnel
Bonsoir,

Je me casse la tete sur ce probleme...
J'ai un premier tableau, contenant toutes mes donnees. Puis un second avec les donnees que j'aimerais supprimer du premier tableau.
J'aimerais avoir le tout dans un troisieme tableau.

Le fichier joint vous sera plus parlant.

Merci par avance pour votre aide.
Cdt,
 

Pièces jointes

  • Table 10.xls
    22 KB · Affichages: 65

Cousinhub

XLDnaute Barbatruc
Re : Obtenir un tableau a partir de 2 autres tableaux

Bonjour,

essaie avec ce code :

Code:
Sub extraire()
Range("C2:C" & [C65000].End(xlUp).Row).Name = "non"
Set Retenues = CreateObject("Scripting.Dictionary")
For Each cel In Range("A2:A" & [A65000].End(xlUp).Row)
     If IsError(Application.Match(cel.Value, [non], 0)) And _
        Not Retenues.Exists(cel.Value) Then Retenues.Add cel.Value, cel.Value
Next cel
Lig = Retenues.Count + 1
Range("E2:E" & Lig).Value = Application.Transpose(Retenues.items)
End Sub
 

nougitch

XLDnaute Occasionnel
Re : Obtenir un tableau a partir de 2 autres tableaux

Re bhbh,

J'ai essaye d'adapter ton exemple avec mes tableaux (et non avec les Range) et bien sur, cela ne fonctionne pas. Car dans mon exemple reel, les donnees ne sont pas stockees sur une feuille, mais uniquemenet dans les tableaux. Et je suis oblige de faire comme cela.
Comment puis-je adapter cela pour que cela fonctionne ?

Merci par avance pour ton aide !
 

nougitch

XLDnaute Occasionnel
Re : Obtenir un tableau a partir de 2 autres tableaux

Sorry, j-ai cherche un peu et ca marche.

Code:
TableProductsToExclude = "non"
Set Retenues = CreateObject("Scripting.Dictionary")
For m = LBound(TableAllProducts) To UBound(TableAllProducts)
    If IsError(Application.Match(TableAllProducts(m, 0), [non], 0)) And Not Retenues.Exists(TableAllProducts(m, 0)) Then Retenues.Add TableAllProducts(m, 0), TableAllProducts(m, 0)
Next m
Lig = Retenues.Count + 1
Range("E2:E" & Lig).Value = Application.Transpose(Retenues.items)
 

Discussions similaires

Réponses
4
Affichages
168

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib