remplissage d\'un tableau via un userform

Re:remplissage d'un tableau via un userform

bonjour tout le monde

voici un code assez simpliste a mettre dans le code du Userform
Private Sub CommandButton1_Click()
Dim i As Integer
i = Range('B65536').End(xlUp).Row + 1
Range('B' & i) = Format(Date, 'dd mm yyyy')
Range('C' & i) = TextBox1
Range('D' & i) = TextBox2
Range('E' & i) = TextBox3
Range('F' & i) = TextBox4
TextBox1 = ''
TextBox2 = ''
TextBox3 = ''
TextBox4 = ''
End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

Private Sub UserForm_Initialize()
TextBox1 = ''
TextBox2 = ''
TextBox3 = ''
TextBox4 = ''
End Sub


JC

Re:remplissage d'un tableau via un userform

Bonjour,
que dire de plus que ....c'est parfait
je te remercie pour ton aide
bonne journée
et j'en profites au passage pour vous souhaitez a tous une bonne et heureuse année