probléme de date ????

[reinruof77]

bonjour a tous

j'ai ce fichier 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.

 

[Pierrot93]

Re : probléme de date ????

Re,

en lieu et place de ceci :

For I = 1 To NbrDeTextBox
 Cells(Lig, I + 2) = Controls("Textbox" & I).Value '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''
 Next I '+2 données col(C)

 

[reinruof77]

Re : probléme de date ????

Merci beaucoup je vais essayer

 

[reinruof77]

Re : probléme de date ????

et bien ça ne passe pas

j'ai ce message d'erreur

 

[Pierrot93]

Re : probléme de date ????

Bonjour,

il manque le bloc "with" dans le code :

With Sheets("NomFeuille")
.Cells(Lig, 3).Value = TextBox1 
   .Cells(Lig, 4).Value = CDate(TextBox2) 
   .Cells(Lig, 5).Value = TextBox3 
   .Cells(Lig, 3).Resize(, 3).HorizontalAlignment = xlRight
End With

bonne journée
@+

 

[reinruof77]

Re : probléme de date ????

Merci Pierrot93

C'est ce que j'ai essayer et cela fonctionne.

Merci encore de ton aide