Afficher aussitot la valeur d'une textbox vers une cellule et taux

bonsoir

c'est tous bête et simple...

je souhaiterais afficher dans une cellule la valeur que je taperais dans une textbox et qu'elle puisse s'afficher aussitot dans la cellule

j'y arrive à l'aide d'un bouton sur lequel je clic mais je souhaiterais ne pas utiliser de bouton pour afficher directement la valeur de la textbox

comment puis- je m'y prendre?

j'ai pensé à :

Range("n2") = textbox1.Value

mais cela ne fonctionne pas

et deuxième question

j'ai une cellule calculé en pourcentage (taux de remise) que j'aimerais qu'il puisse s'afficher dans un label de mon userform. j'arrive à le faire apparaitre dans le label mais en format décimal, il ne s'affiche pas en taux.

merci pour votre aide

Bonjour,

à tester,

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
t = Sheets(1).Range("N2")
Sheets(1).Range("N2") = t & Chr(KeyAscii)
End Sub

Édit:

pour le %

Me.Label1 = Format(Sheets(1).Range("A4").Value, "Percent")

bonsoir

merci pour votre réponse mais j'aimerais l'intégrer dans une macro que j'ai déjà conçu

voici la pièce jointe

Dans le userform, il s'agit de la colonne QUANTITÉ du bon de commande

sankoukai

Dans le userform, il s'agit de la colonne QUANTITÉ du bon de commande

il y a plusieurs Userform dans votre fichier, est ce qu'il s'agit du UserForm "refclient" ?

oui tout à fait c'est le userform refclient

et vous voulez transférer la valeur inscrite sur les TextBox1 à TextBox8 sur l'onglet ? dans les cellules ?

oui pardon :

sur la feuille Catalogue et dans les cellules de la colonne N

il y a 8 lignes dans mon bon de commande et j'ai 8 lignes sur la feuille catalogue (à partir de la colonne H qui reprends le bon de commande de mon userform refclient).

merci d'avance pour votre aide

Sankoukai

Voici un exemple à répéter pour tous vos 8 TextBox, en ajustant le nom du TextBox et l'adresse N2, N3 Nx...

Private Sub TextBox1_Change()
Sheets("Catalogue").Range("N2") = Me.TextBox1.Value
End Sub

Private Sub TextBox2_Change()
Sheets("Catalogue").Range("N3") = Me.TextBox2.Value
End Sub

'etc...

Merci pour ta précieuse aide

je vais pouvoir je pense terminer tranquillement mon bon de commande

sankoukai