Comment écrire ces 3lignes de conditions en une seule ?

ToniConti

XLDnaute Junior
Bonjour à tous,

Je ne sais pas si c'est un problème de logique ou de connaissance du langage, mais je n'arrive pas à regrouper en une seule ligne, ces 3 conditions :mad:


If ComboBox1 = "" Or ComboBox3 = "" Then
MsgBox "Veuillez remplir tous les champs !"
Else
If OptionButton1 = False And OptionButton2 = False Then
MsgBox "Veuillez remplir tous les champs !"
Else
If OptionButton1 = True And ComboBox2 = "" Then
MsgBox "Veuillez remplir tous les champs !"


NB : Je fais ça pour l'école, je vais être coté dessus et j'aimerais éviter de faire en plusieurs test ce que je pourrais faire en un seul :)

Quelqu'un saurait comment je pourrais faire ?
Merci d'avance
 
G

Guest

Guest
Re : Comment écrire ces 3lignes de conditions en une seule ?

Bonjour ToniConti,

Avec ceci ça le fait,

Code:
  If (ComboBox1.ListIndex > -1 And ComboBox2 > -1 And ComboBox3 > -1)  And (OptionButton1 Or OptionButton2) Then
        MsgBox "C'est Ok"
  Else
        MsgBox "Veuillez remplir tous les champs !"
  End If

bon exam
 
G

Guest

Guest
Re : Comment écrire ces 3lignes de conditions en une seule ?

RE,

Petite précision, dans la solution donnée comme dans toutes les condition avec AND et ou OR il faut respecter un ordre de priorité des opérateurs de comparaison.

Pour t'en convaincre, remplace la première ligne par:

Code:
 If(OptionButton1 Or OptionButton2) AND (ComboBox1.ListIndex > -1 And ComboBox2 > -1 And ComboBox3 > -1)  Then

Avec cette condition, il suffit q'une des option soit choisie et qu'un choix d'un seul combobo ait été sélectionné

A bientôt
 

jmd2

XLDnaute Accro
Re : Comment écrire ces 3lignes de conditions en une seule ?

hello

bon, tu vas avoir une bonne note.

Mais as-tu compris les réponses ?
(c'est un prof qui te parle,peut-être le tien...

non, je blague :) t'as vu où je suis.

mais fais l'effort de bien analyser les réponses.

bon travail
 

Discussions similaires

Réponses
10
Affichages
395

Statistiques des forums

Discussions
312 799
Messages
2 092 240
Membres
105 300
dernier inscrit
DJSONO