[Résolu][Calc] Séparer les noms des prénoms d'une colonne

[Rocky Rider]

Bonjour à tous,

Je suis un débutant en OpenOffice et je ne connais strictement rien en macro...désolé

Je suis à la recherche d'une solution pour séparer les noms des prénoms d'une colonne d'un classeur OpenOffice.
Dans une autre discussion on m'a proposé de passer via les macros : https://forum.openoffice.org/fr/forum/v ... 49#p297463

Pour éviter le HS, je continue donc l'étude de cette solution dans cette nouvelle discussion

Le problème, c'est qu'étant un grand débutant en macro, je ne sais même pas comment faire le fichier qui était joint à la discussion.

Si j'ouvre le fichier et que je vais dans "exécuter la macro" j'ai ce message qui apparait :

Capture d’écran 2017-06-28 à 14.40.41.png

Puis OpenOffice plante et se ferme...
Déjà est-ce que c'est la bonne démarche à suivre pour lancer les calculs du fichier ?

Désolé pour ces questions de débutants

[Bidouille]

Merci de ne pas inventer et de respecter la syntaxe des balises : http://forum.openoffice.org/fr/forum/ftopic1369.html
Le balisage doit bien sûr être correctement orthographié (première lettre en majuscule puis le reste en minuscules).

Si j'ouvre le fichier

Si vous joignez ce fichier, les bénévoles pourraient sans doute vous aider, non ?

[Rocky Rider]

Désolé, comme le fichier n'est pas de moi je ne me serai pas permis de le partager alors qu'il était dans la discussion que j'ai cité.
Mais comme on me le demande....

[Dude]

Salut,

Je ne vois pas comment un programme pourrait identifier un prénom d'un nom.
Comment penses-tu gérer les prénonymes ? Les nom et prénom composés ? La particule ?
Seul un humain peut faire ça correctement.

[Rocky Rider]

Justement c'est tout le sujet de cette discussion : https://forum.openoffice.org/fr/forum/v ... =4&t=54849
qui a finit par aboutir sur l'usage des macros

[Dude]

qui a finit par aboutir sur l'usage des macros

Bis repetitae :

Je ne vois pas comment un programme pourrait identifier un prénom d'un nom.

[martinbrait]

Bonjour Rocky Rider , bonjour Dude,

@RockyRider :
Tu as besoin detélécharger un JavaRuntimeEnvironment Java6
Concernant ton classeur, il ne nécessite aucun lancement de macro.
(elles sont ici des fonctions personnalisées supplémentaires pour ton classeur
visibles dans les cellules de ton classeur, colonnes B et C)
0°Ouvre le classeur V4
1°Colle/Remplace ta liste de patronymes dans la colonne A,
2°Constate que tes prénoms et noms sont bien découpés dans les colonnes B et C,
dont les cellules sont remplies avec deux fonctions personnalisées
recupprenom() et recupnoms()
C'est tout.
'============================================================================

Je vous propose d'améliorer la version 4 existante,
en différenciant les séparations avec tirets des séparations avec espacements,
dans les atomes composés de plusieurs prénoms, afin d'isoler nettement la partie prénom rattachée par
des tirets, le cas échéant.

Pour info, voici la version 4, plus avancée du fichier d'extraction des prénoms + nom.
Le programme se fonde sur le recoupement de la chaîne de départ, avec 2300 prénoms environ.

On peut améliorer en détectant les abréviations de prénoms : J. pour Joseph, Jean.
On peut améliorer en faisant pencher la balance de la séparation nom prénom, strictement
sur les espaces, lorsque nom et prénom constituent une association de deux prénoms, en fait (ex. Jacques MARTIN),
en cas de présence d'un prénom composé, relié par un tiret.


Merci et à bientôt !

[Rocky Rider]

Je suis désolé mais tu peux m'expliquer comment fonctionne ton fichier ?

[martinbrait]

Le fichier est très simple.

Prend une nouvelle ligne de noms-prénoms, dans l'ordre nom/prenom ou prenom/nom
Fait un collage normal dans la colonne A à la place des identités que tu as déjà collées.
Regarde ce qui se passe dans les colonnes B et colonne C qui découpent toutes seules Prénom, puis NOM, sans autre intervention de ta part.

[Rocky Rider]

Alors chez moi il ne se passe absolument rien.
Dès l'ouverture de ton fichier les colonnes B et C indiquent # VALEUR !
Et quoi que je rentre cela ne change pas

[martinbrait]

Bonjour Rocky !

Il y a un paramétrage préalable de ton openoffice, je m'en doutais.
Ton OpenOffice, n'exécute pas de code et/ou fonction, en provenance des modules.
Pour changer celà, tu dois autoriser openoffice, à exécuter les instructions de code,
Il faut passer la sécurité des macros à bas.

Options > Sécurité > Sécurité des macros > Niveau de sécurité et modifier l'existant, c'est-à-dire baisser d'un niveau !

[Rocky Rider]

Cool merci beaucoup, maintenant ça fonctionne.

