Discussion :

[Invité]

Bonjour,

J'ai un soucis sur Excel.
Je récupère dans un InputBox une date et je copie cette valeur dans une cellule car elle me permet de faire une rechercheV dans une liste.

Malheureusement cette Date n'est pas convertie en version Local.
Exemple : Si je met 02/09/19 (2 Septembre), cette date est retranscrit dans Excel comme cela : 09/02/19 (9 février)

Pouvez vous m'aider SVP ?

Code :

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

1
2
3
4
Public dateReleve As String
dateReleve = Format(Now, "dd\/MM\/yyyy")
 
dateReleve = InputBox("Quelle la date du relevé ?", "Date", dateReleve)

Code :

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

1
2
3
4
Dim valeurDateReleveAReporter As String
valeurDateReleveAReporter = dateReleve
Worksheets("Relevés").Range("A3").NumberFormat = "m/d/yyyy"
Worksheets("Relevés").Range("A3").Value = valeurDateReleveAReporter

[MarcelG]

Bonjour,

Problème - classique- de formatage Français\Américain

Une bonne déclaration de variable prend ici son importance.

Code :

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

1
2
3
4
5
6
7
Option Explicit
 
Sub essai_date()
Dim ladate As Date
ladate = InputBox(Prompt:="Entrer la date")
Range("A1").Value = ladate
End Sub

Testé sur Excel 2016

[MarcelG]

J'ai oublié. Bonjour au Forum.

A noter que l'entrée peut ici s'effectuer comme lors de la saisie d'une date dans une cellule.
A savoir, les 2 séparateurs servent de délimiteurs et la saisie des 0 comme le siècle ne sont pas obligatoires.

Ainsi, pour le 1er mars 2019.
La saisie de l'Inpubtox peut s'effectuer "1/3/19"

[Invité]

ça fonctionne. merci beaucoup