Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Instruction conditionnelle

Instruction conditionnelle

5 réponses
Avatar
EmanuelL
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'AtoutFox
www.atoutfox.org
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
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>
Avatar
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

http://boisgontierjacques.free.fr/pages_site/formulairebases.htm#VerifierZon esSaisie

JB

On 22 nov, 12:37, EmanuelL 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


Avatar
EmanuelL
Merci Corto,

Je pense que c'est une bonne solution, j'ai test.

A+

--

*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Avatar
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

http://boisgontierjacques.free.fr/pages_site/formulairebases.htm#VerifierZonesSaisie

JB

On 22 nov, 12:37, EmanuelL 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


Avatar
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

http://boisgontierjacques.free.fr/pages_site/formulairebases.htm#Veri...

JB

On 22 nov, 12:37, EmanuelL 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 -

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