Discussion :

[zine pef]

Salut Forum;
je suis à la recherche un code qui sépare le nom et le prenom
dans deux textbox
merçi pour votre visit;

[mercatog]

Bonjour
Une question, comment distinguer les noms des prénoms?
Exemple:
Zine Pef
Mohammed Ali Clay
...

[Invité]

Bonjour

Cette question revient régulièrement, merci de faire des recherches sur le forum.

Comme ici : http://www.developpez.net/forums/d10...renom-formule/

Philippe

[zine pef]

Merçi Philippe ,mercatog pour la réponce
mais le code pour userform dans txtbox

[casefayere]

Bonsoir à tou(te)s,

Dans le lien proposé par Philippe, tu reprends la proposition de mercatog en changeant simplement la destination :

Code :

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

1
2
3
4
5
' code mercatog
.Range("B" & i).Value = Trim(Nom)
.Range("C" & i).Value = Trim(Prenom)
Nom = ""
Prenom = ""

si tes noms sont en majuscules (comme le souligne mercatog, donc
si tes textbox se nomment textbox1 et textbox2 tu mets :

Code :

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

1
2
3
4
textbox1 = Trim(Nom)'nouveau code
textbox2 = Trim(Prenom)
Nom = ""
Prenom = ""

edit : je viens de regarder ton fichier, donc :

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
Private Sub TextBox1_Change()
Dim Chaine As String, Nom As String, Prenom As String
Dim x As Integer, i As Long
Dim Tb
Chaine = TextBox1
If Chaine <> "" Then
   Tb = Split(Chaine)
   For x = 0 To UBound(Tb)
      If UCase(Tb(x)) = Tb(x) Then
         Nom = Nom & " " & Tb(x)
      Else
         Prenom = Prenom & " " & Tb(x)
      End If
   Next x
   TextBox2.Value = Trim(Nom)
   TextBox3 = Trim(Prenom)
   Nom = ""
   Prenom = ""
End If
End Sub

En reprenant toujours le code à mercatog :
si les pénoms sont simples ou les prénoms composés ont tous des traits d'union

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
Private Sub TextBox1_Change()
Dim Chaine As String, Nom As String, Prenom As String
Dim x As Integer, i As Long
Dim Tb
Chaine = TextBox1
If Chaine <> "" Then
   Tb = Split(Chaine)
   For x = 0 To UBound(Tb) - 1
         Nom = Nom & " " & Tb(x)
   Next x
   Prenom = Tb(UBound(Tb))
End If
TextBox2.Value = Trim(Nom)
TextBox3 = Trim(Prenom)
Nom = ""
Prenom = ""
End Sub

Bien sur les prénoms se trouvent en fin et non "Gerard Majax"

[zine pef]

merçi les amis ca marche