Userform

JB

16/04/2007 à 13:00

Bonjour,

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Cancel = True
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Cancel = True
End If
End If
End Sub

Cordialement JB

On 16 avr, 12:24, "Pascal" wrote:

Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
If TextBox1 = "" Or CboPays = "" Or CboDem = "" Or CboModes = "" Or TextBox2
= "" Or CboHor = "" Then
MsgBox "Vous avez oublié un champ!"
CommandButton1.Enabled = True
Else
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
ActiveCell.Offset(0, 5).Value = CboHor
TextBox1 = ""
TextBox2 = ""
CboDem = ""
CboModes = ""
CboHor = ""
CboPays = ""
End If
End Sub
J'aimerais empêcher dans le textbox1 la saisie autre qu'une date > /01/07
<1/12/07
et dans le textbox2 empêcher la saisie autre que numérique. Je trouve pas
quelqu'un à la soluce?

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 12:24:43
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

JB

16/04/2007 à 13:18

Vérif numérique:

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789,", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Beep
End If
End Sub

http://boisgontierjacques.free.fr/fichiers/jb-formulaire.zip

JB

On 16 avr, 13:00, "JB" wrote:

Bonjour,

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Cancel = True
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Cancel = True
End If
End If
End Sub

Cordialement JB

On 16 avr, 12:24, "Pascal" wrote:

Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
If TextBox1 = "" Or CboPays = "" Or CboDem = "" Or CboModes = " " Or TextBox2
= "" Or CboHor = "" Then
MsgBox "Vous avez oublié un champ!"
CommandButton1.Enabled = True
Else
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
ActiveCell.Offset(0, 5).Value = CboHor
TextBox1 = ""
TextBox2 = ""
CboDem = ""
CboModes = ""
CboHor = ""
CboPays = ""
End If
End Sub
J'aimerais empêcher dans le textbox1 la saisie autre qu'une date >= 01/01/07
<1/12/07
et dans le textbox2 empêcher la saisie autre que numérique. Je trou ve pas
quelqu'un à la soluce?

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 12:24:43
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- M asquer le texte des messages précédents -

- Afficher le texte des messages précédents -

JB

16/04/2007 à 13:22

Saisie de chiffres avec décimales

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789,", Chr(KeyAscii)) = 0 Then
KeyAscii = 0
Beep
End If
End Sub

http://boisgontierjacques.free.fr/fichiers/jb-formulaire.zip

JB
On 16 avr, 12:24, "Pascal" wrote:

Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
If TextBox1 = "" Or CboPays = "" Or CboDem = "" Or CboModes = "" Or TextBox2
= "" Or CboHor = "" Then
MsgBox "Vous avez oublié un champ!"
CommandButton1.Enabled = True
Else
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
ActiveCell.Offset(0, 5).Value = CboHor
TextBox1 = ""
TextBox2 = ""
CboDem = ""
CboModes = ""
CboHor = ""
CboPays = ""
End If
End Sub
J'aimerais empêcher dans le textbox1 la saisie autre qu'une date > /01/07
<1/12/07
et dans le textbox2 empêcher la saisie autre que numérique. Je trouve pas
quelqu'un à la soluce?

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 12:24:43
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

Pascal

16/04/2007 à 16:58

Merci,
Mais je ne sais pas comment intégrer la partie de ton code au mien?
"JB" a écrit dans le message de news:

Bonjour,

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Cancel = True
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Cancel = True
End If
End If
End Sub

Cordialement JB

On 16 avr, 12:24, "Pascal" wrote:

Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
If TextBox1 = "" Or CboPays = "" Or CboDem = "" Or CboModes = "" Or
TextBox2
= "" Or CboHor = "" Then
MsgBox "Vous avez oublié un champ!"
CommandButton1.Enabled = True
Else
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
ActiveCell.Offset(0, 5).Value = CboHor
TextBox1 = ""
TextBox2 = ""
CboDem = ""
CboModes = ""
CboHor = ""
CboPays = ""
End If
End Sub
J'aimerais empêcher dans le textbox1 la saisie autre qu'une date
/01/07
<1/12/07

et dans le textbox2 empêcher la saisie autre que numérique. Je trouve pas
quelqu'un à la soluce?

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 12:24:43
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:56:56
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:58:29
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

