forcer le format dans un message box

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

reinruof77

XLDnaute Occasionnel
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 .
 
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.

Code:
Private Sub anotherTest()

Dim dateCloture As String

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

End Sub
 
Re : forcer le format dans un message box

Code:
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.
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
303
Réponses
4
Affichages
461
Retour