remplissage d\'un tableau via un userform

Profane

XLDnaute Occasionnel
remplissage d'un tableau via un userform

Bonjour a tous et a toutes
tout est dans le titre ,
j'ai fait un fichier type pour illustrer mon besoin
ps: la date doit s'incrémenter en fonction de la saisie :)
merci d'avance pour vos réponses [file name=remplissageAuto.zip size=10081]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/remplissageAuto.zip[/file]

Message édité par: profane, à: 09/01/2006 11:06
 

Pièces jointes

  • remplissageAuto.zip
    9.8 KB · Affichages: 31

JC de Lorient

XLDnaute Impliqué
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
 

Discussions similaires

Statistiques des forums

Discussions
312 322
Messages
2 087 285
Membres
103 507
dernier inscrit
tapis23