Discussion :

[soria_t]

Bonjour à tous,

Je travaille sur une base de donnée dans laquelle se trouve une table dictionnaire contenant des champs divers et variés.

Mon soucis est que lorque je saisis une série de données, je dois utiliser plusieurs fois la table dictionnaire.

Cette table est composée de :

id_dico
dico_nom
dico_type

Un type peut contenir plusieurs noms (le type maladie contient plusieurs noms de maladie, par exemple. Le type de mutation également, s'il a été testé aux labo ou non...).

J'ai une table dans laquelle je répercute ces données, à partir d'une table d'insertion. Je dois donc comparer les données de la table d'insertion à la table dico et renvoyer l'ID_dico dans la table caractéristiques.

Y a t'il une méthode simple pour s'y prendre ?

P.S : j'adore poser des questions ici, ça me force à poser clairement le problème, déjà la moitié du boulot de fait.
Je vous poste mes idées quand j'aurais testée 2-3 choses, mais si vous avez des pistes je suis preneuse.

Merci d'avance

[Siguillaume]

Bonjour,

J'ai une table dans laquelle je répercute ces données, à partir d'une table d'insertion. Je dois donc comparer les données de la table d'insertion à la table dico et renvoyer l'ID_dico dans la table caractéristiques.

Veux-tu dire que tu dois d'abord comparer des données des tables avant une nouvelle insertion.
Joins aussi ton MCD. Ce serait plus clair

[soria_t]

J'ai à peu près trouver

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 ' Eléments du dico
            Set cAutre = Cells.Find(What:="Séquence du produit d’amplification", After:=c)
                If MemeFiche(c, cSuivant, cAutre) Then
                    Pos = InStr(1, cAutre, ":", vbTextCompare)
                    Mat(i, 4) = Mid(cAutre, Pos + 1 + IIf(Asc(Mid(cAutre, Pos + 1, 1)) = 32 Or Asc(Mid(cAutre, Pos + 1, 1)) = 160, 1, 0))
    Debug.Print Mat(i, 4)
                    ' *** Décomposition des éléments destinés au dico, avec la fonction Split ***
                    ListeChaines = Split(Mat(i, 4), ",")
                        For j = 0 To UBound(ListeChaines)

Par générosité je vous épargne le reste du code