Prénom ==> Masculin ou féminin ?

Bonjour,

Dans une table de prénom et noms je dois ajouter Monsieur/Madame en fonction du prénom. Existerait-il des listes quelque part où les principaux prénoms seraient repris avec la mension masculin ou féminin ou qqch dans le genre ?

merci d'avance

AngelJo

Oh....!

Le sexe correspondant à un prénom ?
Ca va la tête, là ?

on y va avec quelques exemples :

Dominique
Claude
Caglina (c'est le prénom de mon épouse et de quelqu'un d'autre qui n'est pas de sexe féminin)
Jean (hé oui !)
Isabeau (encore en cours)
George (je connais un écrivain qui a choisi ce prénom masculin angtlais, bien qu'elle fût de sexe féminin)
Janet

Bon.... il vaut mieux que je m'arrête... et vous fasse grâce de prénoms qui ne figurent pratiquement nulle-part (voir celui de mon épouse) ou que l'on crée sans problème en vertu de la modification de la loi !

 

Bon : dans une table, on ajoute en général un champ "civil" prenant 3 valeurs possibles (1 = M. - 2 = Mme - 3 = Mlle).

 

Je m'en veux d'avoir oublié l'illustre "Jackie", qui change de sexe en fonction des origines...

Tout d'abord merci à Julien237 pour le site ==> c en effet facile de s'en servir.

Ensuite, à jmfmarques, je sais qu'il existe des noms qui peuvent être masculin et féminin, et je sais aussi que la plupart des prénoms étrangers ne seront pas dans cette liste. Mais cela me permet de déja faire un premier tri avec les prénoms les plus usuels : quand il y a 10000 adresses à traiter ce n'est pas négligeable.

AngelJo

Tu pourras en determiner quelqu'un mais comme le dit jmfmarques un prénom ne correnpond pas forcement a la realité. Et puisil y a des prénom exotique...

Bref ce sera totalement aleatoire

@+

[Code]E.B.[/Code]

Bases de données, sites internet, jet de dés... mais non, c'est bien plus simple !!!!

If right$(sPrenom, 1) = "e" Then
      '# Féminin
Else
     '# Masculin
End If

ok, je sors.......

Renfield
Admin CodeS-SourceS- MVP Visual Basic

C'est toujours mieux que ce que je tentais de faire ^^

If inStr(1,Prénom,"XY") <> 0 then
   'masculin
   else
   'Féminin
end if

Voici, un parfait exemple d'algorithme génétique :p

Renfield
Admin CodeS-SourceS- MVP Visual Basic

J'ai beaucoup plus efficace (et bien connu) Renfield :

Private Sub Command1_click()
 Dim prenom As String
   prenom = Text1.Text
   If frigo(prenom) <> "" Then
     MsgBox "masculin"
  Else
     MsgBox "féminin"
  End If
End Sub

Private Function frigo(toto As String) As String
  Randomize
   If Int((2 * Rnd) + 1) = 1 Then
      frigo = "on se les gèle"
   Else
     frigo = ""
  End If
End Function

Allez ! ... je sors aussi ...