Bonjour,
Je cherche une solution à mon Problème, ci-dessous un extrait de ma Macro
ce que je souhaiterais :
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
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
Partager