Rapport de message :*
 

Re: usf changement de code svp

Titre du sujet : Re: usf changement de code svp
par jmcr le 30/06/2017 14:54:44

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