vba - condition sur une date avec msgbox Résolu

Question

Bonjour, 

Pouvez-vous me dire ce qui cloche dans ce morceau de code svp ? (débutante)

Option Explicit 
Dim ma_date As Date


Private Sub TextBox8_AfterUpdate()
  If ma_date(TextBox8) > ma_date(TextBox9) Then
  Me.TextBox8 = "": TextBox8.SetFocus
  MsgBox "La date A ne peut pas être postérieure à la date B", 50, "Date erronée"
End If
End Sub 

Merci par avance pour votre aide


Configuration: Windows / Chrome 62.0.3202.94

f894009 · Answer

Bonjour,

Private Sub TextBox8_AfterUpdate()
    If TextBox8 > TextBox9 Then
        Me.TextBox8 = "": TextBox8.SetFocus
        MsgBox "La date A ne peut pas être postérieure à la date B", 50, "Date erronée"
    End If
End Sub

Vba - condition sur une date avec msgbox

1 réponse

Discussions similaires

Newsletters