Bonjour,
tu as 9 colonnes , il te faut donc 9 textbox
le numéro de client ne doit pas être accessible , il faut donc verrouiller la textbox1
on va maintenant appeler le form
Private Sub CmdFormulaire_Click()
UserForm1.Show 0
End Sub
voila la totalité du code
Private OngletName As String
Private LigneFin As Long
Private LigneNew As Long
Private Sub UserForm_Initialize()
OngletName = "Feuil1"
Call InitialiseForm
End Sub
Private Sub InitialiseForm()
If Range("A2").Value = "" Then
LigneFin = 2
LigneNew = 2
Me.TextBox1.Value = 1
Else
LigneFin = Sheets(OngletName).Range("A" & Rows.Count).End(xlUp).Row
Me.TextBox1.Value = LigneFin
LigneNew = LigneFin + 1
End If
For n = 2 To 9
Me.Controls("Textbox" & n).Value = ""
Next n
End Sub
Private Sub CmdValider_Click()
For n = 1 To 9
Sheets(OngletName).Cells(LigneNew, n).Value = Me.Controls("Textbox" & n).Value
Next n
Call InitialiseForm
End Sub
quand le form est chargé ,
on contrôle si c'est le premier enregistrement
on indique le numéro du nouveau client
on efface toutes les "cases"
quand on Valide avec le bouton "Valider"
on boucle sur les 9 "cases" et on écrit les "data"
on prépare le form pour un autre enregistrement
on écrit et on prépare...
le Fichier_JP-v2
@+JP