L
lo
Guest
Salutations à tous!
Trois petites questions pour votre plus grand plaisir ;-) Mais avant toutes choses voici une copie de mon code :
'page saisie
Private Sub Valider_Click()
Dim sjour As String
Dim qu As String
Dim nom As String
Dim adress As String
Dim cour As String
Dim net As String
Dim pt As String
Dim lp As String
Dim un As String
Dim ept As String
Dim sept As String
Dim laforetpt As String
Dim artlp As String
Dim laforetlp As String
Dim capeblp As String
Dim intun As String
Dim perun As String
On Error GoTo Err
sjour = TBsjour.Value
qu = TBqu.Value
nom = TBnom.Value
adress = TBadress.Value
cour = TBcour.Value
net = TBnet.Value
pt = TBpt.Value
lp = TBlp.Value
un = TBun.Value
ept = TBept.Value
sept = TBsept.Value
laforetpt = TBlaforetpt.Value
artlp = TBartlp.Value
laforetlp = TBlaforetlp.Value
capeblp = TBcapeblp.Value
intun = TBintun.Value
perun = TBperun.Value
ligne = Sheets("Feuil1").Range("D65536").End(xlUp).Row + 1
Worksheets(1).Activate
Cells(ligne, 1).Value = sjour
Cells(ligne, 2).Value = qu
Cells(ligne, 4).Value = nom
Cells(ligne, 5).Value = adress
Cells(ligne, 6).Value = cour
Cells(ligne, 7).Value = net
Cells(ligne, 8).Value = pt
Cells(ligne, 9).Value = lp
Cells(ligne, 10).Value = un
Cells(ligne, 11).Value = ept
Cells(ligne, 12).Value = spt
Cells(ligne, 13).Value = laforetpt
Cells(ligne, 14).Value = artlp
Cells(ligne, 15).Value = laforetlp
Cells(ligne, 16).Value = capeblp
Cells(ligne, 17).Value = intun
Cells(ligne, 18).Value = perun
ligne = ligne + 1
Exit Sub
Err:
MsgBox "Erreur"
End Sub
Private Sub Quit2_Click()
Unload tpo
End Sub
So,
1/ Est-il possible de saisir dans une textbox une value automatic, à savoir la date du jour (d'après winxp?)?
2/ Avec ce code, après chaque validation les valeurs saisies sont alors rentrées dans leurs cels respectives sous excel. Pb, elles restent apparentes sur la fiche. Est-il possible de vider les textbox entre deux validations?
3/ Il y a une petite err dans le code que je n'arrive à résoudre. Imaginons que la saisie commence ligne 7, après avoir cliquer sur valider une premiere fois les valeurs sont inscrites ligne 7, une seconde fois elles le sont tjs ligne 7, or elles devraient l'être ligne 8
Plz help
Bonne journée à tous!
Trois petites questions pour votre plus grand plaisir ;-) Mais avant toutes choses voici une copie de mon code :
'page saisie
Private Sub Valider_Click()
Dim sjour As String
Dim qu As String
Dim nom As String
Dim adress As String
Dim cour As String
Dim net As String
Dim pt As String
Dim lp As String
Dim un As String
Dim ept As String
Dim sept As String
Dim laforetpt As String
Dim artlp As String
Dim laforetlp As String
Dim capeblp As String
Dim intun As String
Dim perun As String
On Error GoTo Err
sjour = TBsjour.Value
qu = TBqu.Value
nom = TBnom.Value
adress = TBadress.Value
cour = TBcour.Value
net = TBnet.Value
pt = TBpt.Value
lp = TBlp.Value
un = TBun.Value
ept = TBept.Value
sept = TBsept.Value
laforetpt = TBlaforetpt.Value
artlp = TBartlp.Value
laforetlp = TBlaforetlp.Value
capeblp = TBcapeblp.Value
intun = TBintun.Value
perun = TBperun.Value
ligne = Sheets("Feuil1").Range("D65536").End(xlUp).Row + 1
Worksheets(1).Activate
Cells(ligne, 1).Value = sjour
Cells(ligne, 2).Value = qu
Cells(ligne, 4).Value = nom
Cells(ligne, 5).Value = adress
Cells(ligne, 6).Value = cour
Cells(ligne, 7).Value = net
Cells(ligne, 8).Value = pt
Cells(ligne, 9).Value = lp
Cells(ligne, 10).Value = un
Cells(ligne, 11).Value = ept
Cells(ligne, 12).Value = spt
Cells(ligne, 13).Value = laforetpt
Cells(ligne, 14).Value = artlp
Cells(ligne, 15).Value = laforetlp
Cells(ligne, 16).Value = capeblp
Cells(ligne, 17).Value = intun
Cells(ligne, 18).Value = perun
ligne = ligne + 1
Exit Sub
Err:
MsgBox "Erreur"
End Sub
Private Sub Quit2_Click()
Unload tpo
End Sub
So,
1/ Est-il possible de saisir dans une textbox une value automatic, à savoir la date du jour (d'après winxp?)?
2/ Avec ce code, après chaque validation les valeurs saisies sont alors rentrées dans leurs cels respectives sous excel. Pb, elles restent apparentes sur la fiche. Est-il possible de vider les textbox entre deux validations?
3/ Il y a une petite err dans le code que je n'arrive à résoudre. Imaginons que la saisie commence ligne 7, après avoir cliquer sur valider une premiere fois les valeurs sont inscrites ligne 7, une seconde fois elles le sont tjs ligne 7, or elles devraient l'être ligne 8
Plz help
Bonne journée à tous!