Bonjour anarium, le forum,
Deux choses à tester sur une copie du fichier :
1- Feuille "En service", tableau "T_Bleu", le format de cellule des colonnes E et F n'est pas exactement le même.
Sélectionner la colonne F de "T_Bleu" et changer le format ( voir le format d'une cellule de la colonne E ).
2- Userform2, remplacer le bout de code à la fin de Private Sub CommandButton2_Click()
Sheets("En service").Range("A3").ListObject.ListRows.Add (1) 'ajoute une ligne et fait descendre pour laisser place a la nouvelle dans tableau "en service"
[T_Bleu].Item(1, 1) = Me.TextBox1.Value
[T_Bleu].Item(1, 2) = Me.TextBox2.Value
[T_Bleu].Item(1, 3) = CDate(Me.TextBox3.Value)
[T_Bleu].Item(1, 4) = Me.TextBox2.Value
[T_Bleu].Item(1, 5) = CDate(Me.TextBox3.Value)
[T_Bleu].Item(1, 6) = Me.TextBox4.Value
Unload Me
par celui-ci.
Sheets("En service").Range("A3").ListObject.ListRows.Add (1) 'ajoute une ligne et fait descendre pour laisser place a la nouvelle dans tableau "en service"
[T_Bleu].Item(1, 1) = Me.TextBox1.Value
[T_Bleu].Item(1, 2) = Me.TextBox2.Value
[T_Bleu].Item(1, 3) = CDate(Me.TextBox3.Value)
[T_Bleu].Item(1, 4) = Me.TextBox2.Value
[T_Bleu].Item(1, 5) = CDate(Me.TextBox3.Value)
[T_Bleu].Item(1, 6) = CDate(Me.TextBox4.Value) ' << ligne modifiée
bastr