MsgBox

Bonjour
Les paraenthese ne sont necessaire que si l'on veut recuperer la
reponse ( OK, oui , non).
Pour ta macro il suffira d'ecrire MsgBox "Erreur dans la date entrée",
(vbOKOnly + vbCritical), "Erreur"
Philippe N
http://nossphil.perso.cegetel.net/exoutils.html

bonjour,

Cancel représente la possibilité de ne pas sortir du textbox qi les
critères déterminés par l'utilisatue ne sont pas remplis.
En l'occurrence, on mettra cancel=true à la fin de la proc evenmentielle
et la sortie du textbox ne se produira pas

A+

bonjour à tous
j ai comme private sub :


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value < 1980 Or TextBox1.Value > 2020 Then
a = MsgBox("Erreur dans la date entrée", (vbOKOnly + vbCritical),
"Erreur")
TextBox1.Value = " "
End If
Sheets("UFD").Range("B3").Value = TextBox1.Value
End Sub

mais la MsgBox ne marche que si je met a= devant pourquoi
derniere question que veur dire exactement (ByVal Cancel As
MSForms.ReturnBoolean)


Merci d avance
A+
Th

bonjour
merci pour vos reponses
une autre question si vous permettez :

voila mes private sub qui sont executer suite à la sortie des textbox 1à 4
tout marche bien pour la 1 2 et 3 mais pour la 4 si je ne reclique pas dans
une des textbox 1 à 4 il n execute pas la private sub
je pense (ca arrive) que a a voir avec la frame car ces 4 textbox sont
compris dans la frame 3
quand je suis dans la textbox 4 et que je clique sur entrer ou TAB je passe
dans une autre frame et la private n est pas executer
que faire
Mais si il faut ca a rien a voir avec la frame ....
A+
Th


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value < 1980 Or TextBox1.Value > 2020 Then
MsgBox "Erreur dans la date entrée", (vbOKOnly + vbCritical), "Erreur"
TextBox1.Value = " "
Cancel = True
GoTo suite
End If
Sheets("UFD").Range("B3").Value = TextBox1.Value
TB7_8
Cancel = False
suite:
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2.Value < 1 Or TextBox2.Value > 31 Then
TextBox2.Value = " "
MsgBox "Erreur dans la date entrée", (vbOKOnly + vbCritical), "Erreur"
Cancel = True
GoTo suite
End If
Sheets("UFD").Range("B4").Value = TextBox2.Value
Label4.Caption = Sheets("UFD").Range("B4").Value
TB7_8
Cancel = False
suite:
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox3.Value < 1 Or TextBox3.Value > 12 Then
TextBox3.Value = " "
MsgBox "Erreur dans la date entrée", (vbOKOnly + vbCritical), "Erreur"
Cancel = True
GoTo suite
End If
Sheets("UFD").Range("B5").Value = TextBox3.Value
Label3.Caption = Sheets("UFD").Range("B5").Value
TB7_8
Cancel = False
suite:
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox4.Value < 1980 Or TextBox4.Value > 2020 Then
MsgBox "Erreur dans la date entrée", (vbOKOnly + vbCritical), "Erreur"
TextBox4.Value = " "
Cancel = True
GoTo suite
End If
Sheets("UFD").Range("B6").Value = TextBox4.Value
TB7_8
Cancel = False
suite:
End Sub
Sub TB7_8()
Dim a, b As Integer
a = Sheets("UFD").Range("B7").Value
b = Sheets("UFD").Range("B8").Value
If a > 800 And a < 3000 Then
Label7.Caption = Sheets("UFD").Range("B7").Value
End If
If b > 800 And b < 3000 Then
Label8.Caption = Sheets("UFD").Range("B8").Value
End If
End Sub


"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
43637a03$0$456$7a628cd7@news.club-internet.fr...

bonjour,

Cancel représente la possibilité de ne pas sortir du textbox qi les
critères déterminés par l'utilisatue ne sont pas remplis.
En l'occurrence, on mettra cancel=true à la fin de la proc evenmentielle
et la sortie du textbox ne se produira pas

A+

bonjour à tous
j ai comme private sub :


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value < 1980 Or TextBox1.Value > 2020 Then
a = MsgBox("Erreur dans la date entrée", (vbOKOnly + vbCritical),
"Erreur")
TextBox1.Value = " "
End If
Sheets("UFD").Range("B3").Value = TextBox1.Value
End Sub

mais la MsgBox ne marche que si je met a= devant pourquoi
derniere question que veur dire exactement (ByVal Cancel As
MSForms.ReturnBoolean)


Merci d avance
A+
Th