bonsoir tout le monde 

non je crois que je laisse tombé cette idées je repart sur une autre base ,enfin tu verras j'ai  posté le dossier dans ta boite  j'ai plus beaucoup de temps je travail de  6h à 21h en se moment mes animaux vont bientôt partir  mais je pense que le dossier est pas mal tu  verras s'il faut l améliorer 

a+

bonjour  le forum
 dans mon useforme avec des textbox
j aurais voulus changer textbox2 par un inputbox souligner voila le code macro
comme ca il fonctionne mais après avoir valider alors se que je recherche c'est qu'il apparaisse au moment ou je clique sur mon textbos2  marche comme cela mais mon input box apparaît après avoir validé 

merci pour tout aide apporter
Private Sub CommandButton2_Click()

Dim Numlignevide As Integer

With Sheets("INDV")

Numlignevide = .Columns(1).Find("").Row 'on trouve la dernière ligne vide du tableau'

.Cells(Numlignevide, 1) = TextBox15.Value
.Cells(Numlignevide, 2) = DTPDate1.Caption
.Cells(Numlignevide, 3) = TextBox13.Value
.Cells(Numlignevide, 4) = TextBox14.Value
.Cells(Numlignevide, 5) = TextBox1.Value
.Cells(Numlignevide, 6) = TextBox2.Value = InputBox("quelle dose svp ?", "dose ?")
.Cells(Numlignevide, 7) = TextBox3.Value
.Cells(Numlignevide, 8 = TextBox4.Value
.Cells(Numlignevide, 9) = TextBox5.Value
.Cells(Numlignevide, 10) = TextBox6.Value
.Cells(Numlignevide, 11) = TextBox7.Value & " " & TextBox8.Value & " " & TextBox9.Value
.Cells(Numlignevide, 12) = TextBox10.Value

End With

MsgBox "Saisie effectuée, vous pouvez quitter"
Unload Me
UserForm2.Show ' on vide USF2

bonsoir le forum

j ai enfin trouvé merci