XL 2010 Dresser un tableau à partir d'un dictionnaire et d'un autre tableau

Magic_Doctor · 3 Octobre 2021

Bpnsoir,

J'ai un dictionnaire, nommé "dico", qui recueille les éléments d'une liste.
J'ai un tableau, nommé tab1, qui contient certains éléments du dictionnaire.
Je veux créer un second tableau (tab2) qui contienne les éléments du dictionnaire dont on a soustrait ceux du premier tableau.
Supposons que le 1er tableau contienne 5 éléments. Comment m'y prendre ?

njhub · 3 Octobre 2021

Bonjour Magic_Doctor,

Vous pourriez procéder comme suit,

dans "dico", générer un numéro de ligne pour les items absents (dicoligne) de tab1

Code:

=SI(ESTNUM(EQUIV(tab1A1;dicotexte;0));"";LIGNE())

puis dans tab2 récupérer les valeurs

Code:

=INDIRECT(dicotexte&PETITE.VALEUR(dicoligne;LIGNE());1)

vous aurez compris que
"dicotexte" correspond à la colonne de "dico" dans laquelle on retrouve les termes recherchés
"dicoligne" correspond à la ligne de "dico" dans laquelle on ne retrouve pas les termes recherchés dans tab1

Magic_Doctor · 3 Octobre 2021

Bonjour njhub,

Merci pour votre réponse, mais mon application n'est qu'en VBA.

mapomme · 3 Octobre 2021

Bonjour @Magic_Doctor ,

Bien taquin tu es ce matin (du moins en France) . Aucun fichier, nada, rien à se mettre sous la dent . Les répondeurs n'ont qu'à utiliser leur boule de cristal.

Pour rester dans des généralités oiseuses :

le dico possède des clefs,
je suppose que le tableau tb1 possède aussi une quelque part sur chaque ligne un terme correspondant à quelque chose qui ressemble à une clef
parcourir le tb1 et ôter les éléments du dico qui ont pour clefs celles du tb1 ne me semble pas insurmontable

Magic_Doctor · 3 Octobre 2021

Bonjour mapomme,

Il est vrai que n'utilisant que le VBA dans Excel, j'oublie de le mentionner.
Le fichier est trop volumineux, ou plutôt a trop de procédures, voilà pourquoi je ne l'ai pas uplodé.
J'avais tenté un truc du genre :

VB:

    For i = 1 To 5  '5 éléments dans le tableau "tab1"
        dico.Remove tab1(i)  '28 éléments dans le dictionnaire "dico" | on y retire les 5 items contenus dans le tableau "tab1()"
    Next
  
    ReDim tab2(1 To 23)  'il y aura fatalement dans le tableau dynamique "tab2()" 23 éléments, soit 28 - 5 éléments
  
    For i = 0 To 22  'Base 0 (22 = 23 - 1)
        tab2(i + 1) = dico.Keys(i)
    Next

Fracaso (lamentable échec).

mapomme · 3 Octobre 2021

Re @Magic_Doctor ,

Sur ma bécane et mon 365, le code de module1 semble fonctionner.

edit: bonjour @job75

job75 · 3 Octobre 2021

Bonjour Magic_Doctor, njhub, mapomme,

J'y vais de ma solution :

VB:

Sub Calcul()
Dim liste, tab1, d As Object, e, tab2
liste = Array("A1", "A2", "A3", "A4", "A5", "A6", "A7", "A8", "A9", "A10")
tab1 = Array("A2", "A4", "A6", "A8", "A10")
Set d = CreateObject("Scripting.Dictionary")
For Each e In liste
    d(e) = ""
Next
For Each e In tab1
    If d.exists(e) Then d.Remove e
Next
'---restitution (pour tester)---
Application.ScreenUpdating = False
Range("A2:C" & Rows.Count).ClearContents 'RAZ
[A2].Resize(UBound(liste) + 1) = Application.Transpose(liste)
[B2].Resize(UBound(tab1) + 1) = Application.Transpose(tab1)
If d.Count = 0 Then Exit Sub
tab2 = d.keys
[C2].Resize(UBound(tab2) + 1) = Application.Transpose(tab2)
End Sub

A+

Magic_Doctor · 4 Octobre 2021

Bonsoir mapomme, job,

Vos solutions marchent très bien. J'ai eu une préférence pour celle de job qui s'adapte mieux à mon application.

Buenas noches.

XL 2010 Dresser un tableau à partir d'un dictionnaire et d'un autre tableau

Magic_Doctor

XLDnaute Barbatruc

njhub

XLDnaute Occasionnel

Magic_Doctor

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Magic_Doctor

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Magic_Doctor

XLDnaute Barbatruc

Discussions similaires