Fenêtre InputBox et format de date

Bonjour,
Je vous soumets 2 problèmes que je rencontre avec l'instruction Application.InputBox

Code:

---

Nouvel_Index = Application.InputBox("Ancien index : " & Ancien_Index & vbCrLf & "Nouvel index ? ", Nouvelle_Date)

---

Je travaille sur un tableau contenant des relevés d'index à diverses dates.

Ma première question concerne le titre de la fenêtre qui correspond à ma variable Nouvelle_Date. Il s'affiche sous le format anglo-saxon mm/jj/aaaa. Comment faire pour qu'il s'affiche au format français jj/mm/aaaa ?

Ma seconde question concerne le traitement du choix Annuler pour qu'il n'aboutisse pas à un message d'erreur ?

Merci pour votre aide.

Bonjour,

Vouloir tout faire en même temps (sur une seule ligne) est rarement suffisant. Et c'est peu compréhensible et difficilement maintenable.

Pour un emploi plus précis (et plus pédagogique) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Option Explicit Sub Test() Dim invite As String Dim titre As String Dim reponse As Variant 'type important pour pouvoir traiter Annuler Dim ancien_index As Date Dim nouvel_index As Date Dim nouvelle_Date As Date   ancien_index = #2/27/2020# nouvelle_Date = Date invite = "Ancien index : " & Format(ancien_index, "dd/mm/yyyy") & vbCrLf & "Nouvel index ? " titre = Format(nouvelle_Date, "dd/mm/yyyy") reponse = Application.InputBox(invite, titre) If Not reponse = False Then nouvel_index = DateSerial(Split(reponse, "/")(2), Split(reponse, "/")(1), Split(reponse, "/")(0)) MsgBox "Nouvel index : " & Format(nouvel_index, "ddd dd mmm yyyy"), vbInformation Else MsgBox "Saisie annulée", vbCritical End If   End Sub

---

C'est en supposant que c'est bien une date qui est saisie, pour que ça plante pas dans le cas contraire, il faut bien évidemment y ajouter un contrôle de la valeur saisie.

Voir : Gérer les Dates sous Excel et en VBA et Les fonctions de Date/Heure VBA

Bonjour Patrice740,

Citation:

---

Vouloir tout faire en même temps (sur une seule ligne) est rarement suffisant. Et c'est peu compréhensible et difficilement maintenable.

---

C'est ce que je préconise aussi mais ne le fais pas toujours. La preuve . . .

Donc pour mon titre il faut que je passe par :

Code:

---

titre = Format(nouvelle_Date, "dd/mm/yyyy")

---

Et pour la réponse je passe par le test Reponse= False si on annule.

Merci pour tes indications.