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
|