macro boite de dialogue date

[sephaniy]

bonjour,

j'ai un petit problème. j'ai créé une boite de dialogue sur le vba en utilisant inputbox. Mais ça ne marche pas.

La boite de dialoque s'affiche bien, mais quand j'écris ma date (qui est renvoyé dans la cellule AB1), elle bloque ma recherchev (qui fait sa recherche à partir de la date inscrite) qui affiche #N/A.

Voici ma formule sous vba :
'Message date
d1 = InputBox("S.V.P. Entrez la date de flashage", "Saisie date de 19h à 23h59")
Range("AB1") = d1
'Fin du message

Merci

 

[PascalXLD]

Re : macro boite de dialogue date

Bonjour

essaies

Range("AB1") = CDate(d1)

 

[pierrejean]

Re : macro boite de dialogue date

bonjour sephaniy

Salut Pascal

un peu en retard mais peut-etre un peu plus complet (entrée sous forme 21h45)

Sub test()
d1 = InputBox("S.V.P. Entrez la date de flashage", "Saisie date de 19h00 à 23h59")
x = Split(d1, "h")
If UBound(x) <> 1 Then
  MsgBox ("Une heure S.V.P")
  Exit Sub
Else
  If x(0) >= 19 And x(0) <= 24 Then
   Range("A1") = x(0) / 24 + x(1) / 1440
   Range("A1").NumberFormat = "h:mm"
  Else
    MsgBox ("Entre 19h00 et 23h59 S.V.P")
  End If
End If
End Sub

 

[sephaniy]

Re : macro boite de dialogue date

Merci pascal, la formule toute simple m'a permis de résoudre mon problème