Incrémenter données scannées VIA Userform

Bonsoir,

Je souhaite pouvoir incrémenter des données dans une base via un USERFORM,

J'ai identifié les colonnes et le USERFORM mais j'ai besoin d'aide pour mettre en place le code.

Je souhaite que le champs date soit un champs automatique au format JJ/MM/AAAA qui correspond au jour où la donnée est incrémentée

Ci-joint le Fichier

Merci pour votre aide.

Youyou

Bonsoir Youyou1, le forum,

Un début de réponse.....

Cordialement,

Bonjour

je préfère comme ca HI

A+

Maurice

Private Sub UserForm_Initialize()
    TxtDate = DateValue(Now)
End Sub

Private Sub CommandButton1_Click()
Dim Dl As Long
    Dl = Range("A" & Rows.Count).End(xlUp).Row + 1
  With Sheets("Tabelle1")
   .Range("A" & Dl) = CDate(TxtDate)
   .Range("B" & Dl) = TxtCode
   .Range("C" & Dl) = TxtSerie
   .Range("D" & Dl) = TxtQuantite ' A revoir 
   .Range("E" & Dl) = TxtCasier
  End With
 Unload Me
End Sub

Re,

Salut archer,

je préfère comme ca HI

C'est vrai que je préfère aussi.... .....merci pour la correction,

Amitiés,