Discussion :

[defluc]

Bonjour à tous et meilleurs vœux de développement prolifique en 2014,

J'ai un formulaire comportant plusieurs Textbox contenant les données des cellules d'une ligne. Parmi celles-ci, il y a une date.

Je teste les modifications éventuelles et je passe dans les instruction de test alors que la date n'a pas été modifiée.
En mode pas à pas, je constate que le jour et le mois de la date sont inversés contrairement à l'affichage.
J'ai essayé de tester la valeur de la Textbox avec les fonctions CDate et Format, mais rien n'y fait.

Ce problème est bien connu mais les solutions que j'ai déjà appliquées ne fonctionnent pas avec un formulaire.

Merci d'avance à tout qui aurait une solution.

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1,1)=cdate(me.textbox1)

[defluc]

Désolé, mais comme je l'ai dit dans mon messge, cela ne marche pas.

La solution un peu "tordue" que j'ai trouvée est de désactiver la conversion en date de la cellule préalablement à son affectation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  ActiveSheet.Cells(Rang.Row, InocDateCol).NumberFormat = "@"
  ActiveSheet.Cells(Rang.Row, InocDateCol) = InputDataForm.InocDateTextBox.Text