Concatener et Inversement

Bonjour,
Je cherche une solution à mon Problème, ci-dessous un extrait de ma Macro

Code:

---

1 2 3 4 5 6 7 8 9 10 11

' Conversion du nom et prénom en NOMPRPRE Nomconverti = Application.WorksheetFunction.Proper(Me.TB_Nom.Text) Prenomconverti = Application.WorksheetFunction.Proper(Me.Tb_Prénom.Text)   'Controle si déjà existant With Sheets("Feuil1") For Each cell In .Range("B8:B" & .Range("B65536").End(xlUp).Row) If Not cell = Nomconverti & ", " & Prenomconverti Then ' Mise en place des valeurs saisies cell.Offset(0, 1) = Nomconverti & " - " & Prenomconverti Exit For

---

ce que je souhaiterais :
Dans l'UserForm1 j'ai un TextBox nommé TB_Nom et un autre TextBox nommé Tb_Prénom ( TB_Nom et Tb_Prénom ne sont pas enregistré dans la base)

Quand j'ouvre mon UserForm1 ;
Je veux extraire le Nom et remplir l'userForm1.TB_Nom
extraire le Prénom et remplir l'UserForm1.Tb_Prénom

Pourriez-vous apporter une solution...

Merci

Bonjour Quimperois, bonjour le forum,

C'est pas très clair pour moi tes explications mais tu devrais regarder du côté de Split. Si dans un cellule (disons A1) du as "Prénom - Nom" tu peux extraire le prénom avec :

Code:

---

Split(Range("A1").Value, " - ")(0)

---

et le nom avec :

Code:

---

Split(Range("A1").Value, " - ")(1)

---

Merci Thautheme
au lancement de mon UserForm1 j'ai mis en UserForm_initialize :

Code:

---

TB_Nom.Value = Split(Range("A8").Value, " - ")(1)

---

et Ainsi que

Code:

---

TB_Prénom.Value = Split(Range("A8").Value, " - ")(1)

---

et j'ai rempli comme il était mon souhait
mes deux TextBox.

Problème résolu !

Merci encore Thautheme et bon dimanche
Kénavo