Merci,
Mais je ne sais pas comment intégrer la partie de ton code au mien?
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1176721220.835938.308090@p77g2000hsh.googlegroups.com...
Bonjour,

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Cancel = True
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Cancel = True
End If
End If
End Sub

Cordialement JB

On 16 avr, 12:24, "Pascal" <lapl...@wanadoo.fr> wrote:

Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
If TextBox1 = "" Or CboPays = "" Or CboDem = "" Or CboModes = "" Or
TextBox2
= "" Or CboHor = "" Then
MsgBox "Vous avez oublié un champ!"
CommandButton1.Enabled = True
Else
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
ActiveCell.Offset(0, 5).Value = CboHor
TextBox1 = ""
TextBox2 = ""
CboDem = ""
CboModes = ""
CboHor = ""
CboPays = ""
End If
End Sub
J'aimerais empêcher dans le textbox1 la saisie autre qu'une date

/01/07
<1/12/07

et dans le textbox2 empêcher la saisie autre que numérique. Je trouve pas
quelqu'un à la soluce?

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 12:24:43
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:56:56
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:58:29
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

JB

16/04/2007 à 17:17

-Selectionner TextBox1
-Sélectionner l'événement BeforeUpdate

JB
On 16 avr, 16:58, "Pascal" wrote:

Merci,
Mais je ne sais pas comment intégrer la partie de ton code au mien?
"JB" a écrit dans le message de news:

Bonjour,

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Cancel = True
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Cancel = True
End If
End If
End Sub

Cordialement JB

On 16 avr, 12:24, "Pascal" wrote:

Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
If TextBox1 = "" Or CboPays = "" Or CboDem = "" Or CboModes = " " Or
TextBox2
= "" Or CboHor = "" Then
MsgBox "Vous avez oublié un champ!"
CommandButton1.Enabled = True
Else
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
ActiveCell.Offset(0, 5).Value = CboHor
TextBox1 = ""
TextBox2 = ""
CboDem = ""
CboModes = ""
CboHor = ""
CboPays = ""
End If
End Sub
J'aimerais empêcher dans le textbox1 la saisie autre qu'une date
/01/07
<1/12/07

et dans le textbox2 empêcher la saisie autre que numérique. Je trou ve pas
quelqu'un à la soluce?

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 12:24:43
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:56:56
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:58:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -

- Afficher le texte des messages précédents -

-Selectionner TextBox1
-Sélectionner l'événement BeforeUpdate

JB
On 16 avr, 16:58, "Pascal" <lapl...@wanadoo.fr> wrote:

Merci,
Mais je ne sais pas comment intégrer la partie de ton code au mien?
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1176721220.835938.308...@p77g2000hsh.googlegroups.com...
Bonjour,

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Cancel = True
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Cancel = True
End If
End If
End Sub

Cordialement JB

On 16 avr, 12:24, "Pascal" <lapl...@wanadoo.fr> wrote:

Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
If TextBox1 = "" Or CboPays = "" Or CboDem = "" Or CboModes = " " Or
TextBox2
= "" Or CboHor = "" Then
MsgBox "Vous avez oublié un champ!"
CommandButton1.Enabled = True
Else
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
ActiveCell.Offset(0, 5).Value = CboHor
TextBox1 = ""
TextBox2 = ""
CboDem = ""
CboModes = ""
CboHor = ""
CboPays = ""
End If
End Sub
J'aimerais empêcher dans le textbox1 la saisie autre qu'une date

=01/01/07
<=31/12/07

et dans le textbox2 empêcher la saisie autre que numérique. Je trou ve pas
quelqu'un à la soluce?

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 12:24:43
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:56:56
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:58:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -

- Afficher le texte des messages précédents -

Vous avez filtré cet utilisateur ! Consultez son message

-Selectionner TextBox1
-Sélectionner l'événement BeforeUpdate

JB
On 16 avr, 16:58, "Pascal" wrote:

Merci,
Mais je ne sais pas comment intégrer la partie de ton code au mien?
"JB" a écrit dans le message de news:

Bonjour,

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Cancel = True
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Cancel = True
End If
End If
End Sub

Cordialement JB

