Date du jour dans USF

Bonsoir le Forum

Encore néophite en VBA, je souhaiterai avoir un petit coup de pouce sur un code VBA.

Sur l'USF , je souhaiterai que la date du jour soit affiché dans le textbox à chaque enregistrement et je n'arrive pas à trouver le code .La date s'affiche à l'ouverture de l'USF, je saisie ma première saisie, je valide et je suis obligé de fermer et réouvrir l'USF pour afficher la date du jour dans le Textbox. Comment faire pour la date reste affiché pour la seconde saisie?

En vous remerciant pour votre aide

Cordialement

Capjak

Le problème vient de cette macro:

Private Sub SpinButton1_Change()
Dim x As Long
If SpinButton1 = dL + 1 Then
    Message = "Nouvel Enregistrement"
    DateJour = 1
Else
    Message = "Enregistrement N° " & SpinButton1 - 5
End If
x = SpinButton1.Value

With Sheets("Feuil3")
    EntréeSortie = .Cells(x, 1)
   DateJour = .Cells(x, 2)
    DésignationArticle = .Cells(x, 3)
    If .Cells(x, 4) <> "" Then Quantité = Abs(.Cells(x, 4)) Else Quantité = ""

End With
End Sub

tu testes si c'est un nouvel enregistrement mais ensuite tu lui donne la valeur de

.Cells(x, 2)

tu devrais plutot faire

Private Sub B_Effacer_Click()
    NouvelleFiche
End Sub

Private Sub NouvelleFiche()
    DateJour.Value = Date
    DésignationArticle.Value = ""
    Quantité.Value = ""
    EntréeSortie.Value = ""
End Sub

Private Sub SpinButton1_Change()

Dim x As Long
If SpinButton1 = dL + 1 Then
    Message = "Nouvel Enregistrement"
    NouvelleFiche
Else
    Message = "Enregistrement N° " & SpinButton1 - 5
    x = SpinButton1.Value

    With Sheets("Feuil3")
        EntréeSortie = .Cells(x, 1)
        DateJour = .Cells(x, 2)
        DésignationArticle = .Cells(x, 3)
        If .Cells(x, 4) <> "" Then Quantité = Abs(.Cells(x, 4)) Else Quantité = ""
    End With
End If

Quand c'est un nouvel enregistrement, la procedure efface fiche "Clean" la fiche et affiche la date du jour, sinon on affiche les valeurs de la feuille 3

Bonsoir math

Merci pour ta réponse

J'ai essayé ton code et j'ai toujours le même problème. Une fois valider , la date n'apparait plus le Textbox prévu à cette effet. Suis obligé de fermer l'USF et le réouvrir

Merci

Capjack

Voici le fichier où j'ai testé le code, ça me semble fonctionner

Bsr math

Effectivement ça marche, c'est moi qui a fait une petite erreur en mettant les codes

Mais à l'effacement des enregistrement,j'ai remarqué qu' il y a tjrs la date dans la base de donnée

Cela, je pense , qu'il est impossible de l'effacer du moment, que jois valider l'action d'effacer et en même temps ça me r'ajoute de nouveau la date. donc je deduis que si je veux effacer tout, il faut que je saissie la date manuellement.

Merci pour ton aide

Capjack

Essaie de cette façon

Private Sub NouvelleFiche()
    DateJour.Value = ""
    DésignationArticle.Value = ""
    Quantité.Value = ""
    EntréeSortie.Value = ""
End Sub

Private Sub SpinButton1_Change()

Dim x As Long
If SpinButton1 = dL + 1 Then
    Message = "Nouvel Enregistrement"
    NouvelleFiche
    DateJour.Value = Date
Else
    Message = "Enregistrement N° " & SpinButton1 - 5
    x = SpinButton1.Value

    With Sheets("Feuil3")
        EntréeSortie = .Cells(x, 1)
        DateJour = .Cells(x, 2)
        DésignationArticle = .Cells(x, 3)
        If .Cells(x, 4) <> "" Then Quantité = Abs(.Cells(x, 4)) Else Quantité = ""
    End With
End If

Bonsoir Math et le Forum

Je te remercie pour ton aide , mais tjrs idem:Tout s'efface sauf la date

Cordialement

Capjack

Private Sub B_Effacer_Click()
    NouvelleFiche
End Sub

Private Sub NouvelleFiche()
    DateJour.Value = ""
    DésignationArticle.Value = ""
    Quantité.Value = ""
    EntréeSortie.Value = ""
End Sub

Au lieu d'avoir un bouton qui efface les infos de la fiche et ensuite devoir cliquer sur valider, tu devrais te faire un bouton "Effacer la fiche" qui fait tout dans la même opération.