Ton fichier semble tout à fait opérationnel et bien pratique....
Il y a quand même des bug dans le noms de famille peut-être un pénom. Par Exemple "Aurélien PAUL", peut ressortir avec Paul comme prénom...
Du coup une vérification manuel est indispensable mais on peut facilement en oublier si la liste est longue (comme dans l'exemple avec 1000 lignes)

A voir à l'usage. Je vais tester plusieurs fois ton fichier et celui de l'autre discussion pour voir lequel est le pratique mais peut-être que la recherche de noms composés est une méthode plus fiable.

Je vous tiens au courant.

Merci beaucoup pour votre aide.

[martinbrait]

Voici la version 6 qui identifie les noms à particules
"DE PAULA", en admettant à cet emplacement précis que le prénom PAULA doit être
interprété comme un nom de famille précédé de la particule DE_

améliorations apportées par la version 6

1. Sépare le prénom du nom, lors des occurrences à double-prénoms
   L'atome écrit en minuscules est classé en prénom, l'atome écrit en majuscules est classé en NOM.
   (on pratique cette différenciation minuscules/majuscules en dernier recours, uniquement dans les cas d'atome à double-prénoms)
2. associe solidairement les particules avec l'atome qui suit toujours considéré comme un NOM. (de..., von,..van,..,des...,les...)
3. reconnaît les prénoms abrégés

Vous pouvez réutiliser le fichier et l'améliorer en ajoutant
des prénoms simples, abrégés ou composés, sans accent, aux listes alphabétiques de prénoms déjà existantes.
Il faut séparer chaque prénom par un point virgule.

Merci et à bientôt !

[Rocky Rider]

J'ai fait un test avec une liste de 850 prénom nom.

Ta feuille fonctionne pas mal et elle est bien pratique. Merci c'est top !

Il faut faire comment pour ajouter des pénoms dans la base de données ?

Ce qui serait idéal c'est que chaque ligne où il y a des prénom ou des nom composés, c'est à dire à partir de 3 mots, soient mis en surbrillance pour un control manuel.

Encore merci pour tout.

[martinbrait]

Bonjour RockyRider,

separer_nom_prenomsV7.PNG

Comme demandé, en pièce jointe, la version 7 signale en surbrillance verte, la chaîne d'au moins 3 mots.
amélioration de la version 7 :
Dans les chaînes de 3 mots, nous avons parfois les combinaisons
1 motmajuscule + 2 motsminuscules Vs 2 motsmajuscules + 1 motminuscule,
Dans un tel cas, on déduit prioritairement que les mots en majuscule constituent le nom.
AH SAM Florent ->prenom:=Florent;nom:=AH SAM

separer_noms_prenomsV7.ods

Comment intervenir dans la base des prénoms ?

1. Modifie le contenu des fonctions EstUnPrenomX, dans ton éditeur de macros (alt+F11).
2. Intercale tes nouveaux prénoms alphabétiquement au bon endroit, ôtés des accents et des cédilles.
   Ils sont entre points-virgules, sans espace. La fin de chaque chaîne de prénoms se termine toujours par un point virgule.

OOoMacroIntro.compressed.pdf

Code : Tout sélectionner

Function EstUnPrenomA(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Aaron;Abdallah;Abdel;Abdelkader;Abel;Abigaelle;Abigail;Abishan;Aboubacar;Aboubakar;Abraham;Absolon;Aby;Achille;Achraf;Ada;Adam;Adama;Adame;Adel;Adelaide;Adele;Adelie;Adeline;Adem;Aden;Adib;Adil;Adja;Adnane;Adolphe;Adrian;Adriana;Adriano;Adriel;Adrien;Adrienne;Aedan;Agathe;Aglae;Agnes;Aharon;Ahmad;Ahmed;Aicha;Aidan;Aiden;Aime;Aimee;Aissatou;Akram;Aksel;Aksil;Alaa;Alain;Alais;Alan;Alana;Alassane;Alba;Alban;Albane;Albert;Albertine;Albin;Aldo;Alec;Aleksandar;Aleksandra;Alessandro;Alessia;Alessio;Alex;Alexander;Alexandra;Alexandre;Alexandrie;Alexane;Alexi;Alexia;Alexis;Alexy;Alfred;Alhassane;Ali;Alia;Alice;Alicia;Alienor;Alima;Alina;Aline;Aliou;Alisha;Alison;Alissa;Alistair;Alix;Alixe;Aliya;Aliyah;Alizee;Allan;Allegra;Allya;Alma;Alois;Alon;Alone;Aloys;Alpha;Alphonse;Alphonsine;Alwena;Aly;Alya;Alyah;Alycia;Alyssa;Alyssia;Alysson;Amadou;Amael;Amaia;Amalia;Amanda;Amandine;Amani;Amar;Amara;Amarante;Amaury;Amaya;Ambre;Ambrine;Ambroise;Amedee;Amel;Amelia;Amelie;Amicie;Amin;Amina;Aminata;Amine;Amir;Amira;Amjad;Amos;Amy;Ana;Anabelle;Anae;Anael;Anaelle;Anais;Anas;Anass;Anastasia;Anastasie;Anatole;Anaya;Andre;Andrea;Andreas;Andree;Andrei;Andrew;Andy;Anes;Ange;Angel;Angela;Angele;Angelina;Anouk;Angeline;Angelique;Angelo;Angie;Ania;Anis;Anissa;Anita;Anna;Annabelle;Annaelle;Anne;Anne-Laure;Anne-Sophie;Annette;Annie;Anny;Anouck;Anouk;Anselme;Anthony;Antoine;Antoinette;Anton;Antoni;Antonia;Antonin;Antonio;Antony;Anya;Apollinaire;Apolline;Appoline;Archibald;Arda;Ari;Aria;Ariana;Ariane;Arianne;Arie;Ariel;Arielle;Arienne;Arij;Aris;Aristide;Arlette;Arman;Armance;Armand;Armel;Armelle;Arnaud;Arnaude;Arno;Aron;Arsene;Arslane;Artemis;Arthur;Arthus;Arto;Artus;Arwa;Arwen;Arya;Ashley;Asia;Asma;Asmaa;Assa;Assetou;Assia;Assil;Assiya;Assya;Astou;Astrid;Athena;Aubane;Aubin;Aude;Audrey;Auguste;Augustin;Augustine;Aure;Aurel;Aurele;Aurelia;Aurelie;Aurelien;Auriane;Aurore;Auxence;Ava;Avi;Aviel;Avital;Avril;Awa;Axel;Axelle;Aya;Ayaan;Ayah;Ayana;Aydan;Ayden;Ayem;Ayla;Aylan;Aylin;Ayline;Ayman;Aymane;Aymen;Aymeric;Ayoub;Aysha;Azad;Aziliz;Aziz"

lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomA=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomB(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Babacar;Badis;Bafode;Bahia;Bakary;Balkis;Balthazar;Baptiste;Barbara;Barnabe;Barthelemy;Basil;Basile;Basma;Bastian;Bastien;Batiste;Baudouin;Baya;Beatrice;Bella;Ben;Benedicte;Benjamin;Benjamine;Benoit;Benoite;Berenice;Bernadette;Bernard;Berthe;Bertille;Bertrand;Beryl;Bettina;Betty;Beya;Bianca;Bilal;Bilel;Billie;Binta;Bintou;Blaise;Blanche;Blandine;Blessing;Bleuenn;Bogdan;Bonnie;Boris;Bosco;Boubacar;Boubou;Bouchra;Bradley;Brahim;Brandon;Brayan;Briac;Brian;Brice;Brieuc;Brigitte;Brune;Bruno;Bryan"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomB=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomC(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Calie;Calista;Calixte;Calvin;Camelia;Cameron;Camil;Camila;Camilia;Camille;Camilo;Candice;Capucine;Carine;Carl;Carla;Carlotta;Carmen;Carole;Carolina;Caroline;Cassandra;Cassandre;Cassie;Cassiopee;Castille;Catherine;Cecile;Cecilia;Cedric;Celeste;Celestin;Celestine;Celia;Celian;Celina;Celine;Cerise;Cesaire;Cesar;Chaden;Chahine;Chahinez;Chaima;Chanel;Chantal;Chante;Charles;Charlie;Charline;Charlize;Charlot;Charlotte;Charly;Chayma;Cheick;Cheick-Oumar;Cheikh;Chelsea;Chiara;Chirine;Chloe;Chmouel;Chris;Christ;Christelle;Christian;Christina;Christine;Christophe;Christopher;Ciara;Cindy;Claire;Clara;Clarence;Clarisse;Claude;Claudette;Claudia;Claudine;Clea;Clelia;Clelie;Clemence;Clement;Clementine;Cleo;Cleophee;Cloe;Clothilde;Clotilde;Clovis;Colette;Colin;Coline;Colombain;Colomban;Colombe;Come;Constance;Constant;Constantin;Coralie;Coraline;Corentin;Corin;Corinne;Corto;Cosette;Cosima;Coumba;Cristiano;Cunegonde;Curtis;Cynthia;Cyprien;Cyrian;Cyriaque;Cyrielle;Cyril;Cyrille;Cyrine;Cyrus"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomC=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomD(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Dahlia;Dali;Dalia;Dalla;Dalya;Damian;Damien;Dan;Dana;Danae;Dani;Dania;Daniel;Daniela;Daniele;Daniella;Danielle;Danny;Dany;Danyl;Daoud;Daouda;Daphne;Daphnee;Daria;Darine;Dario;Darius;Darren;Darry;David;Dayan;Dayane;Deborah;Delia;Delphine;Demba;Denis;Denise;Desire;Desiree;Deva;Diana;Diane;Dianne;Didier;Diego;Dieudonne;Dieudonnee;Dieynaba;Dilan;Dimitri;Dina;Diodore;Dion;Divine;Djena;Djeneba;Djenna;Djibril;Dominique;Domitille;Donat;Donatien;Donatienne;Dora;Dorian;Doriane;Dorothee;Dounia;Dov;Driss;Dune;Dylan;Dyna"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomD=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomE(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Eddy;Eden;Edgar;Edgard;Edith;Edmond;Edouard;Eduard;Eduardo;Edward;Edwige;Edwin;Eglantine;Eileen;El;Ela;Elaia;Elea;Eleanor;Eleanore;Elena;Eleonore;Elhadj;Eli;Elia;Eliahou;Elian;Eliana;Eliane;Elias;Elie;Eliel;Eliette;Elif;Elijah;Elina;Eline;Elinor;Elio;Elior;Eliora;Eliot;Eliott;Elisa;Elisabeth;Elise;Elissa;Eliza;Elizabeth;Ella;Ellie;Elliot;Elliott;Elly;Eloan;Eloane;Elodie;Eloi;Eloise;Elon;Elona;Elone;Elora;Elouan;Elouann;Elsa;Elvire;Ely;Elya;Elyan;Elyana;Elyas;Elyes;Elyne;Elyssa;Ema;Emeline;Emi;Emie;Emil;Emile;Emilia;Emilie;Emilien;Emilio;Emily;Emir;Emma;Emmanuel;Emmanuella;Emmanuelle;Emmie;Emmy;Emna;Emy;Eneko;Enguerrand;Ennio;Enola;Enora;Enzo;Eric;Erik;Erika;Erin;Erine;Ermenegilde;Ernest;Ernestine;Erwan;Erwann;Esmee;Esteban;Estelle;Esther;Ethan;Ethann;Ethel;Etienne;Eugene;Eugenie;Eulalie;Eunice;Eurydice;Eustache;Eva;Evan;Evann;Evans;Evariste;Eve;Evette;Evrard;Evy;Ewan;Ewen;Ewenn;Eya;Eyal;Eytan;Eythan;Ezio;Ezra"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomE=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomF(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Fabien;Fabienne;Fabio;Fabrice;Fadi;Fady;Fahd;Faith;Fallou;Fanny;Fanta;Fantine;Farah;Fares;Farouk;Fatim;Fatima;Fatimata;Fatima-Zahra;Fatma;Fatou;Fatouma;Fatoumata;Faustine;Faycal;Federico;Felicie;Felicien;Felicienne;Felicite;Felix;Ferdinand;Feriel;Fernand;Fernande;Feryel;Fiacre;Fifi;Filip;Filipe;Fiona;Firas;Firdaws;Firmin;Flavia;Flavie;Flavien;Flavio;Fleur;Flora;Flore;Florence;Florent;Florentin;Florette;Florian;Floriane;Florianne;Fode;Foucauld;Frana§Ois;Francesca;Francesco;Francine;Francis;Franck;Francois;Francoise;Franklin;Frederic;Frederique;Frida"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomF=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomG(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Gabin;Gabriel;Gabriela;Gabriele;Gabriella;Gabrielle;Gaby;Gad;Gael;Gaelle;Gaetan;Gaetane;Gaia;Garance;Gary;Gaspar;Gaspard;Gaston;Gauthier;Gautier;Genevieve;Geoffrey;Geoffroi;Geoffroy;George;Georges;Georgette;Georgia;Georgine;Gerald;Gerard;Geraud;Germain;Germaine;Gervais;Gervaise;Ghislain;Ghislaine;Giacomo;Gianni;Gigi;Gilberte;Gilles;Gina;Ginette;Giovanni;Gisele;Giselle;Gisselle;Giulia;Giulian;Giulio;Gloria;Godelieve;Gonzague;Goundo;Gra¢Ce;Grace;Gratien;Graƒa¢Ce;Gregoire;Gregory;Greta;Guilhem;Guillaume;Guillemette;Gustave;Guy;Gwenaelle;Gwendal;Gwendoline"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomG=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomH(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Habib;Habiba;Haby;Hadja;Hadriel;Hadrien;Hafsa;Hajar;Hakim;Halima;Hamed;Hamidou;Hamza;Hana;Hanae;Hania;Hanna;Hannah;Haris;Harold;Haron;Haroun;Harouna;Haroune;Harry;Hasna;Hassan;Hassane;Hatem;Hatouma;Hawa;Haya;Hayden;Hector;Hedi;Helena;Helene;Helia;Helie;Helios;Hella;Heloise;Henri;Henriette;Henry;Hercule;Hermance;Hermine;Herve;Hiba;Hicham;Hichem;Hidaya;Hilaire;Hillel;Hind;Hippolyte;Hocine;Honore;Honorine;Hortense;Houda;Hubert;Hugo;Hugues;Hyacinthe"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomH=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomI(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Ian;Iban;Ibrahim;Ibrahima;Ida;Idan;Idir;Idris;Idriss;Idrissa;Ignace;Igor;Ikram;Ilan;Ilana;Ilann;Ilham;Ilhan;Ilian;Iliana;Iliane;Ilias;Ilies;Ilina;Ilona;Ilyan;Ilyana;Ilyane;Ilyas;Ilyass;Ilyes;Ilyess;Imad;Iman;Imane;Imanol;Imany;Imen;Imene;Imran;Imrane;Inaya;Inayah;India;Ines;Inna;Inza;Irene;Irenee;Irina;Iris;Isaac;Isabella;Isabelle;Isadora;Isaiah;Isaure;Isee;Iseult;Ishak;Ishaq;Isidore;Isis;Islam;Islem;Ismael;Ismail;Isra;Israa;Issa;Issam;Issiaka;Ivan;Ivy;Iwan;Iyad;Iyed;Izia"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomI=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomJ(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Jacinthe;Jack;Jacob;Jacqueline;Jacques;Jad;Jade;Jaden;Jalil;Jamal;Jamel;James;Jan;Jana;Jane;Janelle;Janie;Janna;Jannah;Jarod;Jasmine;Jason;Jassem;Jassim;Jawad;Jawed;Jayan;Jayden;Jayson;Jean;Jean-Baptiste;Jeanine;Jean-Marc;Jean-Marie;Jeanne;Jeannette;Jeannine;Jeannot;Jean-Pierre;Jed;Jehanne;Jenna;Jennah;Jennifer;Jenny;Jeremie;Jeremy;Jerome;Jessica;Jessie;Jessim;Jessy;Jibril;Jihane;Jill;Jim;Jimmy;Jinane;Joachim;Joakim;Joan;Joana;Joanna;Joanne;Joaquim;Joceline;Jodie;Joe;Joel;Joelle;Joey;Johan;Johana;Johann;Johanna;Johanne;John;Johnny;Jolie;Jonah;Jonas;Jonathan;Jordan;Joris;Josee;Joseph;Josephe;Josephine;Josette;Josh;Joshua;Josiane;Josue;Joud;Jourdain;Joy;Joyce;Juan;Juba;Jude;Judith;Jules;Julia;Julian;Juliana;Juliane;Juliann;Julianne;Julie;Julien;Julienne;Juliette;Jun;June;Junior;Junon;Juste;Justin;Justine"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomJ=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomK(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Kacper;Kader;Kadiatou;Kadidia;Kadidiatou;Kadidja;Kady;Kahil;Kahina;Kais;Kamel;Kamelia;Kamil;Kamila;Karamba;Karamoko;Karen;Karim;Karine;Karl;Karla;Karolina;Kassim;Kate;Katell;Kathleen;Katia;Kawtar;Kawthar;Kayla;Kayliah;Kayna;Kays;Keira;Kelia;Kelian;Kelly;Kelvin;Kelya;Kelyan;Kenan;Kendra;Kendrick;Kenny;Kentin;Kenza;Kenzi;Kenzo;Kenzy;Keren;Ketsia;Kevin;Keyla;Keziah;Khadidiatou;Khadidja;Khadija;Khady;Khaled;Khalifa;Khalil;Kheira;Kiara;Kilian;Killian;Kilyan;Kim;Kimberly;Kimi;Kimia;Kiyan;Klara;Klervi;Koumba;Kristina;Kurtis;Kyan;Kyle;Kylian;Kyliann;Kyllian"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomK=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomL(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Ladji;Laetitia;Lahna;Lalie;Laly;Lalya;Lamia;Lamine;Lana;Lancelot;Lara;Lassana;Laszlo;Latifa;Laura;Laure;Lauren;Laurence;Laurent;Laurentine;Laurette;Lauriane;Laurie;Laurine;Lauryn;Lauryne;Laya;Layana;Layanah;Layane;Layla;Layna;Lazar;Lazare;Lea;Leana;Leandre;Leandro;Leane;Leanne;Leelou;Lehna;Leia;Leila;Lena;Leni;Lenny;Leny;Leo;Leon;Leonard;Leonardo;Leonce;Leonie;Leonne;Leonor;Leonore;Leontine;Leo-Paul;Leopold;Leopoldine;Leslie;Leticia;Levana;Levi;Lewis;Leya;Leyla;Leyna;Lia;Liam;Liana;Liane;Liel;Liham;Lila;Lilas;Lili;Lilia;Lilian;Liliana;Liliane;Lilie;Lili-Rose;Lilly;Lilou;Lilwenn;Lily;Lilya;Lily-Rose;Lina;Linda;Lindsay;Line;Lino;Linoy;Lionel;Lior;Liora;Lirone;Lisa;Lisandro;Lise;Lisette;Lison;Lital;Liv;Livia;Livio;Liya;Liyah;Liz;Liza;Lizea;Loan;Loane;Loann;Logan;Lohan;Loic;Loick;Lois;Lola;Lorena;Lorenzo;Loris;Lorraine;Lothaire;Lou;Louan;Louane;Louann;Lou-Ann;Louanne;Lou-Anne;Louay;Loubna;Louca;Louis;Louisa;Louise;Louis-Marie;Louison;Louka;Loula;Louna;Lounis;Loup;Luan;Lubin;Luc;Luca;Lucas;Luce;Lucia;Lucie;Lucien;Lucienne;Lucile;Lucille;Lucinde;Lucrece;Lucy;Ludivine;Ludmila;Ludovic;Luigi;Luis;Luisa;Luka;Lukas;Luke;Lula;Luna;Lunete;Luz;Lya;Lyah;Lyam;Lyana;Lydia;Lydie;Lyes;Lyham;Lyla;Lylia;Lylou;Lyna;Lyne;Lynn;Lysandre;Lyse"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomL=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomM(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Maayane;Maceo;Madeleine;Madeline;Madina;Mado;Mady;Mae;Mael;Maelia;Maelie;Maelis;Maelle;Maelya;Maelys;Maeva;Magdalena;Mahamadou;Mahault;Mahaut;Mahdi;Mahe;Maher;Mahmoud;Mai;Maia;Mailys;Maimouna;Maina;Maissa;Maissane;Maiwenn;Maja;Makan;Maksim;Malak;Malcolm;Malek;Malia;Malick;Malik;Malika;Malo;Malone;Malorie;Mamadou;Mame;Mamou;Mamoudou;Manal;Manar;Manel;Manelle;Manil;Manon;Manuel;Manuela;Mara;Maram;Marc;Marc-Antoine;Marceau;Marcel;Marceline;Marcelle;Marcellette;Marcellin;Marcelline;Marcello;Marco;Marcus;Margaux;Margo;Margot;Marguerite;Maria;Mariam;Mariama;Mariame;Marianne;Marie;Marie-Ange;Marie-Georges;Marielle;Marie-Lou;Mariem;Mariette;Marilou;Marin;Marina;Marine;Mario;Marion;Marise;Marius;Marjane;Marjorie;Mark;Marko;Marlene;Marley;Marlon;Marnie;Marouane;Marta;Martha;Marthe;Martin;Martine;Marvin;Marwa;Marwan;Marwane;Marwen;Maryam;Marylou;Massil;Massinissa;Massyl;Mateja;Mateo;Mateusz;Matheo;Mathias;Mathieu;Mathilda;Mathilde;Mathis;Mathurin;Mathys;Matias;Matilda;Matilde;Matis;Matisse;Matt;Matteo;Mattheo;Matthew;Matthias;Matthieu;Matthis;Mattia;Mattis;Matys;Maud;Maude;Maureen;Maurice;Max;Maxance;Maxence;Maxens;Maxim;Maxime;Maximilian;Maximilien;Maximilienne;Maxine;May;Maya;Mayane;Mayar;Mayas;Mayeul;Mayline;Maylis;Mayssa;Mayssane;Mehdi;Mehmet;Meir;Melanie;Melchior;Melia;Melina;Melinda;Meline;Melissa;Mellina;Melodie;Melody;Melusine;Melvil;Melvin;Melvyn;Menahem;Mendel;Meriam;Meriem;Merlin;Merwan;Meryam;Meryem;Meryl;Meyron;Mia;Michael;Michel;Michele;Micheline;Michelle;Mickael;Mignon;Miguel;Mika;Mikail;Mike;Mila;Milan;Milena;Milhan;Milica;Milla;Milo;Mina;Minh;Mira;Mirabelle;Mireille;Miya;Moche;Modeste;Modestine;Modibo;Mody;Mohamed;Mohamed-Ali;Mohamed-Amine;Mohamed-Lamine;Mohammad;Mohammed;Mona;Monica;Monique;Morgaine;Morgan;Morgane;Mory;Mouad;Mouctar;Mouhamadou;Mouhamed;Mouhammad;Moulay;Mounir;Moussa;Moustafa;Moustapha;Muhammad;Muhammed;Mustafa;Mustapha;Mya;Myla;Mylan;Myriam;Myrtille"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomM=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomN(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Nabil;Nada;Nadia;Nadine;Nadir;Nael;Naelle;Nahel;Nahia;Nahil;Nahla;Nahyl;Naila;Naim;Nais;Nala;Namizata;Namory;Nana;Naomi;Naomie;Naor;Narcisse;Nassim;Natacha;Natalia;Natalie;Natan;Natasha;Nathael;Nathalie;Nathan;Nathanael;Nathaniel;Nawal;Nawel;Nawfel;Naya;Nayel;Nayla;Nazaire;Nazim;Neela;Neil;Neila;Nelia;Nell;Nelly;Nelson;Nelya;Nene;Neo;Nermine;Nesrine;Neyla;Niame;Nicodeme;Nicolas;Nicole;Nicolette;Niels;Nikita;Nikola;Nil;Nils;Nina;Nine;Ninette;Nino;Ninon;Niouma;Nisa;Nizar;Noa;Noah;Noam;Noan;Noe;Noel;Noelie;Noella;Noelle;Noemi;Noemie;Noha;Noham;Nohan;Nola;Nolan;Nolann;Nolhan;Nolwenn;Noor;Nora;Norah;Norhane;Nouha;Nour;Noura;Nourane"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomN=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomO(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Oceane;Octave;Odelia;Odette;Odile;Olga;Olive;Oliver;Olivia;Olivie;Olivier;Oliwia;Olympe;Olympia;Omar;Ombeline;Ondine;Onesime;Oona;Ophelie;Ora;Orane;Oren;Oriane;Orianne;Orlane;Ornella;Orso;Ortal;Oscar;Oskar;Othmane;Otto;Ouida;Oumar;Oumou;Ousmane;Oussama;Ovadia;Owen"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomO=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomP(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Pablo;Paco;Paloma;Paola;Paolo;Pape;Papillion;Paris;Pascal;Pascale;Pascaline;Paschal;Patrice;Patricia;Patrick;Paul;Paula;Paul-Antoine;Paul-Arthur;Paule;Paulette;Paulin;Pauline;Pedro;Penda;Penelope;Perceval;Perrette;Perla;Perle;Perrine;Peter;Petronille;Pharell;Phileas;Philemon;Philibert;Philippa;Philippe;Philippine;Pia;Pierre;Pierre-Alexandre;Pierre-Antoine;Pierre-Louis;Pierrette;Pietro;Placide;Pol;Pons;Prenoms;Preston;Prince;Prisca;Priscille;Prn;Prosper;Prudence;Prune"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomP=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomQ(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Qassim;Quentin;Quitterie"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomQ=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomR(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Racha;Rachel;Rafael;Rafaela;Rahim;Rahma;Rainier;Ramata;Rami;Ramy;Ramzy;Rana;Rania;Ranim;Ranya;Raoul;Raphael;Raphaelle;Rawane;Rayan;Rayane;Rayen;Rayhana;Raymonde;Razane;Rebecca;Reda;Regine;Regis;Reine;Remi;Remy;Renard;Renaud;Rene;Renee;Reynaud;Riad;Ricardo;Richard;Rim;Rita;Ritaj;Ritej;Rivka;Riyad;Robert;Robin;Robinson;Roch;Rochelle;Rodolphe;Rodrigo;Rodrigue;Rohan;Rokia;Rokya;Rolande;Romain;Romaine;Roman;Romane;Romeo;Romie;Romy;Ron;Ronan;Rosa;Rosalie;Rose;Roselle;Rosemonde;Rosette;Rosine;Roxane;Roxanne;Roy;Ruben;Ruby;Rudy;Ruth;Ryad;Ryan;Rym"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomR=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomS(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Saad;Sabine;Sabri;Sabrina;Sabrine;Sacha;Sadio;Safa;Safia;Safiatou;Safiya;Safya;Sahel;Said;Saif;Saja;Sakina;Salem;Salif;Salim;Salima;Salimata;Sally;Salma;Salman;Salome;Salomon;Sam;Samantha;Samba;Sami;Samia;Samir;Samira;Samson;Samuel;Samy;Sana;Sanaa;Sandra;Sandrine;Sandro;Santiago;Sara;Sarah;Sarra;Sasha;Saskia;Satine;Saturnin;Saul;Savannah;Scarlett;Scott;Sean;Sebastian;Sebastien;Sebastienne;Sekou;Selena;Selene;Selim;Selma;Selyan;Sephora;Seraphine;Serena;Serge;Serine;Severin;Severine;Seydina;Seydou;Seynabou;Shaina;Shana;Shani;Shanice;Shanna;Shannon;Shanon;Shany;Sharon;Shawn;Shay;Shayan;Shayma;Shayna;Shelly;Sherine;Shirel;Shirine;Shyrel;Sia;Sibylle;Sidi;Sidney;Sidonie;Sidy;Sienna;Siham;Sihem;Silas;Siloe;Simeon;Simon;Simone;Sinan;Sira;Sirine;Sixte;Sixtine;Skander;Soan;Sofia;Sofian;Sofiane;Sofya;Sohan;Sohane;Sokhna;Solal;Solange;Solene;Solenn;Soline;Solveig;Sonia;Sophia;Sophie;Soraya;Soren;Soukaina;Soulayman;Souleyman;Souleymane;Soumaya;Stacy;Stan;Stanislas;Stanley;Steeve;Stefan;Stella;Stephane;Stephanie;Steve;Steven;Suzanne;Suzette;Suzie;Suzy;Sven;Swan;Swann;Sybille;Sydney;Sylia;Sylvain;Sylvaine;Sylvestre;Sylvia;Sylviane;Sylvianne;Sylvie;Syrine"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomS=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomT(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Taha;Tahar;Tahel;Tal;Tali;Talia;Talya;Tamara;Tanguy;Tania;Tanya;Tao;Tara;Tasnim;Tasnime;Tatiana;Tatienne;Taym;Tayron;Tea;Teddy;Telesphore;Telma;Teo;Terence;Tesnim;Tesnime;Tess;Tessa;Thais;Thalia;Thanina;Thea;Theirn;Thelma;Theo;Theodore;Theophane;Theophile;Theotime;Therese;Thiago;Thibaud;Thibault;Thibaut;Thierno;Thierry;Thimeo;Thomas;Tia;Tiago;Tiana;Tidiane;Tiffany;Tiguida;Tilio;Tim;Timeo;Timothe;Timothee;Timothy;Tina;Tino;Tiphaine;Titouan;Tobias;Toinette;Tom;Toma;Tomas;Tommy;Tony;Toscane;Toussaint;Tracy;Tristan;Tsipora;Tybalt;Tyler;Tymeo;Tyron"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomT=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomU(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Ugo;Ulysse;Urbain;Ursule"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomU=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomV(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Vadim;Valentin;Valentina;Valentine;Valentino;Valere;Valeria;Valerie;Valery;Vanessa;Vasco;Vera;Vernon;Veronique;Vespasien;Vianney;Victoire;Victor;Victoria;Victorien;Victorine;Vienne;Viktor;Viktoria;Vincent;Violette;Virgil;Virgile;Virginie;Viviane;Vivien;Vivienne;Vladimir"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomV=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomW(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Waast;Wafaa;Walburge;Waldemar;Walder;Waldy;Walfrid;Walfroy;Wallerand;Walter;Walther;Wanda;Wandrille;Wandy;Warren;Waudru;Weltaz;Wenceslas;Wendel;Wendeline;Wendy;Werburge;Werner;Wilbert;Wilbrord;Wilfrid;Wilfried;Wilhelm;Wilhelmine;Willard;Willehad;Willem;William;Willibald;Willibrord;Willy;Wilmart;Wilson;Winebald;Winifred;Winnie;Winnoc;Winoc;Winston;Wisigarde;Wivine;Wladimir;Wolfgang;Wolfram;Wulfran;Wulfstan;Wunibald;Wynnebald"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomW=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomX(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Xant;Xantha;Xanthe;Xanthie;Xanthin;Xavier;Xaviera;Xaviere;Xenia;Xenophon;Xyste;Xytilis;Xytilise"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomX=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomY(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Yacine;Yacoub;Yacouba;Yael;Yahya;Yakine;Yamina;Yan;Yani;Yanis;Yaniss;Yann;Yanni;Yannick;Yannis;Yara;Yaron;Yasin;Yasmina;Yasmine;Yasser;Yassin;Yassine;Yaya;Yazid;Ylan;Yoan;Yoann;Yoav;Yoel;Yohan;Yohann;Yolande;Yona;Yoni;Yosra;Yossef;Youcef;Youenn;Youmna;Youna;Younes;Youness;Younouss;Youri;Yousra;Youssef;Youssouf;Yse;Ysee;Yseult;Yumi;Yuna;Yuri;Yusuf;Yvan;Yves;Yvette;Yvonne"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomY=Instr(1,strTemp,lePatronyme)
End Function

Function EstUnPrenomZ(lePatronyme As String)
Dim strTemp As String
strTemp = "" & _
"Zacharia;Zacharie;Zachary;Zack;Zackary;Zadig;Zahra;Zakaria;Zakariya;Zakary;Zakarya;Zara;Zayd;Zayn;Zaynab;Zayneb;Zeinab;Zelda;Zelie;Zephyr;Zephyrine;Zeynab;Zia;Ziad;Zina;Zineb;Zinedine;Ziyad;Zoe;Zoey;Zohra;Zuzanna;Zyad"
lePatronyme = SupprimerAccents(lePatronyme)
EstUnPrenomZ=Instr(1,strTemp,lePatronyme)
End Function

suggestion d'amélioration :
on pourrait encore améliorer le travail, en passant un correcteur d'orthographe de prénoms,
sur les mots en minuscule de la colonne de gauche, notamment pour les cédilles (Francois -> François)

A toi de me dire si ça te semble utile.

Bon amusement !

[Rocky Rider]

Bonjour "martinbrait"

J'ai fait un test avec une nouvelle liste de 784 prénoms/noms

Ca a très très bien fonctionné. C'est génial !!!
La dernière version est vraiment aboutie et je ne pense pas avoir laissé passer des erreurs.

J'ai ajouté une dizaine de prénoms, surtout des prénoms étrangers que je pense susceptibles de revenir.
saurais-tu me dire comment sauvegarder cette nouvelle liste pour pouvoir l'importer si tu proposes une nouvelle mise à jour ?

Encore merci pour tout.

[martinbrait]

Hello Man,

Si tu penses que ça te convient comme ça,
je ne fais plus de mise à jour.
Du coup, tu peux clore le message à résolu.
Bonne continuation !

[Rocky Rider]

Salut,

Avant de clôturer le sujet je voulais faire d'autres tests...chose faite aujourd'hui avec deux nouvelles listes de 600 prénoms/noms

Ca marche parfaitement. Je te suis infiniment reconnaissant.

Merci beaucoup !!!!!