On 16 avr, 12:24, "Pascal" wrote:

Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
If TextBox1 = "" Or CboPays = "" Or CboDem = "" Or CboModes = " " Or
TextBox2
= "" Or CboHor = "" Then
MsgBox "Vous avez oublié un champ!"
CommandButton1.Enabled = True
Else
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
ActiveCell.Offset(0, 5).Value = CboHor
TextBox1 = ""
TextBox2 = ""
CboDem = ""
CboModes = ""
CboHor = ""
CboPays = ""
End If
End Sub
J'aimerais empêcher dans le textbox1 la saisie autre qu'une date
/01/07
<1/12/07

et dans le textbox2 empêcher la saisie autre que numérique. Je trou ve pas
quelqu'un à la soluce?

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 12:24:43
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:56:56
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:58:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -

- Afficher le texte des messages précédents -

Pascal

16/04/2007 à 17:28

Merci,
Mais débutant cela devient trop compliqué pour moi, je vais laisser le code
tel quel
Pascal

"JB" a écrit dans le message de news:

-Selectionner TextBox1
-Sélectionner l'événement BeforeUpdate

JB
On 16 avr, 16:58, "Pascal" wrote:

Merci,
Mais je ne sais pas comment intégrer la partie de ton code au mien?
"JB" a écrit dans le message de news:

Bonjour,

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Cancel = True
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Cancel = True
End If
End If
End Sub

Cordialement JB

On 16 avr, 12:24, "Pascal" wrote:

Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
If TextBox1 = "" Or CboPays = "" Or CboDem = "" Or CboModes = "" Or
TextBox2
= "" Or CboHor = "" Then
MsgBox "Vous avez oublié un champ!"
CommandButton1.Enabled = True
Else
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
ActiveCell.Offset(0, 5).Value = CboHor
TextBox1 = ""
TextBox2 = ""
CboDem = ""
CboModes = ""
CboHor = ""
CboPays = ""
End If
End Sub
J'aimerais empêcher dans le textbox1 la saisie autre qu'une date
/01/07
<1/12/07

et dans le textbox2 empêcher la saisie autre que numérique. Je trouve
pas
quelqu'un à la soluce?

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 12:24:43
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:56:56
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:58:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:27:26
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:28:42
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

Merci,
Mais débutant cela devient trop compliqué pour moi, je vais laisser le code
tel quel
Pascal

"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1176736630.912884.19070@y5g2000hsa.googlegroups.com...
-Selectionner TextBox1
-Sélectionner l'événement BeforeUpdate

JB
On 16 avr, 16:58, "Pascal" <lapl...@wanadoo.fr> wrote:

Merci,
Mais je ne sais pas comment intégrer la partie de ton code au mien?
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1176721220.835938.308...@p77g2000hsh.googlegroups.com...
Bonjour,

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Cancel = True
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Cancel = True
End If
End If
End Sub

Cordialement JB

On 16 avr, 12:24, "Pascal" <lapl...@wanadoo.fr> wrote:

Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
If TextBox1 = "" Or CboPays = "" Or CboDem = "" Or CboModes = "" Or
TextBox2
= "" Or CboHor = "" Then
MsgBox "Vous avez oublié un champ!"
CommandButton1.Enabled = True
Else
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
ActiveCell.Offset(0, 5).Value = CboHor
TextBox1 = ""
TextBox2 = ""
CboDem = ""
CboModes = ""
CboHor = ""
CboPays = ""
End If
End Sub
J'aimerais empêcher dans le textbox1 la saisie autre qu'une date

/01/07
<1/12/07

et dans le textbox2 empêcher la saisie autre que numérique. Je trouve
pas
quelqu'un à la soluce?

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 12:24:43
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:56:56
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:58:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:27:26
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:28:42
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

Vous avez filtré cet utilisateur ! Consultez son message

Merci,
Mais débutant cela devient trop compliqué pour moi, je vais laisser le code
tel quel
Pascal

"JB" a écrit dans le message de news:

-Selectionner TextBox1
-Sélectionner l'événement BeforeUpdate

JB
On 16 avr, 16:58, "Pascal" wrote:

Merci,
Mais je ne sais pas comment intégrer la partie de ton code au mien?
"JB" a écrit dans le message de news:

Bonjour,

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Cancel = True
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Cancel = True
End If
End If
End Sub

Cordialement JB

