ChexBox et InputBox relation

Bonjour à tous,
J’ai un petit soucis de relation Chexbox et inputbox. Quand CheckBox prend la valeur vrai, j’ai un InputBox qui apparaît afin que j’insère une date. Il n’y a pas de problème quand j’insère une date et que je valide (OK). Par contre quand je veux annuler l’insertion d’une date(annuler) j’ai un bug.

Code:

---

1 2 3 4

Private Sub CheckBox_Click() Date = InputBox("date?", "date") Range("b2").Value = Date End Sub

---

Solutions ?:hola::hola:

Bonjour,

Code:

---

1 2 3 4 5 6 7 8

Private Sub CheckBox_Click() Dt = InputBox("date?", "date",vbokcancel) if dt = 1 then Range("b2").Value = Dt else exit sub end if End Sub

---

mais par contre change le nom de ta variable (nom reservé) prends au hasard elui que je donne

a+

Bonjour,

j'adapte (si peu) une réponse que j'ai donnée il y a très peu de temps ...

Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Command1_Click() MsgBox "voilà le résultat " & verifinputdate() End Sub   Private Function verifinputdate() As String Dim erreur As Boolean erreur = True Do While erreur verifinputdate = InputBox("Veuillez saisir une date au format jj/mm/aaaa") If verifinputdate = "" Then erreur = False: Exit Function erreur = Not (IsDate(verifinputdate) And verifinputdate Like "##/##/####" And Val(Mid(verifinputdate, 4, 2)) <= 12) If erreur Then MsgBox "erreur de saisie" ' ce n'est à mon avis pas nécessaire, mais bon ... Loop End Function

---

re ucfoutu,

eh oui, moi je suis trop basique par contre tu prends des précautions:king:

bonne journée

:merci: pour l'aide.
voilà mn progrm corrigé

Code:

---

1 2 3 4 5 6 7 8

Private Sub CheckBox_Click() Dte = InputBox("date?", "date", vbOKCancel) If Dte = 1 Then Range("b20").Value = Dte Else Exit Sub End If End Sub

---