If MaVar1 <> "" And MaVar2 <> "" Then
If MaVar1 < MaVar2 Then
MsgBox "Vous devez respecter l'ordre des dates !", _
vbExclamation, " Intervalle début et fin !"
Exit Sub
End If
End If
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
Hervé
Salut Michel, Teste ceci ? :
Private Sub CommandButton1_Click() Dim MaVar1 As Date Dim MaVar2 As Date If TextBox1.Text <> "" And TextBox2.Text <> "" Then If IsDate(TextBox1.Text) Then MaVar1 = CDate(TextBox1.Value) Else MsgBox "Date non valide dans TextBox1 !" Exit Sub End If If IsDate(TextBox2.Text) Then MaVar2 = CDate(TextBox2.Value) Else MsgBox "Date non valide dans TextBox2 !" Exit Sub End If
If MaVar1 < MaVar2 Then MsgBox "Vous devez respecter l'ordre des dates !", _ vbExclamation, " Intervalle début et fin !" Exit Sub End If End If
End Sub
Hervé.
"Michel" a écrit dans le message news:
Bonsoir j'essaie de faire fonctionner cela mais cela ne fonctionne pas Merci beaucoup Michel
If MaVar1 <> "" And MaVar2 <> "" Then If MaVar1 < MaVar2 Then MsgBox "Vous devez respecter l'ordre des dates !", _ vbExclamation, " Intervalle début et fin !" Exit Sub End If End If
Salut Michel,
Teste ceci ? :
Private Sub CommandButton1_Click()
Dim MaVar1 As Date
Dim MaVar2 As Date
If TextBox1.Text <> "" And TextBox2.Text <> "" Then
If IsDate(TextBox1.Text) Then
MaVar1 = CDate(TextBox1.Value)
Else
MsgBox "Date non valide dans TextBox1 !"
Exit Sub
End If
If IsDate(TextBox2.Text) Then
MaVar2 = CDate(TextBox2.Value)
Else
MsgBox "Date non valide dans TextBox2 !"
Exit Sub
End If
If MaVar1 < MaVar2 Then
MsgBox "Vous devez respecter l'ordre des dates !", _
vbExclamation, " Intervalle début et fin !"
Exit Sub
End If
End If
End Sub
Hervé.
"Michel" <m.hirt@club-internet.fr> a écrit dans le message news:
eNqmHb4aFHA.3488@tk2msftngp13.phx.gbl...
Bonsoir
j'essaie de faire fonctionner cela
mais cela ne fonctionne pas
Merci beaucoup
Michel
If MaVar1 <> "" And MaVar2 <> "" Then
If MaVar1 < MaVar2 Then
MsgBox "Vous devez respecter l'ordre des dates !", _
vbExclamation, " Intervalle début et fin !"
Exit Sub
End If
End If
Private Sub CommandButton1_Click() Dim MaVar1 As Date Dim MaVar2 As Date If TextBox1.Text <> "" And TextBox2.Text <> "" Then If IsDate(TextBox1.Text) Then MaVar1 = CDate(TextBox1.Value) Else MsgBox "Date non valide dans TextBox1 !" Exit Sub End If If IsDate(TextBox2.Text) Then MaVar2 = CDate(TextBox2.Value) Else MsgBox "Date non valide dans TextBox2 !" Exit Sub End If
If MaVar1 < MaVar2 Then MsgBox "Vous devez respecter l'ordre des dates !", _ vbExclamation, " Intervalle début et fin !" Exit Sub End If End If
End Sub
Hervé.
"Michel" a écrit dans le message news:
Bonsoir j'essaie de faire fonctionner cela mais cela ne fonctionne pas Merci beaucoup Michel
If MaVar1 <> "" And MaVar2 <> "" Then If MaVar1 < MaVar2 Then MsgBox "Vous devez respecter l'ordre des dates !", _ vbExclamation, " Intervalle début et fin !" Exit Sub End If End If
Michel
Merci beaucoup Hervé, c'est vraiment très sympa de ta part C'est parfait Michel
"Hervé" a écrit dans le message de news: eqh2$
Salut Michel, Teste ceci ? :
Private Sub CommandButton1_Click() Dim MaVar1 As Date Dim MaVar2 As Date If TextBox1.Text <> "" And TextBox2.Text <> "" Then If IsDate(TextBox1.Text) Then MaVar1 = CDate(TextBox1.Value) Else MsgBox "Date non valide dans TextBox1 !" Exit Sub End If If IsDate(TextBox2.Text) Then MaVar2 = CDate(TextBox2.Value) Else MsgBox "Date non valide dans TextBox2 !" Exit Sub End If
If MaVar1 < MaVar2 Then MsgBox "Vous devez respecter l'ordre des dates !", _ vbExclamation, " Intervalle début et fin !" Exit Sub End If End If
End Sub
Hervé.
"Michel" a écrit dans le message news:
Bonsoir j'essaie de faire fonctionner cela mais cela ne fonctionne pas Merci beaucoup Michel
If MaVar1 <> "" And MaVar2 <> "" Then If MaVar1 < MaVar2 Then MsgBox "Vous devez respecter l'ordre des dates !", _ vbExclamation, " Intervalle début et fin !" Exit Sub End If End If
Merci beaucoup Hervé, c'est vraiment très sympa de ta part
C'est parfait
Michel
"Hervé" <hmsilve@wanadoo.fr> a écrit dans le message de news:
eqh2$F5aFHA.2180@TK2MSFTNGP12.phx.gbl...
Salut Michel,
Teste ceci ? :
Private Sub CommandButton1_Click()
Dim MaVar1 As Date
Dim MaVar2 As Date
If TextBox1.Text <> "" And TextBox2.Text <> "" Then
If IsDate(TextBox1.Text) Then
MaVar1 = CDate(TextBox1.Value)
Else
MsgBox "Date non valide dans TextBox1 !"
Exit Sub
End If
If IsDate(TextBox2.Text) Then
MaVar2 = CDate(TextBox2.Value)
Else
MsgBox "Date non valide dans TextBox2 !"
Exit Sub
End If
If MaVar1 < MaVar2 Then
MsgBox "Vous devez respecter l'ordre des dates !", _
vbExclamation, " Intervalle début et fin !"
Exit Sub
End If
End If
End Sub
Hervé.
"Michel" <m.hirt@club-internet.fr> a écrit dans le message news:
eNqmHb4aFHA.3488@tk2msftngp13.phx.gbl...
Bonsoir
j'essaie de faire fonctionner cela
mais cela ne fonctionne pas
Merci beaucoup
Michel
If MaVar1 <> "" And MaVar2 <> "" Then
If MaVar1 < MaVar2 Then
MsgBox "Vous devez respecter l'ordre des dates !", _
vbExclamation, " Intervalle début et fin !"
Exit Sub
End If
End If
Merci beaucoup Hervé, c'est vraiment très sympa de ta part C'est parfait Michel
"Hervé" a écrit dans le message de news: eqh2$
Salut Michel, Teste ceci ? :
Private Sub CommandButton1_Click() Dim MaVar1 As Date Dim MaVar2 As Date If TextBox1.Text <> "" And TextBox2.Text <> "" Then If IsDate(TextBox1.Text) Then MaVar1 = CDate(TextBox1.Value) Else MsgBox "Date non valide dans TextBox1 !" Exit Sub End If If IsDate(TextBox2.Text) Then MaVar2 = CDate(TextBox2.Value) Else MsgBox "Date non valide dans TextBox2 !" Exit Sub End If
If MaVar1 < MaVar2 Then MsgBox "Vous devez respecter l'ordre des dates !", _ vbExclamation, " Intervalle début et fin !" Exit Sub End If End If
End Sub
Hervé.
"Michel" a écrit dans le message news:
Bonsoir j'essaie de faire fonctionner cela mais cela ne fonctionne pas Merci beaucoup Michel
If MaVar1 <> "" And MaVar2 <> "" Then If MaVar1 < MaVar2 Then MsgBox "Vous devez respecter l'ordre des dates !", _ vbExclamation, " Intervalle début et fin !" Exit Sub End If End If
