Discussion :

[fatima_i]

Bonjour tout le monde,

Pourriez vous m'aider svp.
En fait j'ai dans une cellule( exemple c) le prénom de la personne je veux normaliser la colonne prenom pour ne garder que le vrai prénom et non pas tous les prénoms de la personne. car dans les document juridique on met le vrai prénom suivi du prénom de son père suivi du prénom de son parrain
je veux donc garder que le vrai prénom et éliminer les prénoms juridique.


la difficulté réside dans le fait que le vrai prénom est parfois composé donc pour avoir le vrai prénom on ne peut pas se contenter de garder que le premier mot, il faut garder les deux premier mot, en comparant les 2 premiers mots a la liste des prénoms composé qui existe dans une autre feuille si les 2 premiers mots correspondent a un prénom composé alors on garde les 2 premiers mots comme prénom sinon on garde que le premier mot comme prénom.

Avez une idée SVP ?

[ucfoutu]

Bonjour,

un nom composé ne comprend pas d'espace mais un tiret
comment sont donc saisis tes prénoms ?
Car sans tiret, il sera bien difficile de distinguer pare exemple le prénom composé "Jean Jacques" du vrai prénom Jean, suivi du prénom Jacques du père !
En général, on évite toute ambiguîté en utilisant la virgule pour séparer les prénoms ...
Si tu n'as aucun séparateur, je vois mal comment tu pourrais t'en sortir (imagine donc que le père soit inconnu et qu'on attribue à l'enfant son vrai prénom (Jean), suivi, donc, du nom composé, lui, d'un parrain (Pierre Henri).
Si par malheur tu as Jean Pierre dans ta liste des noms composés, ton enfant va se voir attribuer le "vrai prénom" de Jean-Pierre et non de Jean !!!
Gaffe, donc !!!! (il vaut mieux repenser d'entrée de jeu l'ensemble).

[fatima_i]

Merci d'avoir me répondre,

Dans ma liste les prénoms composés ne contiens pas des tiret mais des espaces et j'ai une autre liste qui contiens tous les prénoms composés ce que je veux faire c'est de parcourir ma liste (exemple feuille1) en comparant chaqu'un de ces éléments avec toutes les éléments de la liste des noms composé (exemple feuille2) si l'élément de feuille1 est identique à un élément de feuille2 je garde ce prénom( cet élément) sinon je ne garde que le premier mot .

Merci

[Krovax]

Voial peut être un debut de piste de réflexion

imaginon que prenom soit ta vraiable de type string dans la quelle tu récupère le prenom complet de la personne (avec tous les prénom secondaire)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Dim Tableau() As String
dim prenomtest as string
Dim i As Integer
dim estcomp as boolean
dim prenom as string
 
Tableau = Split("prenom", " ")
     'tableau est désormé un tableau dans lequel se trouve les different prénom 
 
prenomtest=tableau(1) & " " & tableau(2)
'prenomtest constien maintenant les deux premier prenom 
'exemple poure jean francois marc prenomtest= jean francois   
 
'Ensuite tu compares prenomtest  à ta liste qui se trouve en feuil2 colonne A
 
estcomp=false
for i= 1 to feuil2.Range("A65536").End(xlUp).Row
    if feuil2.cells(i,1)=prenomtest then
             estcomp=true
             exit for
    end if
next i 
 
if estcomp then
    prenom=prenomtest
else 
    prenom=tableau(1)
endif
 
'prenom contient maintenant le prenom de la personne composé ou non
end sub

Voila je n'ai pas vraiment la possibilité de tester le code (ou mêm de vérifier la syntaxe) si il y a un problème dit le nous

un guiide pour travailler sur les chaine de caractère si ca peut t'aider
http://silkyroad.developpez.com/VBA/...nesCaracteres/

Juste pour ma culture générale dans quel pays le prénom du parrain est-il nécessaire pour les document juridique?

[aalex_38]

Par rapport a ce que tu veux faire une chose m'étonne beaucoup :

Dans ma liste les prénoms composés ne contiens pas des tiret mais des espaces et j'ai une autre liste qui contiens tous les prénoms composés

Admettons que tu mettes en place ce que tu dis, comment ferras-tu la diférence entre quelqu'un dont le premier nom est Jean et le second Pierre et celui qui s'appelle Jean-Pierre

[fatima_i]

Par rapport a ce que tu veux faire une chose m'étonne beaucoup :

Admettons que tu mettes en place ce que tu dis, comment ferras-tu la diférence entre quelqu'un dont le premier nom est Jean et le second Pierre et celui qui s'appelle Jean-Pierre

Oui c vrai ce que tu m'as dit mais dans ce cas je considère que la personne s'appelle jean pierre car il existe le prénom composé 'jean-pierre' .

Merci

Krovax,

Merci beaucoup pour la réponde, mais le code m'affiche erreur d'exécution '9':
L'indice n'appartient pas à la sélection.

Juste pour ma culture générale dans quel pays le prénom du parrain est-il nécessaire pour les document juridique?

D'après ce qu'ils m'ont dit, c'est en France.

[Krovax]

hmm, en france le parainnage est religieux et donc absolument pas juridique, mais il était parrait-il d'usage de donner en deuxième prénom le nom du parrain (usage qui se perd), mais j'émet quand même un doute.

Bon revenons à la macro

Pourais tu me dire sur quelle ligne exactement le programme bloque?

[Krovax]

C'est bon j'aipu tester voici le bon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Private Sub CommandButton1_Click()
 
Dim Tableau() As String
Dim prenomtest As String
Dim i As Integer
Dim estcomp As Boolean
Dim prenom As String
prenom = Cells(1, 2)
 
Tableau = Split(prenom, " ")
     'tableau est désormé un tableau dans lequel se trouve les different prénom
 
prenomtest = Tableau(0) & " " & Tableau(1)
'prenomtest constien maintenant les deux premier prenom
'exemple poure jean francois marc prenomtest= jean francois
 
'Ensuite tu compares prenomtest  à ta liste qui se trouve en feuil2 colonne A
 
estcomp = False
For i = 1 To Feuil2.Range("A65536").End(xlUp).Row
    If Feuil2.Cells(i, 1) = prenomtest Then
             estcomp = True
             Exit For
    End If
Next i
 
If estcomp Then
    prenom = prenomtest
Else
    prenom = Tableau(0)
End If
 
'prenom contient maintenant le prenom de la personne composé ou non
 
MsgBox (prenom)
End Sub

les changement

Code :

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

Tableau = Split(prenom, " ")

et non

Code :

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

Tableau = Split("prenom", " ")

sinon on entre le mot prnom et nom le contenue de la variable

Code :

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

prenomtest = Tableau(0) & " " & Tableau(1)

et non

Code :

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

prenomtest = Tableau(1) & " " & Tableau(2)

Le tableau commence à 0 et non à 1
idem pour

Code :

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

 prenom = Tableau(0)

La ca marche sur mon fichier exemple

[casefayere]

Bonjour Fatima et le forum,
Le temps que tu travailles sur tes codes, je te confirme que le prénom du parrain (en France) n'a rien de juridique, tu peux d'ailleurs n'avoir qu'un seul prénom

Bonne journée

[fatima_i]

Bonjour casefayere,

Merci pour l'information.

et très bonne journée