Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Inputbox américain ?

Inputbox américain ?

8 réponses
Avatar
Alpha
Bonjour, cet inputbox se lance, et je désire avoir la possibilité de
modifier la date dans l'input box, mais à chaque fois c'est le format
américain qui ressort, si je saisi directement dans celui-ci
Comment faire ?
Merci
Alpha

Sub Saisie_Date()
x = InputBox("Si la date vous convient, cliquez sur OK ", _
"Veuillez saisir une date", Format(Now, "dd mmm yy"))
If x = "" Then Exit Sub Else ActiveCell = x
End Sub
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
x = CDate(InputBox("Si la date vous convient, cliquez sur OK ", _
"Veuillez saisir une date", Format(Now, "dd mmm yy")))

AV
Avatar
Alpha
Ok AV, cela fonctionne, le pb est que si je clic sur Annuler, cela fait une
erreur d'exécution 13 ?
Alpha

"AV" a écrit dans le message de
news:%
x = CDate(InputBox("Si la date vous convient, cliquez sur OK ", _
"Veuillez saisir une date", Format(Now, "dd mmm yy")))

AV




Avatar
Daniel.M
Allo Alpha,

Dim x As Variant
x = InputBox("Si la date vous convient, cliquez sur OK ", _
"Veuillez saisir une date", Format(Now, "dd mmm yyyy"))
If x <> "" Then x = CDate(x)

Salutations,

Daniel M.

"Alpha" wrote in message
news:
Ok AV, cela fonctionne, le pb est que si je clic sur Annuler, cela fait une
erreur d'exécution 13 ?
Alpha

"AV" a écrit dans le message de
news:%
x = CDate(InputBox("Si la date vous convient, cliquez sur OK ", _
"Veuillez saisir une date", Format(Now, "dd mmm yy")))

AV








Avatar
Alpha
Désolé Daniel cela ne fonctionne pas
rien ne s'inscrit dans la cellule.
Alpha

"Daniel.M" a écrit dans le message de
news:
Allo Alpha,

Dim x As Variant
x = InputBox("Si la date vous convient, cliquez sur OK ", _
"Veuillez saisir une date", Format(Now, "dd mmm yyyy"))
If x <> "" Then x = CDate(x)

Salutations,

Daniel M.

"Alpha" wrote in message
news:
Ok AV, cela fonctionne, le pb est que si je clic sur Annuler, cela fait
une


erreur d'exécution 13 ?
Alpha

"AV" a écrit dans le message de
news:%
x = CDate(InputBox("Si la date vous convient, cliquez sur OK ", _
"Veuillez saisir une date", Format(Now, "dd mmm yy")))

AV












Avatar
ChrisV
Bonjour Alpha,

Sub Saisie_Date()
Dim x As Variant
x = InputBox("Si la date vous convient, cliquez sur OK ", _
"Veuillez saisir une date", Format(Now, "dd mmm yyyy"))
If x <> "" Then ActiveCell = CDate(x)
End Sub


ChrisV


"Alpha" a écrit dans le message de news:

Désolé Daniel cela ne fonctionne pas
rien ne s'inscrit dans la cellule.
Alpha

"Daniel.M" a écrit dans le message de
news:
Allo Alpha,

Dim x As Variant
x = InputBox("Si la date vous convient, cliquez sur OK ", _
"Veuillez saisir une date", Format(Now, "dd mmm yyyy"))
If x <> "" Then x = CDate(x)

Salutations,

Daniel M.

"Alpha" wrote in message
news:
Ok AV, cela fonctionne, le pb est que si je clic sur Annuler, cela
fait



une
erreur d'exécution 13 ?
Alpha

"AV" a écrit dans le message de
news:%
x = CDate(InputBox("Si la date vous convient, cliquez sur OK ", _
"Veuillez saisir une date", Format(Now, "dd mmm yy")))

AV
















Avatar
AV
Ok AV, cela fonctionne, le pb est que si je clic sur Annuler, cela fait une
erreur d'exécution 13 ?


Une....

Sub Saisie_Date()
On Error Resume Next
If Err.Number = 0 Then ActiveCell = _
CDate(InputBox("Si la date vous convient, cliquez sur OK ", _
"Veuillez saisir une date", Format(Now, "dd mmm yy")))
End Sub

AV

Avatar
Alpha
Ok ChrisV, it's allright
Thanks a lot
Alpha

"ChrisV" a écrit dans le message de
news:
Bonjour Alpha,

Sub Saisie_Date()
Dim x As Variant
x = InputBox("Si la date vous convient, cliquez sur OK ", _
"Veuillez saisir une date", Format(Now, "dd mmm yyyy"))
If x <> "" Then ActiveCell = CDate(x)
End Sub


ChrisV


"Alpha" a écrit dans le message de news:

Désolé Daniel cela ne fonctionne pas
rien ne s'inscrit dans la cellule.
Alpha

"Daniel.M" a écrit dans le message de
news:
Allo Alpha,

Dim x As Variant
x = InputBox("Si la date vous convient, cliquez sur OK ", _
"Veuillez saisir une date", Format(Now, "dd mmm yyyy"))
If x <> "" Then x = CDate(x)

Salutations,

Daniel M.

"Alpha" wrote in message
news:
Ok AV, cela fonctionne, le pb est que si je clic sur Annuler, cela
fait



une
erreur d'exécution 13 ?
Alpha

"AV" a écrit dans le message de
news:%
x = CDate(InputBox("Si la date vous convient, cliquez sur OK ", _
"Veuillez saisir une date", Format(Now, "dd mmm yy")))

AV




















Avatar
Alpha
Ok, merci beaucoup AV
Alpha

"AV" a écrit dans le message de
news:
Ok AV, cela fonctionne, le pb est que si je clic sur Annuler, cela fait
une


erreur d'exécution 13 ?


Une....

Sub Saisie_Date()
On Error Resume Next
If Err.Number = 0 Then ActiveCell = _
CDate(InputBox("Si la date vous convient, cliquez sur OK ", _
"Veuillez saisir une date", Format(Now, "dd mmm yy")))
End Sub

AV