On 16 avr, 12:24, "Pascal" wrote:

Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
If TextBox1 = "" Or CboPays = "" Or CboDem = "" Or CboModes = "" Or
TextBox2
= "" Or CboHor = "" Then
MsgBox "Vous avez oublié un champ!"
CommandButton1.Enabled = True
Else
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
ActiveCell.Offset(0, 5).Value = CboHor
TextBox1 = ""
TextBox2 = ""
CboDem = ""
CboModes = ""
CboHor = ""
CboPays = ""
End If
End Sub
J'aimerais empêcher dans le textbox1 la saisie autre qu'une date
/01/07
<1/12/07

et dans le textbox2 empêcher la saisie autre que numérique. Je trouve
pas
quelqu'un à la soluce?

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 12:24:43
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:56:56
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:58:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:27:26
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:28:42
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

JB

16/04/2007 à 17:36

Placer juste après
Private Sub CommandButton1_Click()

If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Me.TextBox1.SetFocus
Exit Sub
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Me.TextBox1.SetFocus
Exit Sub
End If
End If

JB

On 16 avr, 17:28, "Pascal" wrote:

Merci,
Mais débutant cela devient trop compliqué pour moi, je vais laisser l e code
tel quel
Pascal

"JB" a écrit dans le message de news:

-Selectionner TextBox1
-Sélectionner l'événement BeforeUpdate

JB
On 16 avr, 16:58, "Pascal" wrote:

Merci,
Mais je ne sais pas comment intégrer la partie de ton code au mien?
"JB" a écrit dans le message de news:

Bonjour,

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Cancel = True
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Cancel = True
End If
End If
End Sub

Cordialement JB

On 16 avr, 12:24, "Pascal" wrote:

Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
If TextBox1 = "" Or CboPays = "" Or CboDem = "" Or CboModes = "" Or
TextBox2
= "" Or CboHor = "" Then
MsgBox "Vous avez oublié un champ!"
CommandButton1.Enabled = True
Else
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
ActiveCell.Offset(0, 5).Value = CboHor
TextBox1 = ""
TextBox2 = ""
CboDem = ""
CboModes = ""
CboHor = ""
CboPays = ""
End If
End Sub
J'aimerais empêcher dans le textbox1 la saisie autre qu'une date
/01/07
<1/12/07

et dans le textbox2 empêcher la saisie autre que numérique. Je tr ouve
pas
quelqu'un à la soluce?

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 12:24:43
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:56:56
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:58:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:27:26
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:28:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -

- Afficher le texte des messages précédents -

Placer juste après
Private Sub CommandButton1_Click()

If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Me.TextBox1.SetFocus
Exit Sub
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Me.TextBox1.SetFocus
Exit Sub
End If
End If

JB

On 16 avr, 17:28, "Pascal" <lapl...@wanadoo.fr> wrote:

Merci,
Mais débutant cela devient trop compliqué pour moi, je vais laisser l e code
tel quel
Pascal

"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1176736630.912884.19...@y5g2000hsa.googlegroups.com...
-Selectionner TextBox1
-Sélectionner l'événement BeforeUpdate

JB
On 16 avr, 16:58, "Pascal" <lapl...@wanadoo.fr> wrote:

Merci,
Mais je ne sais pas comment intégrer la partie de ton code au mien?
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1176721220.835938.308...@p77g2000hsh.googlegroups.com...
Bonjour,

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Cancel = True
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Cancel = True
End If
End If
End Sub

Cordialement JB

On 16 avr, 12:24, "Pascal" <lapl...@wanadoo.fr> wrote:

Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
If TextBox1 = "" Or CboPays = "" Or CboDem = "" Or CboModes = "" Or
TextBox2
= "" Or CboHor = "" Then
MsgBox "Vous avez oublié un champ!"
CommandButton1.Enabled = True
Else
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
ActiveCell.Offset(0, 5).Value = CboHor
TextBox1 = ""
TextBox2 = ""
CboDem = ""
CboModes = ""
CboHor = ""
CboPays = ""
End If
End Sub
J'aimerais empêcher dans le textbox1 la saisie autre qu'une date

=01/01/07
<=31/12/07

et dans le textbox2 empêcher la saisie autre que numérique. Je tr ouve
pas
quelqu'un à la soluce?

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 12:24:43
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:56:56
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:58:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:27:26
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:28:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -

