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
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
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
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é