macro boite de dialogue date

sephaniy · 27 Octobre 2008

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 · 27 Octobre 2008

Re : macro boite de dialogue date

Bonjour

essaies

Range("AB1") = CDate(d1)

pierrejean · 27 Octobre 2008

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)

Code:

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 · 30 Octobre 2008

Re : macro boite de dialogue date

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

macro boite de dialogue date

sephaniy

XLDnaute Nouveau

PascalXLD

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

sephaniy

XLDnaute Nouveau

Discussions similaires

macro boite de dialogue date

sephaniy

XLDnaute Nouveau

PascalXLD

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

sephaniy

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency