forcer le format dans un message box

[reinruof77]

Bonjour a tous et toute.

voila j'ai un message qui s'ouvre pour entrer une date de fin mais je voudrais si c'est possible forcer le format en jj/mm/aaaa .
voici le code que j'ai:


Private Sub CommandButton2_Click()
Dim g, c, x
g = InputBox("Entrer le N° saisine")
If g = "" Then Exit Sub
For Each c In Range("A3:A65000")
If c.Value = g Then
MsgBox "valeur trouver en cellule " & c.Address
c.Offset(0, 10).Value = Format(InputBox("Entrer la date de Cloture"), "MM/DD/YYYY")
x = 1
Exit For
End If
Next c
If x = 0 Then MsgBox "aucune valeur trouvée)"
End Sub

Merci d'avance pour toute l'aide que vous pourrez m'apporter sur ce problème .

 

[Matheop]

Re : forcer le format dans un message box

Salut reinruof77.

Je te propose ceci qui bloque sur ton InputBox tant que la valeur entrée n'est pas une date. Suffit d'y insérer dans ton code précédent là où tu souhaites.

Private Sub anotherTest()

Dim dateCloture As String

Do While IsDate(dateCloture) = False
  dateCloture = Application.InputBox("Entrez la date de cloture")
Loop

End Sub

 

[reinruof77]

Re : forcer le format dans un message box

merci MatiChoux

J'essai et te tient au courant.

 

[reinruof77]

Re : forcer le format dans un message box

désoler cela ne fontionne pas ou alors je rentre mal le code?
une autre idée peut être?

 

[Matheop]

Re : forcer le format dans un message box

Private Sub test()

Dim g, c, x
Dim dateCloture As String

g = InputBox("Entrer le N° saisine")

If g = "" Then Exit Sub

For Each c In Range("A3:A65000")
  If c.Value = g Then
    MsgBox "valeur trouver en cellule " & c.Address
    Do While IsDate(dateCloture) = False
     dateCloture = Application.InputBox("Entrez la date de cloture")
     If IsDate(dateCloture) Then Exit Do
    Loop
    c.Offset(0, 10).Value = dateCloture
    x = 1
    Exit For
  End If
Next c

If x = 0 Then MsgBox "aucune valeur trouvée)"

End Sub

En théorie cela devrait marcher (en tout ça fonctionne sur ma machine). Tant que c'est pas une date, on boucle sur l'InputBox -> si c'en est une alors on quitte la boucle "Faire Tant Que" et on insère la valeur de la variable dans ta cellule décalée.

 

[reinruof77]

Re : forcer le format dans un message box

Super ça marche

Un gros merci a toi.