Je dois contrôler la valeur saisie dans chaques champs par
l'utilisateur, quel est le meilleure méthode:
1. If IsEmpty(Champ1.Value) = False THEN
...
Else
If IsEmpty(Champ2.Value) = False THEN
...
Else
If IsEmpty(Champ3.Value) = False THEN
...
2. Exist-il la condition Case qui permet de faire ça plus facilement?
Select Case ...
Case IsEmpty(Champ1.Value) = False
...
Case IsEmpty(Champ2.Value) = False
...
Case IsEmpty(Champ3.Value) = False
...
Merci d'avance. :'(
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
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
Corto
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta content="text/html;charset=ISO-8859-15" http-equiv="Content-Type"> <title></title> </head> <body bgcolor="#ffffff" text="#000000"> Bonjour EmanuelL,<br> <b></b>Le <b>Select Case</b> sert à tester une série de valeurs différentes<b> pour une seule variable</b>, il ne peut donc pas s'appliquer dans ton cas car tu souhaite tester la même valeur pour plusieurs variables différentes.<br> Il y a par contre le <b>ElseIf </b>qui pourrait réduire un petit peu le codage<br> If IsEmpty(Champ1.Value) = False THEN <br> ... <br> ElseIf IsEmpty(Champ2.Value) = False THEN <br> ... <br> ElseIf IsEmpty(Champ3.Value) = False THEN <br> ... <br> Else <br> ... <br> End If<br> <br> Corto<br> <br> EmanuelL a écrit : <blockquote cite="mid:" type="cite">Bonjour à Tous, <br> <br> Je dois contrôler la valeur saisie dans chaques champs par l'utilisateur, quel est le meilleure méthode: <br> <br> 1. If IsEmpty(Champ1.Value) = False THEN <br> ... <br> Else <br> If IsEmpty(Champ2.Value) = False THEN <br> ... <br> Else <br> If IsEmpty(Champ3.Value) = False THEN <br> ... <br> <br> 2. Exist-il la condition Case qui permet de faire ça plus facilement? <br> Select Case ... <br> Case IsEmpty(Champ1.Value) = False <br> ... <br> Case IsEmpty(Champ2.Value) = False <br> ... <br> Case IsEmpty(Champ3.Value) = False <br> ... <br> <br> Merci d'avance. :'( <br> <br> </blockquote> </body> </html>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-15"
http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
Bonjour EmanuelL,<br>
<b></b>Le <b>Select Case</b> sert à tester une série de valeurs
différentes<b> pour une seule variable</b>, il ne peut donc pas
s'appliquer dans ton cas car tu souhaite tester la même valeur pour
plusieurs variables différentes.<br>
Il y a par contre le <b>ElseIf </b>qui pourrait réduire un petit peu
le codage<br>
If IsEmpty(Champ1.Value) = False THEN
<br>
...
<br>
ElseIf IsEmpty(Champ2.Value) = False THEN
<br>
...
<br>
ElseIf IsEmpty(Champ3.Value) = False THEN
<br>
...
<br>
Else
<br>
...
<br>
End If<br>
<br>
Corto<br>
<br>
EmanuelL a écrit :
<blockquote cite="mid:mn.b2f57d7bca859eaf.10594@nopopfiduconsult.com"
type="cite">Bonjour à Tous,
<br>
<br>
Je dois contrôler la valeur saisie dans chaques champs par
l'utilisateur, quel est le meilleure méthode:
<br>
<br>
1. If IsEmpty(Champ1.Value) = False THEN
<br>
...
<br>
Else
<br>
If IsEmpty(Champ2.Value) = False THEN
<br>
...
<br>
Else
<br>
If IsEmpty(Champ3.Value) = False THEN
<br>
...
<br>
<br>
2. Exist-il la condition Case qui permet de faire ça plus facilement?
<br>
Select Case ...
<br>
Case IsEmpty(Champ1.Value) = False
<br>
...
<br>
Case IsEmpty(Champ2.Value) = False
<br>
...
<br>
Case IsEmpty(Champ3.Value) = False
<br>
...
<br>
<br>
Merci d'avance. :'(
<br>
<br>
</blockquote>
</body>
</html>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta content="text/html;charset=ISO-8859-15" http-equiv="Content-Type"> <title></title> </head> <body bgcolor="#ffffff" text="#000000"> Bonjour EmanuelL,<br> <b></b>Le <b>Select Case</b> sert à tester une série de valeurs différentes<b> pour une seule variable</b>, il ne peut donc pas s'appliquer dans ton cas car tu souhaite tester la même valeur pour plusieurs variables différentes.<br> Il y a par contre le <b>ElseIf </b>qui pourrait réduire un petit peu le codage<br> If IsEmpty(Champ1.Value) = False THEN <br> ... <br> ElseIf IsEmpty(Champ2.Value) = False THEN <br> ... <br> ElseIf IsEmpty(Champ3.Value) = False THEN <br> ... <br> Else <br> ... <br> End If<br> <br> Corto<br> <br> EmanuelL a écrit : <blockquote cite="mid:" type="cite">Bonjour à Tous, <br> <br> Je dois contrôler la valeur saisie dans chaques champs par l'utilisateur, quel est le meilleure méthode: <br> <br> 1. If IsEmpty(Champ1.Value) = False THEN <br> ... <br> Else <br> If IsEmpty(Champ2.Value) = False THEN <br> ... <br> Else <br> If IsEmpty(Champ3.Value) = False THEN <br> ... <br> <br> 2. Exist-il la condition Case qui permet de faire ça plus facilement? <br> Select Case ... <br> Case IsEmpty(Champ1.Value) = False <br> ... <br> Case IsEmpty(Champ2.Value) = False <br> ... <br> Case IsEmpty(Champ3.Value) = False <br> ... <br> <br> Merci d'avance. :'( <br> <br> </blockquote> </body> </html>
JB
Bonjour,
Private Sub B_validation_Click() Dim c As Control For Each c In Me.Controls Select Case TypeName(c) Case "TextBox", "ComboBox" If c.Value = "" Then MsgBox "Saisir cette zone!" c.SetFocus Exit Sub End If End Select Next c MsgBox "ok" End Sub
Je dois contrôler la valeur saisie dans chaques champs par l'utilisateur, quel est le meilleure méthode:
1. If IsEmpty(Champ1.Value) = False THEN ... Else If IsEmpty(Champ2.Value) = False THEN ... Else If IsEmpty(Champ3.Value) = False THEN ...
2. Exist-il la condition Case qui permet de faire ça plus facilement? Select Case ... Case IsEmpty(Champ1.Value) = False ... Case IsEmpty(Champ2.Value) = False ... Case IsEmpty(Champ3.Value) = False ...
Merci d'avance. :'(
--
*!* ----------------------------------- EmanuelL Membre d'AtoutFoxwww.atoutfox.org
Bonjour,
Private Sub B_validation_Click()
Dim c As Control
For Each c In Me.Controls
Select Case TypeName(c)
Case "TextBox", "ComboBox"
If c.Value = "" Then
MsgBox "Saisir cette zone!"
c.SetFocus
Exit Sub
End If
End Select
Next c
MsgBox "ok"
End Sub
On 22 nov, 12:37, EmanuelL <support@_nopop_fiduconsult.com> wrote:
Bonjour à Tous,
Je dois contrôler la valeur saisie dans chaques champs par
l'utilisateur, quel est le meilleure méthode:
1. If IsEmpty(Champ1.Value) = False THEN
...
Else
If IsEmpty(Champ2.Value) = False THEN
...
Else
If IsEmpty(Champ3.Value) = False THEN
...
2. Exist-il la condition Case qui permet de faire ça plus facilement?
Select Case ...
Case IsEmpty(Champ1.Value) = False
...
Case IsEmpty(Champ2.Value) = False
...
Case IsEmpty(Champ3.Value) = False
...
Merci d'avance. :'(
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFoxwww.atoutfox.org
Private Sub B_validation_Click() Dim c As Control For Each c In Me.Controls Select Case TypeName(c) Case "TextBox", "ComboBox" If c.Value = "" Then MsgBox "Saisir cette zone!" c.SetFocus Exit Sub End If End Select Next c MsgBox "ok" End Sub
Je dois contrôler la valeur saisie dans chaques champs par l'utilisateur, quel est le meilleure méthode:
1. If IsEmpty(Champ1.Value) = False THEN ... Else If IsEmpty(Champ2.Value) = False THEN ... Else If IsEmpty(Champ3.Value) = False THEN ...
2. Exist-il la condition Case qui permet de faire ça plus facilement? Select Case ... Case IsEmpty(Champ1.Value) = False ... Case IsEmpty(Champ2.Value) = False ... Case IsEmpty(Champ3.Value) = False ...
Merci d'avance. :'(
--
*!* ----------------------------------- EmanuelL Membre d'AtoutFoxwww.atoutfox.org
EmanuelL
Merci Corto,
Je pense que c'est une bonne solution, j'ai test.
A+
--
*!* ----------------------------------- EmanuelL Membre d'AtoutFox www.atoutfox.org
Merci Corto,
Je pense que c'est une bonne solution, j'ai test.
A+
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
*!* ----------------------------------- EmanuelL Membre d'AtoutFox www.atoutfox.org
EmanuelL
Merci JB, c'est parfait. Comment fais-tu pour vérifier la valeur d'un CheckBox ?
JB a couché sur son écran :
Bonjour,
Private Sub B_validation_Click() Dim c As Control For Each c In Me.Controls Select Case TypeName(c) Case "TextBox", "ComboBox" If c.Value = "" Then MsgBox "Saisir cette zone!" c.SetFocus Exit Sub End If End Select Next c MsgBox "ok" End Sub
Je dois contrôler la valeur saisie dans chaques champs par l'utilisateur, quel est le meilleure méthode:
1. If IsEmpty(Champ1.Value) = False THEN ... Else If IsEmpty(Champ2.Value) = False THEN ... Else If IsEmpty(Champ3.Value) = False THEN ...
2. Exist-il la condition Case qui permet de faire ça plus facilement? Select Case ... Case IsEmpty(Champ1.Value) = False ... Case IsEmpty(Champ2.Value) = False ... Case IsEmpty(Champ3.Value) = False ...
Merci d'avance. :'(
--
*!* ----------------------------------- EmanuelL Membre d'AtoutFoxwww.atoutfox.org
--
*!* ----------------------------------- EmanuelL Membre d'AtoutFox www.atoutfox.org
Merci JB, c'est parfait.
Comment fais-tu pour vérifier la valeur d'un CheckBox ?
JB a couché sur son écran :
Bonjour,
Private Sub B_validation_Click()
Dim c As Control
For Each c In Me.Controls
Select Case TypeName(c)
Case "TextBox", "ComboBox"
If c.Value = "" Then
MsgBox "Saisir cette zone!"
c.SetFocus
Exit Sub
End If
End Select
Next c
MsgBox "ok"
End Sub
On 22 nov, 12:37, EmanuelL <support@_nopop_fiduconsult.com> wrote:
Bonjour à Tous,
Je dois contrôler la valeur saisie dans chaques champs par
l'utilisateur, quel est le meilleure méthode:
1. If IsEmpty(Champ1.Value) = False THEN
...
Else
If IsEmpty(Champ2.Value) = False THEN
...
Else
If IsEmpty(Champ3.Value) = False THEN
...
2. Exist-il la condition Case qui permet de faire ça plus facilement?
Select Case ...
Case IsEmpty(Champ1.Value) = False
...
Case IsEmpty(Champ2.Value) = False
...
Case IsEmpty(Champ3.Value) = False
...
Merci d'avance. :'(
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFoxwww.atoutfox.org
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Merci JB, c'est parfait. Comment fais-tu pour vérifier la valeur d'un CheckBox ?
JB a couché sur son écran :
Bonjour,
Private Sub B_validation_Click() Dim c As Control For Each c In Me.Controls Select Case TypeName(c) Case "TextBox", "ComboBox" If c.Value = "" Then MsgBox "Saisir cette zone!" c.SetFocus Exit Sub End If End Select Next c MsgBox "ok" End Sub
Je dois contrôler la valeur saisie dans chaques champs par l'utilisateur, quel est le meilleure méthode:
1. If IsEmpty(Champ1.Value) = False THEN ... Else If IsEmpty(Champ2.Value) = False THEN ... Else If IsEmpty(Champ3.Value) = False THEN ...
2. Exist-il la condition Case qui permet de faire ça plus facilement? Select Case ... Case IsEmpty(Champ1.Value) = False ... Case IsEmpty(Champ2.Value) = False ... Case IsEmpty(Champ3.Value) = False ...
Merci d'avance. :'(
--
*!* ----------------------------------- EmanuelL Membre d'AtoutFoxwww.atoutfox.org
--
*!* ----------------------------------- EmanuelL Membre d'AtoutFox www.atoutfox.org
JB
Private Sub UserForm_Initialize() Me.CheckBox1 = Null End Sub
Private Sub B_Valid_Click() Dim c As Control For Each c In Me.Controls Select Case TypeName(c) Case "TextBox", "ComboBox" If c.Value = "" Then MsgBox "Saisir cette zone!" c.SetFocus Exit Sub End If Case "CheckBox" If IsNull(c.Value) Then MsgBox "Saisir cette zone!" c.SetFocus Exit Sub End If End Select Next c MsgBox "ok" End Sub
JB
On 22 nov, 15:56, EmanuelL wrote:
Merci JB, c'est parfait. Comment fais-tu pour vérifier la valeur d'un CheckBox ?
JB a couché sur son écran :
Bonjour,
Private Sub B_validation_Click() Dim c As Control For Each c In Me.Controls Select Case TypeName(c) Case "TextBox", "ComboBox" If c.Value = "" Then MsgBox "Saisir cette zone!" c.SetFocus Exit Sub End If End Select Next c MsgBox "ok" End Sub
Je dois contrôler la valeur saisie dans chaques champs par l'utilisateur, quel est le meilleure méthode:
1. If IsEmpty(Champ1.Value) = False THEN ... Else If IsEmpty(Champ2.Value) = False THEN ... Else If IsEmpty(Champ3.Value) = False THEN ...
2. Exist-il la condition Case qui permet de faire ça plus facilement? Select Case ... Case IsEmpty(Champ1.Value) = False ... Case IsEmpty(Champ2.Value) = False ... Case IsEmpty(Champ3.Value) = False ...
Merci d'avance. :'(
--
*!* ----------------------------------- EmanuelL Membre d'AtoutFoxwww.atoutfox.org
--
*!* ----------------------------------- EmanuelL Membre d'AtoutFoxwww.atoutfox.org- Masquer le texte des messages précé dents -
- Afficher le texte des messages précédents -
Private Sub UserForm_Initialize()
Me.CheckBox1 = Null
End Sub
Private Sub B_Valid_Click()
Dim c As Control
For Each c In Me.Controls
Select Case TypeName(c)
Case "TextBox", "ComboBox"
If c.Value = "" Then
MsgBox "Saisir cette zone!"
c.SetFocus
Exit Sub
End If
Case "CheckBox"
If IsNull(c.Value) Then
MsgBox "Saisir cette zone!"
c.SetFocus
Exit Sub
End If
End Select
Next c
MsgBox "ok"
End Sub
JB
On 22 nov, 15:56, EmanuelL <support@_nopop_fiduconsult.com> wrote:
Merci JB, c'est parfait.
Comment fais-tu pour vérifier la valeur d'un CheckBox ?
JB a couché sur son écran :
Bonjour,
Private Sub B_validation_Click()
Dim c As Control
For Each c In Me.Controls
Select Case TypeName(c)
Case "TextBox", "ComboBox"
If c.Value = "" Then
MsgBox "Saisir cette zone!"
c.SetFocus
Exit Sub
End If
End Select
Next c
MsgBox "ok"
End Sub
On 22 nov, 12:37, EmanuelL <support@_nopop_fiduconsult.com> wrote:
Bonjour à Tous,
Je dois contrôler la valeur saisie dans chaques champs par
l'utilisateur, quel est le meilleure méthode:
1. If IsEmpty(Champ1.Value) = False THEN
...
Else
If IsEmpty(Champ2.Value) = False THEN
...
Else
If IsEmpty(Champ3.Value) = False THEN
...
2. Exist-il la condition Case qui permet de faire ça plus facilement?
Select Case ...
Case IsEmpty(Champ1.Value) = False
...
Case IsEmpty(Champ2.Value) = False
...
Case IsEmpty(Champ3.Value) = False
...
Merci d'avance. :'(
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFoxwww.atoutfox.org
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFoxwww.atoutfox.org- Masquer le texte des messages précé dents -
Private Sub UserForm_Initialize() Me.CheckBox1 = Null End Sub
Private Sub B_Valid_Click() Dim c As Control For Each c In Me.Controls Select Case TypeName(c) Case "TextBox", "ComboBox" If c.Value = "" Then MsgBox "Saisir cette zone!" c.SetFocus Exit Sub End If Case "CheckBox" If IsNull(c.Value) Then MsgBox "Saisir cette zone!" c.SetFocus Exit Sub End If End Select Next c MsgBox "ok" End Sub
JB
On 22 nov, 15:56, EmanuelL wrote:
Merci JB, c'est parfait. Comment fais-tu pour vérifier la valeur d'un CheckBox ?
JB a couché sur son écran :
Bonjour,
Private Sub B_validation_Click() Dim c As Control For Each c In Me.Controls Select Case TypeName(c) Case "TextBox", "ComboBox" If c.Value = "" Then MsgBox "Saisir cette zone!" c.SetFocus Exit Sub End If End Select Next c MsgBox "ok" End Sub
Je dois contrôler la valeur saisie dans chaques champs par l'utilisateur, quel est le meilleure méthode:
1. If IsEmpty(Champ1.Value) = False THEN ... Else If IsEmpty(Champ2.Value) = False THEN ... Else If IsEmpty(Champ3.Value) = False THEN ...
2. Exist-il la condition Case qui permet de faire ça plus facilement? Select Case ... Case IsEmpty(Champ1.Value) = False ... Case IsEmpty(Champ2.Value) = False ... Case IsEmpty(Champ3.Value) = False ...
Merci d'avance. :'(
--
*!* ----------------------------------- EmanuelL Membre d'AtoutFoxwww.atoutfox.org
--
*!* ----------------------------------- EmanuelL Membre d'AtoutFoxwww.atoutfox.org- Masquer le texte des messages précé dents -