GEDCOM (Généalogie) - Création des familles

Question

Je m’arrache les cheveux (Mais j’en ai plus… ) Après extraction de fichier Gedcom (Généalogie) vers Excel, il s’avère que certains fichiers ne sont pas complets et renseignés de la même façon. Pas de problème pour les individus (ID_IDIVIDU) et les parents (ID_PERE et ID_MERE) mais c’est la famille qui me manque (ID_FAM) assez souvent. Donc la solution est de les créer en effectuant une boucle sur les ID_PERE et ID_MERE pour créer une famille (Ex. FAM1) et ainsi de suite mais tout cela lié aux individus. Exemple I1 ( ID_INDIVIDU ) a pour père I2 ( ID_PERE ) et pour mère I3 ( ID_MERE ) donc fait partie de la famille 1 soit FAM1 (L'ordre des familles n'a pas d'importance c'est suivant les familles créées précédemment) Mais I3 à aussi I2 et I3 comme parent donc sa famille est FAM1 Dans les boucles dès lors que les parents sont nouveaux il y a une nouvelle famille qui prend le dernier numéro de famille et ainsi de suite… Je vous vous joint un fichier avec pour exemple la FAM1 et la FAM2... l'indexation des familles s'effectuer de la ligne 2 à la dernière ligne non vide de la colonne A Et pour ma part l’idée des recherches et création par boucle … ce n’est pas mon fort, même que je suis un tantinet « Nul » Je vous joint un fichier pour prendre connaissance de ma problématique.... en espérant que l'un de vous ai la solution de génie mais je n'ai aucun doute... Pour info ce n'est pas urgent.... Merci par avance...

h2so4 · Accepted Answer

Code adapté, commenté et complété avec la proposition de Moul Sub aargh() Dim tabfam() With Sheets("gen_individus") Set dictfam = CreateObject("scripting.dictionary") dl = .Cells(Rows.Count, 1).End(xlUp).Row nf = 0 For i = 2 To dl 'on parcourt tous les individus idi = .Cells(i, 1) 'id individu idp = .Cells(i, 2) 'id père idm = .Cells(i, 3) 'id mère If idp &lt;&gt; "" Or idm &lt;&gt; "" Then 'au moins un parent fam = idp & idm 'dientifiant de famille composé de l'id du père et de la mère If dictfam.exists(fam) Then 'si famille existe dictfam(fam) = dictfam(fam) & "," & idi 'on ajoute l'Id de l'individu (=enfant) Else nf = nf + 1 'si non on a une nouvelle famille (on incrémete, le compteur de famille) dictfam(fam) = "FAM" & nf & "," & idi 'on l'ajoute au dictionnaire avec son identifiant sous forme FAM + n°de famille et le premier enfant End If End If Next i ReDim tabfam(1 To dl, 1 To 1) 'table qui associe à chaque individu, l'identifiant de la famille et la composition de la famille For i = 2 To dl 'chargement de la table idi = .Cells(i, 1) idp = .Cells(i, 2) idm = .Cells(i, 3) If idp &lt;&gt; "" Or idm &lt;&gt; "" Then fam = idp & idm tabfam(i - 1, 1) = dictfam(fam) End If Next i .Range("E2").Resize(dl - 1, 1) = tabfam 'on charge la table en colonne E Application.DisplayAlerts = False .Range("E2").Resize(dl - 1, 1).TextToColumns DataType:=xlDelimited, comma:=True 'on met chacune des infos dans des colonnes distinctes. Application.DisplayAlerts = True End With End Sub...

h2so4 · Answer

Une proposition, a tester...

eriiic · Answer

Si je ne m'abuse h2so4, avec If idp &lt;&gt; "" And idm &lt;&gt; "" Then tu exclues les familles mono-parentales. Il n'y en a peut-être pas ici mais est-ce voulu et souhaitable ? eric...

h2so4 · Answer

Effectivement, j'exclus les familles mono-parentales. S'il faut les inclure, il suffit de remplacer le And par Or...

Moul · Answer

Si vous obtenez cette erreur : Ajouter au début du programme : Application.DisplayAlerts = False puis a la fin du programme. : Application.DisplayAlerts = True Alerte présente sur Excel 365. A bientot...