Userform vers un tableau
Bonjour tout le monde,
je cherche à entrer à l'aide d'un UserForm 3 paramètres d'un prêt dans un tableau :
- la date de démarrage
- le prix (Cash Paid)
- le montant nominal
Aussi, ma première ligne est la 11eme ce qui me complique les choses.
Pour l'instant à chaque fois que je rentre mes données :
- je n'arrive pas à rentrer de format date (TextBox 3)
- les données s'inscrivent seulement sur la même ligne en remplacement
Il suffit de faire pomme+ Cmd + s pou accèder a mon UserForm
Je vous remercie tous.
Cordialement,
Nicolas
Oui désolé j'ai modifié mon message car j'ai réussi à faire marché le bouton annuler et j'ai oublié de remettre le doc
Merci beaucoup Minanse ca marche parfaitement !!
Bonjour, excusez moi de vous déranger de nouveau mais si le code marche parfaitement les chifres sont stockés dans le tableau comme des textes dans le tableau ce qui m'empêche de pouvoir travailler dessus par la suite.
Auriez-vous la solution ?
Merci d'avance
Private Sub CommandButton1_Click()
Dim l As Integer
l = Range("C" & Rows.Count).End(xlUp).Row
If IsDate(TextBox3) Then
Worksheets(1).Cells(l + 1, 3).Value = TextBox3.Text
Worksheets(1).Cells(l + 1, 7).Value = TextBox1
Worksheets(1).Cells(l + 1, 8).Value = TextBox2
Else
MsgBox "renter une date"
TextBox3.Value = ""
Exit Sub
End If
Unload UserForm1
End Sub
Private Sub CommandButton2_Click()
Unload UserForm1
End Sub
Bonjour,
=> changer le format des cellule en nombre
=> Worksheets(1).Cells(l + 1, 7).Value = Cint(TextBox1.text)
Worksheets(1).Cells(l + 1, 8).Value = Cint(TextBox2.text)
Encore une fois merci minanse,
J'ai convertie les cellules en nombre ce que j'avais déjà fait mais j'ai juste rajouté .Text après les deux TextBoxs et non CINT qui ne marchait pas je ne sais pas pourquoi
CINT marche pas parce que le format "nombre" n'est pas un INT ^^(à vérifier)