Je voudrais que lors de la validation de donn=E9es dans un=20
textbox (en cliquant sur OK)que si l'utilisateur n'a entr=E9=20
que 4 chiffres alors que les chiffres 00 apparaissent=20
automatiquement devant le nombre inscrit afin de faire une=20
saisie =E0 6 chiffres.
Merci beaucoup.... Juste une petite question pouiche.... Je mets ces instructions où????
J'aurais peut-être dû mentionner qu'il n'y a qu'un textbox dans le userform, et qu'en cliquant sur OK cela déclenche la fonction Find.... comme suit....
Private Sub CommandButton1_Click() On Error Resume Next Application.ScreenUpdating = False Nom = TextBox1 Sheets("Database").Select Cells.Find(What:=Nom, After:=Range("B2"), _ LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, MatchCase:úlse).Activate Unload UserForm1 View.Show End Sub
Je ne sais donc pas trop où mettre cette instruction....
Merci
Denys
-----Original Message----- x = Format(TextBox1.Text, "000000")
AV
.
Bonjour Alain,
Merci beaucoup.... Juste une petite question pouiche....
Je mets ces instructions où????
J'aurais peut-être dû mentionner qu'il n'y a qu'un textbox
dans le userform, et qu'en cliquant sur OK cela déclenche
la fonction Find.... comme suit....
Private Sub CommandButton1_Click()
On Error Resume Next
Application.ScreenUpdating = False
Nom = TextBox1
Sheets("Database").Select
Cells.Find(What:=Nom, After:=Range("B2"), _
LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False).Activate
Unload UserForm1
View.Show
End Sub
Je ne sais donc pas trop où mettre cette instruction....
Merci
Denys
-----Original Message-----
x = Format(TextBox1.Text, "000000")
Merci beaucoup.... Juste une petite question pouiche.... Je mets ces instructions où????
J'aurais peut-être dû mentionner qu'il n'y a qu'un textbox dans le userform, et qu'en cliquant sur OK cela déclenche la fonction Find.... comme suit....
Private Sub CommandButton1_Click() On Error Resume Next Application.ScreenUpdating = False Nom = TextBox1 Sheets("Database").Select Cells.Find(What:=Nom, After:=Range("B2"), _ LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, MatchCase:úlse).Activate Unload UserForm1 View.Show End Sub
Je ne sais donc pas trop où mettre cette instruction....
Merci
Denys
-----Original Message----- x = Format(TextBox1.Text, "000000")
AV
.
AV
Merci beaucoup.... Juste une petite question pouiche.... Je mets ces instructions où????
Nom = Format(TextBox1.Text, "000000")
AV
Merci beaucoup.... Juste une petite question pouiche....
Je mets ces instructions où????
