Discussion :

[quimperois58]

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

Code :

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

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

[Thautheme]

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 :

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

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

et le nom avec :

Code :

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

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

[quimperois58]

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

Code :

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

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

et Ainsi que

Code :

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

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