Discussion :

[zen586]

Bonjour à tous,

Je souhaite que Excel affiche deux dates et calcule la durée en heure qui les sépare. Pour cela j'ai créé un Userform avec deux TextBox, une pour entrer la date de début et l'autre pour la date de fin.
Avant même d'essayer de calculer la différence, il y a un problème avec le format d'affichage des dates sur la feuille excel. En entrant les dates au format jj/mm/aaaa, parfois excel les convertit au format mm/jj/aaaa. J'ai essayé de résoudre ce soucis en imposant le format jj/mm/aaaa dans les cellules de la feuille mais cela ne fonctionne pas.

Voici un exemple :




J’espère que vous pourrez m'aider, merci !

[unparia]

Bonjour
On doit deviner le code de ton instruction ?
A tout hasard, donc -->> une textbox contient du texte (type string) et non date.
Intéresse-toi à la fonction de conversion Cdate (ton aide VBA)

[zen586]

La fonction de conversion CDate a réglé mon problème, merci pour ton aide.

Voici mon code, il pourrait servir à d'autres :



Bonne journée

[Philippe Tulliez]

bonjour,
Ou tout simplement

Code :

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

1
2
3
4
5
6
Private Sub CommandButton1_Click()
  With ThisWorkbook.Worksheets("Feuil1")
  .Range("A2").Value = CDate(Me.TextBox1.Value)
  .Range("B2").Value = CDate(Me.TextBox2.Value)
  End With
End Sub

[patricktoulon]

re
Bonjour
Attention a la saisie elle n'est pas contrôlée !!!!
exemple
MsgBox CDate("blablabla")

et un contrôle avec IsDate ne sera pas suffisant !!!!

un control isdate + control du string de datevalue( le textbox) sera efficace
format magique date appliqué dans les cellules ponctuellement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButton1_Click()
    Dim d1, d2, dglobal
    dglobal = IsDate(T1.Value) And IsDate(T2.Value)
     If dglobal Then dglobal = dglobal And T1.Value = CStr(DateValue(T1.Value)) And T2.Value = CStr(DateValue(T2.Value))
      If dglobal Then
        With ThisWorkbook.Worksheets("Feuil1")
           .Range("A2").NumberFormat = "m/d/yyyy": .Range("A2").Value = CDate(T1.Value) ' application du format magic date
            .Range("B2").NumberFormat = "m/d/yyyy": .Range("B2").Value = CDate(T2.Value) ' application du format magic date
        End With
    Else
        MsgBox "date ou format non valide!!!!" & vbCrLf & " Vérifiez votre saisie" & vbCrLf & " Format attendu:""DD/MM/YYYY"""
    End If
End Sub