Problème bouton annulé avec fonction inputbox

Bonjour,

lorsque j'utilise la macro ci-dessous et que je ne mets pas de date et que je clique sur le bouton annulé de l'input box, j'ai un message d'erreur qui me renvoie sur le débogage.

Mon souhait: lorsque l'on clique sur le bouton annulé, que cela fasse apparaitre un msgbox qui me renvoie ensuite au début de la macro.

Sub a()

If MsgBox("Voulez-vous saisir les données du jour?", vbYesNo) = vbNo Then

Dim resultat As Date

resultat = InputBox("Indiquez la date des données à saisir. JJ/MM/AAAA")

MsgBox resultat

Sheets("feuil1").Range("a1") = resultat

End If

Sheets("feuil2").Select

Range("A1").Select

End Sub

Merci de votre aide

Bonjour

A essayer

Sub a()
Dim resultat

  Do While MsgBox("Voulez-vous saisir les données du jour?", vbYesNo) = vbNo
      resultat = InputBox("Indiquez la date des données à saisir. JJ/MM/AAAA")
      MsgBox resultat
      Sheets("feuil1").Range("a1") = resultat
      If IsDate(resultat) Then Exit Do
  Loop
  Sheets("feuil2").Select
  Range("A1").Select
End Sub

Bonjour,

Merci pour la réponse.

La macro fonctionne mais elle me met la date au format anglais.

Elle transforme le mois en jour et vice-versa.

Merci d'avance pour votre aide

En complément d'information:

la macro transforme la date au format anglais uniquement quand les jours sont inférieurs à 13.

Bonjour

Remplaces la macro existante par celle-ci

Sub a()
Dim resultat

  Do While MsgBox("Voulez-vous saisir les données du jour?", vbYesNo) = vbNo
      resultat = InputBox("Indiquez la date des données à saisir. JJ/MM/AAAA")
      MsgBox resultat
      Sheets("feuil1").Range("a1") = CDate(resultat)
      If IsDate(resultat) Then Exit Do
  Loop
  Sheets("feuil2").Select
  Range("A1").Select
End Sub

Bonjour,

la macro fonctionne parfaitement.

merci pour votre aide.

Bonne journée.