salut
voila je serais tres bref, je n'arrive pas a conditionner le format date car par exemple si une erreur de saisie par un utilisateur la date s'affiche toujours dans la cellule exemple le 12/13/2010 dans le textbox va afficher le 13 décembre 2010.
voici le code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub TextBox7_Change() IsDate TextBox7 = Format(TextBox7, "dd/mm/yyyy") Sheets("cdd_sans_periode_essai").Range("h38") = TextBox7.Value Range("h38") = Format(Range("h38"), "dd mmmm yyyy") End Sub
Partager