XL 2019 Problème avec 2 Formulaires avec listview pour arbre généalogique

[hemardjean]

Bonjour le forum

J’ai fait deux formulaires identiques un pour la création de la fiche et le deuxième pour le père.

Ma question:

Peut-on récupérer les infos du deuxième formulaire pour l’intégrer dans le premier formulaire.

Je vous remercie pour votre aide

 

[hemardjean]

Bonjour Bebere
Rien ne s'affiche dans les combo faut-il que je rajoute quelque chose.
Que penses tu de mes codes ? Peux-tu m'indiquer où se trouvaient mes erreurs

 

[Bebere]

Ce n'est qu'un exemple de module de classe,le reste est à faire
compare les 2 codes et tu trouveras les erreurs

 

[hemardjean]

Bonsoir Bebere

Je bloque après plusieurs essais et je suis perdu

 

[Bebere]

Bonjour
Hemrdjean
Met ton fichier et je regarderai ce qui ne va pas

 

[hemardjean]

Bonjour bebere

merci bebere je te joins le fichier

 

[Bebere]

Bonjour
Ajout feuille listes pour nom,prénom et lieu
ajout userform2 pour choix nom,prénom,lieu pour userform1
userform2 entrée nouvelles données pour feuille listes
excuses pour l'attente

 

[hemardjean]

bonjour Bebere

Pas de problème pour la durée et merci pour ce super travail.

Petite question :

Useform2 les combo2 et 3 se trouvent bien dans le tetbox1 mais lorsque l’on vide l’userform2 dans l’userform1 il ne reste dans la textbox de destination que le résultat de la combo3 comment peut-on faire pour que les deux reste « nom et prénom »

 

[hemardjean]

bonjour Bebere

J’ai effectué un autre essai pour avoir le nom et prénom ensemble j’ai changé le code dans userform2 « Listes par Listes-familles »

« Sub IniCbo234() 'nom,prénom lieu

L = Application.CountA(Worksheets("Listes").Range("A:A")) - 1

Me.ComboBox2.List = Worksheets("Listes").Range("A3:A" & L).Value

Par :

L = Application.CountA(Worksheets("Listes-familles").Range("A:A")) - 1

Me.ComboBox2.List = Worksheets("Listes-familles").Range("A3:A" & L).Value

mais toujours même problème pour le garder entier dans userf1

A part ce petit souci , c’est ce que je recherchais « mais je n’aurai jamais trouvé car cela dépasse mes petites compréhensions ,les codes VBA sont trop compliqués pour moi.

 

[Bebere]

Bonjour
changements effectués plus quelques autres
Je continue à contrôler, il y a encore des améliorations,corrections à faire
Il me semble qu'il manque des colonnes,à toi de contrôler
tu me le signales

 

[hemardjean]

Bonsoir Bebere

j’ai effectué des essais et il y a un bog lors de la validation de userform1 avec le message

erreur d’éxécution ‘1004’

erreur définie par l’application ou par l’objet

au niveau de la commande

Private Sub CommandButton3_Click() 'ajouter,modifier,supprimer

Case "Modifier"

' Identité

Ws.Cells(L, i - 5).NumberFormat = "dd-mm-yyyy"



Pour le nombre de colonnes tout va bien

cordialement

 

[Bebere]

Hermadjean
mauvaises corrections, il faut

Ws.Cells(Li, i).NumberFormat = "dd-mm-yyyy"

et

Ws.Cells(Li, i-5).NumberFormat = "dd-mm-yyyy"

 

[Bebere]

Bonsoir
Hermardjean corrections et changements

 

[hemardjean]

Bonjour Bebere
Un très grand Merci pour ce super dossier et pour ta disponibilité
très cordialement

 

[et1000lio]

Bonjour,
Pourquoi n'utiliseriez-vous pas un logiciel de généalogie ? Il y en a de nombreux, bien faits et souvent gratuits. Sur Excel, dès que vous aurez quelques dizaines de personnes, ce sera ingérable...

Bonsoir à tous
Je rebondis sur cette affirmation. C'est faux Excel peut gérer un nombre important d'individus. Pour ma part je compte dans mon fichier Excel 5900 individus (lignée et collatéraux) et cela ne me pose pas de problème. Effectivement si vous gérer votre fichier via des formules c'est ingérable mais une bonne programmation sous VBA cela le fait sans problèmes.... peut être qu'avec plus de 10 000 individus cela me posera des problèmes mais j'en suis encore loin et je n'y arriverai peut-être pas !!!

 

[hemardjean]

Bonjour a tous
Je vous joins les fruits du super travail de bebere et de mon humble contribution.
Si celui-ci peut aider ?
Bien cordialement