Gestion des dates en VBA

Bonjour ,

Je viens vers vous , car je n'ai pas trouvé de solution a mon problème et je m'arrache le peu de cheveux qu'il me reste !!

Mon souci viens du format de date en VBA

Si je tape dans mon userform :

20/10/2015 , il me donne bien , le 20 octobre 2015

par contre si je tape :

01/05/2015 , il me donne le 5 janvier 2015

Je vous laisse mon bout de code :

Dim today As Date
Dim Date_sortie As Date
today = Date
Cells(no_ligne, 4) = TextBox3.Value 'Date entrée
Date_sortie = TextBox4.Value
Cells(no_ligne, 6) = Date_sortie - today

Bonsoir Cbirou, bonsoir le forum,

Tu peux rentrer les dates au format français dans les textboxes mais il te faut impérativement les exporter dans les cellules au format américain YYYY/MM/DD. Elles s'écriront alors au format indiqué dans la cellule receptrice...

Le code ci-dessous ne fonctionne qu'avec des dates rentrées au format français JJ/MM/AAAA :

Private Sub CommandButton1_Click()
Dim today As Date
Dim TDE() As String
Dim TDS() As String
Dim DE As Date
Dim DS As Date

today = Date
TDE = Split(TextBox3.Value, "/")
TDS = Split(TextBox4.Value, "/")
DE = TDE(2) & "/" & TDE(1) & "/" & TDE(0)
DS = TDS(2) & "/" & TDS(1) & "/" & TDS(0)
today = Date
Cells(no_ligne, 4) = DE
Cells(no_ligne, 6) = DS - today
End Sub

Re ,

Merci , ca fonctionne

J'ai compris la solution , mais je ne l'aurai jamais trouvé !!

Merci beaucoup !