Re : problème de transfert date en vba
je mets le code de la feuille concernat la date
Private Sub TxtBox4Date_Change()
TxtBox4Date.Value = Format(Date, "dd/mm/yyyy")
et pour le bouton ajouter
Private Sub cmdAjouter_Click()
Dim umLigneVide As Integer
'On active la feuille "Vos commande"
Worksheets("Vos commandes").Activate
'On trouve la dernière ligne vide du tableau et on enregistre le numèro de la ligne dans la variable numLigneVide
numLigneVide = ActiveSheet.Columns(1).Find("").Row
'On vérifie que les champs obligatoires sont correctement remplis
If TxtBox4Date.Text = "" Then
MsgBox "Veuillez Saisir la date", vbCritical, "Champs manquant"
TxtBox4Date.SetFocus
ElseIf TxtBox2CDE.Text = "" Then
MsgBox "Veuillez Saisir le N°CDE ", vbCritical, "Champs manquant"
TxtBox2CDE.SetFocus
ElseIf TxtBox1N°Affaire.Text = "" Then
MsgBox "Veuillez Saisir le N°'affaire", vbCritical, "Champs manquant"
TxtBox1N°Affaire.SetFocus
ElseIf ComboBox3.Text = "" Then
MsgBox "Veuillez Saisir le nom du Client", vbCritical, "Champs manquant"
ComboBox3.SetFocus
ElseIf TxtBox5Chantier.Text = "" Then