- Afficher le texte des messages précédents -

Vous avez filtré cet utilisateur ! Consultez son message

Placer juste après
Private Sub CommandButton1_Click()

If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Me.TextBox1.SetFocus
Exit Sub
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Me.TextBox1.SetFocus
Exit Sub
End If
End If

JB

On 16 avr, 17:28, "Pascal" wrote:

Merci,
Mais débutant cela devient trop compliqué pour moi, je vais laisser l e code
tel quel
Pascal

"JB" a écrit dans le message de news:

-Selectionner TextBox1
-Sélectionner l'événement BeforeUpdate

JB
On 16 avr, 16:58, "Pascal" wrote:

Merci,
Mais je ne sais pas comment intégrer la partie de ton code au mien?
"JB" a écrit dans le message de news:

Bonjour,

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Cancel = True
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Cancel = True
End If
End If
End Sub

Cordialement JB

On 16 avr, 12:24, "Pascal" wrote:

Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
If TextBox1 = "" Or CboPays = "" Or CboDem = "" Or CboModes = "" Or
TextBox2
= "" Or CboHor = "" Then
MsgBox "Vous avez oublié un champ!"
CommandButton1.Enabled = True
Else
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
ActiveCell.Offset(0, 5).Value = CboHor
TextBox1 = ""
TextBox2 = ""
CboDem = ""
CboModes = ""
CboHor = ""
CboPays = ""
End If
End Sub
J'aimerais empêcher dans le textbox1 la saisie autre qu'une date
/01/07
<1/12/07

et dans le textbox2 empêcher la saisie autre que numérique. Je tr ouve
pas
quelqu'un à la soluce?

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 12:24:43
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:56:56
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:58:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:27:26
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:28:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -

- Afficher le texte des messages précédents -

Pascal

17/04/2007 à 10:36

Merci
Cela fonctionne à merveille
pascal
"JB" a écrit dans le message de news:

Placer juste après
Private Sub CommandButton1_Click()

If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Me.TextBox1.SetFocus
Exit Sub
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Me.TextBox1.SetFocus
Exit Sub
End If
End If

JB

On 16 avr, 17:28, "Pascal" wrote:

Merci,
Mais débutant cela devient trop compliqué pour moi, je vais laisser le
code
tel quel
Pascal

"JB" a écrit dans le message de news:

-Selectionner TextBox1
-Sélectionner l'événement BeforeUpdate

JB
On 16 avr, 16:58, "Pascal" wrote:

Merci,
Mais je ne sais pas comment intégrer la partie de ton code au mien?
"JB" a écrit dans le message de news:

Bonjour,

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Cancel = True
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Cancel = True
End If
End If
End Sub

Cordialement JB

On 16 avr, 12:24, "Pascal" wrote:

Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
If TextBox1 = "" Or CboPays = "" Or CboDem = "" Or CboModes = "" Or
TextBox2
= "" Or CboHor = "" Then
MsgBox "Vous avez oublié un champ!"
CommandButton1.Enabled = True
Else
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
ActiveCell.Offset(0, 5).Value = CboHor
TextBox1 = ""
TextBox2 = ""
CboDem = ""
CboModes = ""
CboHor = ""
CboPays = ""
End If
End Sub
J'aimerais empêcher dans le textbox1 la saisie autre qu'une date
/01/07
<1/12/07

et dans le textbox2 empêcher la saisie autre que numérique. Je trouve
pas
quelqu'un à la soluce?

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 12:24:43
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:56:56
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:58:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:27:26
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:28:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 22:44:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 17/04/2007 10:36:08
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

Merci
Cela fonctionne à merveille
pascal
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1176737806.166898.95640@l77g2000hsb.googlegroups.com...
Placer juste après
Private Sub CommandButton1_Click()

If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Me.TextBox1.SetFocus
Exit Sub
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Me.TextBox1.SetFocus
Exit Sub
End If
End If

JB

On 16 avr, 17:28, "Pascal" <lapl...@wanadoo.fr> wrote:

Merci,
Mais débutant cela devient trop compliqué pour moi, je vais laisser le
code
tel quel
Pascal

"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1176736630.912884.19...@y5g2000hsa.googlegroups.com...
-Selectionner TextBox1
-Sélectionner l'événement BeforeUpdate

