Re : textbox en format date
Ok, Je vais essayer la solution de job75...
et pour répondre à pascal, le BL c'est une variable pour choisir la ligne en fonction d'un numero de dossier
(Dim BL As Integer
Dim Lg As Integer
Lg = Sheets("Recherche").Range("c1").Value
BL = Lg - 999)
Merci à tous (et spécialement à vous 2 ;-)), je vous tiens au courant si cela marche dans le courant de la journée
(décidément pascal, tu es sur tout les sujets ^^)
---------------------
EDIT :
Voilà, ça fonctionne correctement maintenant,
par contre impossible de supprimer la date que j'ai insérée...
il faudrait peut etre rajouté un "else" en cas de textbox vide ???
j'essaye ça :
Else: Sheets("Dates").Cells(BL, "C") = UserForm2.TextBox37.Value
--------------
EDIT 2 : VOILA C'EST OK MAINTENANT
apparement sur un with, le else ne marche pas, j'ai donc remis un "if, then, ..." à l'interieur du with...
With UserForm2.TextBox37
If IsDate(.Value) Then Sheets("Dates").Cells(BL, "C") = CDate(.Value)
If UserForm2.TextBox37.Value = "" Then
Sheets("Dates").Cells(BL, "C") = UserForm2.TextBox37.Value
End If
End With
MERCI A TOUS, J'ai appris énormément et j'en apprend plus chaque jour où je passe sur ce forum...
Merci le forum, merci les posteurs, merci les vba-addict ^^