probleme de date?

bonjour a tous

j'ai ce fichier Pièce jointe 180427 pour remplir et modifier la fiche
mais depuis ce matin je rencontre le problème quand j'ajoute ou modifie la date le format change du 08/06/15 je passe au 06/08/15 sur ma feuille .


j'ai regarder le code VB et le format des cellules mais je ne trouve pas

Merci de votre aide.

Range("A1")=format(date,"yyyy-mm-dd")

ça j'ai déjà essayer
et en fait j'ai trouver pour le bouton valider

Code:

---

1 2 3 4

.Cells(Lig, 3).Value = TextBox1 .Cells(Lig, 4).Value = CDate(TextBox2) .Cells(Lig, 5).Value = TextBox3 .Cells(Lig, 3).Resize(, 3).HorizontalAlignment = xlRight

---

Mais cela ne fonctionne pas pour le bouton modifier


merci quand même:P

Je n'ai jamais parlé de cdate!

Bonjour.

Assure-toi aussi d'avoir un format de date uniforme:

Code:

---

Cells(Lig, I + 2).NumberFormat="dd/mm/yy;@"

---

Citation:

---

Envoyé par rdurupt

Je n'ai jamais parlé de cdate!

---

re rdurupt

toi non mais je ne suis pas rester a rien faire et j'ai trouver cette solution pour le bouton valider
mais la je bloque sur le modifier .

bonjour Docmarti

cela ne fonctionne pas car il ne faut que la textbox2 au format date et la c'est la 1 ET 2
mais merci tout de même

Ca fonctionne si tu mets le format de date seulement pour textBox2 :

Code:

---

1 2 3 4 5 6 7 8 9

Lig = Rang.Row For I = 1 To NbrDeTextBox If I = 2 Then Cells(Lig, I + 2).NumberFormat = "dd/mm/yy;@" Cells(Lig, I + 2).Value = Format(Controls("Textbox" & I).Value, "yyyy-mm-dd") Else Cells(Lig, I + 2).Value = Controls("Textbox" & I).Value End If Next I

---

SUPER
merci BEAUCOUP Docmarti:D