Changement code

bonsoir le forum

voila mon code dans mon useforme avec un 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 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

Bonjour

Essaie en remplaçant :

.Cells(Numlignevide, 6) = TextBox2.Value = InputBox("quelle dose svp ?", "dose ?")

par :

.Cells(Numlignevide, 6) = InputBox("quelle dose svp ?", "dose ?")

Résultat ?

Bye !

merci gmb pour ton message cela fait comme rien même chose que mon essaie j avais essayer devant aux milieu au dessus en dessous

input box apparaît juste après avoir valider et le pire quand je rentre un chiffre dans input box il le prend

j ai meme fait un essaie

If produit1 .Value <> "" Then

Dose = InputBox(" quel dosage svp")

Cells(dernLign, 10).Value = Dose

End If

Application.ScreenUpdating = True

End Sub

Bonjour le forum personne à. Une solution à mon problème svp

Merci pour tout complément d'information

Bonjour gardian, gmb, le forum ,

un essai :

 Private Sub TextBox2_Change()
    TextBox2.Value = InputBox("quelle dose svp ?", "dose ?")
    End Sub

et

.Cells(Numlignevide, 6) = TextBox2.Value

Cordialement,

merci bien mon ami cela marche quoi qu'il reviens deux fois quand je rentre un chiffre pourquoi deux fois ????? c 'est mieux que mes essaie

j ai deux autre textbox comme celui que tu vient de trouvé le code

il y a textbox 4 et textbox 6 comment je peux faire pour qu'il mette inputbox stp

avec tout ma gratitude pour le temps que tu a bien voulus m accorder

merci cela marche voila après de nombreux essaie j ai trouvé comment faire les trois un après un voila le code

Private Sub CommandButton1_Click()

With Sheets("indv")

Range("A1") = TextBox2.Value

Range("A2") = TextBox4.Value

Range("A3") = TextBox6.Value

End With

End Sub

Private Sub TextBox2_Change()

TextBox2.Value = InputBox("quelle dose svp ?", "dose01 ?")

End Sub

Private Sub TextBox4_Change()

TextBox4.Value = InputBox("quelle dose ?", "dose02 ?")

End Sub

Private Sub TextBox6_Change()

TextBox6.Value = InputBox("quelle dose svp ?", "dose03 ?")

End Sub

encore un grand merci et tout ma gratitude pour votre aide