Userform : Textbox(s) vers cellules feuil1

[fred94000]

Bonjour à tous et toi le forum,
j'aimerai une explication sur mon dossier ci-joint.
4 Textbox dans un userform qui remplissent les cellules de la feuil1
ceci fonctionne bien.
mon soucis c'est que lorsque les cellules sont remplies, il me faut double cliquer sur les cellules pour retirer un triangle vert de chaque cellules et ainsi mettre a jour le solde.
dans l'attente d'une réponse je vous en remercie par avance.

 

[fred94000]

Re : Userform : Textbox(s) vers cellules feuil1

re bonjourle forum
je n'arrive pas a joindre mon fichier.

 

[fred94000]

Re : Userform : Textbox(s) vers cellules feuil1

Ca y est j'ai reussi

 

[Slade47]

Re : Userform : Textbox(s) vers cellules feuil1

Bonjour Fred94000, le Forum,

Il suffit de mettre TextBox1.value

Private Sub CommandButton1_Click()
Dim L As Integer
L = Range("b65536").End(xlUp).Row + 1
With WS
    Range("B" & L) = TextBox1.[COLOR="Red"]Value[/COLOR]              ' Idem
    Range("C" & L) = TextBox2.[COLOR="red"]Value[/COLOR]    ' Idem
    Range("D" & L) = TextBox3.[COLOR="red"]Value[/COLOR]
    Range("e" & L) = TextBox4.[COLOR="red"]Value[/COLOR]
    End With
    Unload Me

End Sub

Alain