Discussion :

[AMO05]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Solutions ?

[casefayere]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[ucfoutu]

Bonjour,

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

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

re ucfoutu,

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

bonne journée

[AMO05]

pour l'aide.
voilà mn progrm corrigé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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