JB
On 16 avr, 16:58, "Pascal" <lapl...@wanadoo.fr> wrote:

Merci,
Mais je ne sais pas comment intégrer la partie de ton code au mien?
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1176721220.835938.308...@p77g2000hsh.googlegroups.com...
Bonjour,

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Cancel = True
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Cancel = True
End If
End If
End Sub

Cordialement JB

On 16 avr, 12:24, "Pascal" <lapl...@wanadoo.fr> wrote:

Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
If TextBox1 = "" Or CboPays = "" Or CboDem = "" Or CboModes = "" Or
TextBox2
= "" Or CboHor = "" Then
MsgBox "Vous avez oublié un champ!"
CommandButton1.Enabled = True
Else
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
ActiveCell.Offset(0, 5).Value = CboHor
TextBox1 = ""
TextBox2 = ""
CboDem = ""
CboModes = ""
CboHor = ""
CboPays = ""
End If
End Sub
J'aimerais empêcher dans le textbox1 la saisie autre qu'une date

/01/07
<1/12/07

et dans le textbox2 empêcher la saisie autre que numérique. Je trouve
pas
quelqu'un à la soluce?

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 12:24:43
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:56:56
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:58:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:27:26
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:28:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 22:44:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 17/04/2007 10:36:08
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

Vous avez filtré cet utilisateur ! Consultez son message

Merci
Cela fonctionne à merveille
pascal
"JB" a écrit dans le message de news:

Placer juste après
Private Sub CommandButton1_Click()

If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Me.TextBox1.SetFocus
Exit Sub
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Me.TextBox1.SetFocus
Exit Sub
End If
End If

JB

On 16 avr, 17:28, "Pascal" wrote:

Merci,
Mais débutant cela devient trop compliqué pour moi, je vais laisser le
code
tel quel
Pascal

"JB" a écrit dans le message de news:

-Selectionner TextBox1
-Sélectionner l'événement BeforeUpdate

JB
On 16 avr, 16:58, "Pascal" wrote:

Merci,
Mais je ne sais pas comment intégrer la partie de ton code au mien?
"JB" a écrit dans le message de news:

Bonjour,

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As
MSForms.ReturnBoolean)
If Not IsDate(Me.TextBox1) Then
MsgBox "Saisir une date!"
Cancel = True
Else
If CDate(Me.TextBox1) < DateSerial(2007, 1, 1) Or
CDate(Me.TextBox1) > DateSerial(2007, 12, 31) Then
MsgBox "erreur"
Cancel = True
End If
End If
End Sub

Cordialement JB

On 16 avr, 12:24, "Pascal" wrote:

Bonjour,
Avec ce code:
Private Sub CommandButton1_Click()
[A65000].End(xlUp).Offset(1, 0).Select
If TextBox1 = "" Or CboPays = "" Or CboDem = "" Or CboModes = "" Or
TextBox2
= "" Or CboHor = "" Then
MsgBox "Vous avez oublié un champ!"
CommandButton1.Enabled = True
Else
ActiveCell.Offset(0, 0) = TextBox1
ActiveCell.Offset(0, 0) = Format(TextBox1.Value, "mm/dd/yyyy")
ActiveCell.Offset(0, 1).Value = CboPays
ActiveCell.Offset(0, 2).Value = CboDem
ActiveCell.Offset(0, 3).Value = CboModes
ActiveCell.Offset(0, 4).Value = TextBox2
ActiveCell.Offset(0, 4) = Format(TextBox2.Value, "0")
ActiveCell.Offset(0, 5).Value = CboHor
TextBox1 = ""
TextBox2 = ""
CboDem = ""
CboModes = ""
CboHor = ""
CboPays = ""
End If
End Sub
J'aimerais empêcher dans le textbox1 la saisie autre qu'une date
/01/07
<1/12/07

et dans le textbox2 empêcher la saisie autre que numérique. Je trouve
pas
quelqu'un à la soluce?

Merci
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 12:24:43
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:56:56
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 16:58:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:27:26
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 17:28:42
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 16/04/2007 22:44:53
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000734-0, 16/04/2007
Analyse le : 17/04/2007 10:36:08
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

Userform

8 réponses

Veuillez sélectionner un problème