MASSJIPE
XLDnaute Impliqué
Bonjour le forum
J'ai cherché dans Google j'ai tester différent code mais ça ne fonctionne pas
Donc je saisie dans la Textbox2 des chriffres (prix) qui est transférer dans cellule de la dernière ligne
Merci
J'ai cherché dans Google j'ai tester différent code mais ça ne fonctionne pas
Donc je saisie dans la Textbox2 des chriffres (prix) qui est transférer dans cellule de la dernière ligne
Merci
VB:
Option Explicit
Dim iRL
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Sheets("Liste")
iRL = .Range("H65000").End(xlUp).Row + 1
TextBox2 = VBA.Format(TextBox2.Value, " 0.00 €")
End With
End Sub
Private Sub CommandButton1_Click()
With Sheets("Liste")
.Range("H" & iRL) = Me.txtQte 'Référence
.Range("I" & iRL) = Me.TextBox1 'Désignation
.Range("J" & iRL) = Me.TextBox2 'Prix
TextBox2 = VBA.Format(TextBox2.Value, " 0.00 €")
Unload Me
End With
End Sub
Private Sub TextBox1_AfterUpdate()
TextBox2 = VBA.Format(TextBox2.Value, " 0.00 €")
End Sub