recupérer une date d'inputbox

Bonjour,

Pour commencer, j'ai vu de nombreux posts mais aucun ne semble répondre à ma demande. Il faut savoir que je suis novice en vba. Ainsi, voila mon problème:

J'ai une table relance qui a les critères suivants: date de relance, effectuée (champs oui/non) et sans suite. je voudrai que lorsque je coche sur effectuée, on m'oblige à rentrer une nouvelle date de relance (jusque là j'y suis arrivé). le problème vient ensuite. Je ne sais pas quel code utilisé pour récupérer la date rentrée dans l'inputbox afin de la mettre dans date de relance. Auriez vous des idées?

Je m'excuse par avance s'il y a un autre post sur le même sujet mais après quelques heures de recherches je n'ai toujours pas trouvé.

cordialement

Bonjour,

En utilisant F1 sur InputBox, tu as

Citation:

---

Affiche une invite dans une boîte de dialogue, attend que l'utilisateur tape du texte ou clique sur un bouton, puis renvoie le contenu de la zone de texte sous la forme d'une valeur de type String.

---

Il te faut :
1 - Déclarer un variable pour récupérer la valeur de ton InputBox.
2 - Après tu assignes cette valeur à ta date de relance :

Pseudo-code à insérer :

Code:

---

1 2 3 4 5

Dim DateSaisie as String .... DateSaisie = InputBox(.......) me.DateRelance = DateSaisie .....

---

Bonne continuation

Merci beaucoup de cette réponse mais comme je l'ai dit je suis novice et je viens de le tester et ma fonction se met en jaune signe d'une erreur mais je ne vois pas où. Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

Function TestInputBox()   Dim DateSaisie As String Dim y As Date   ' Demander une date DateSaisie = InputBox("Entrer obligatoirement une date", "Important", "00/00/0000")   ' Vérifier que la saisie est bien transformable en date If IsDate(DateSaisie) Then ' Si la saisie est bien une date... y = CDate(DateSaisie) Me.Date_Relance = DateSaisie   Else ' Si la saisie est incorrecte... MsgBox "Vous n'avez pas tapé de date !", vbExclamation DateSaisie = InputBox("Entrer obligatoirement une date", "Important", "00/00/0000") End If   If IsDate(DateSaisie) Then ' Si la saisie est bien une date... y = CDate(DateSaisie)   Else ' Si la saisie est incorrecte... MsgBox "Vous n'avez pas tapé de date !", vbExclamation DateSaisie = InputBox("Entrer obligatoirement une date", "Important", "00/00/0000") End If   If IsDate(DateSaisie) Then ' Si la saisie est bien une date... y = CDate(DateSaisie)   Else ' Si la saisie est incorrecte... MsgBox "Vous n'avez pas tapé de date !", vbExclamation End If     End Function

---

Ai-je fait une erreur quelque part?

:salut:

Je pense que le problème vient du fait que tu as fait une Function et non une Sub

Une Sub est une suite d'instructions placées sur un évènement, qui agissent sur un controle et dans lesquelles peut se trouver une fonction.

Une Function est une suite d'instructions qui retourne une valeur

bonjour,

merci de la réponse bien que je suis toujours dans le brouillard. je ne vois pas où je dois mettre le me.Date_Relance.enable = DateSaisie d'autant plus que je ne sais pas si Date_Relance va suffir car ce champs est dans un sous formulaire du formulaire client. La question que je me pose c'est dois-je mettre tous les paramètres pour qu'il me trouve le champs?

cordialement

Re,

Je t'avoue avoir du mal à comprendre et de ce fait à t'apporter une aide efficace.

Pourrais-tu joindre ta base de données afin de voir concrètement le problème.

voici la base de données

vous pourrez voir que j'ai un formulaire client composé d'un sous formulaire relance basé sur la table t poids

c'est juste une base test donc les noms et la mise en forme ne correspondent pas à ma base réelle. je veux juste comprendre le système pour pouvoir le reproduire sur la vrai base

merci par avance

Re,

Pourquoi ne pas saisir directement la date dans le champ dateRelance ?
Cela serait moins compliquer :aie:

je suis actuellement en stage. les directeurs souhaitent que lorsqu'on coche la case effectuée, on soit obligé de rentrer une nouvelle date dans date relance et tant que celle-ci n'est pas rentré, ils ne peuvent pas faire autre chose. c'est pourquoi j'ai eu l'idée de passer par un inputbox. je ne vois pas d'autres manières de résoudre mon problème. j'espere avoir été assez explicite et claire...

:salut:

Voici ta procédure corrigée.
Tu la placeras sur l'évènement Sur Click de la case à cocher Effectuee

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub Effectuee_Click()   Dim x As String Dim y As Date   ' Demander une date x = InputBox("Entrer obligatoirement une date", "Important", "00/00/0000")   Do ' Vérifier que la saisie est bien transformable en date If IsDate(x) Then ' Si la saisie est bien une date... y = CDate(x)   ' Cette instruction était mal placée ' Mise à jour du Champ Date_Relance Me.Date_Relance = x   Exit Do     Else ' Si la saisie est incorrecte... MsgBox "Vous n'avez pas tapé de date !", vbExclamation x = InputBox("Entrer obligatoirement une date", "Important", "00/00/0000") End If Loop     End Sub

---

Bonne continuation

Merci beaucoup de cette correction:) par contre, je ne sais pas faire avec le sub pour le mettre sur évènement sur clique. en effet, quand c'était avec function, je faisais une macro exécuter code qui reprenait ma fonction. Or, là j'ai essayé de mettre directement le nom du sub sur évènement sur clique et passer sur une macro exécuter code mais rien n'y fait. Je suis vraiment désolé de ne pas savoir faire mais je débute et j'ai beaucoup de mal avec le vba. Merci par avance et merci encore d'avoir pris de votre temps pour m'aider :)

J'ai trouvé comment faire et ça fonctionne :):):):):)

Un grand grand merci à vous et bonne journée