Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel IF ...OR

IF ...OR

3 réponses
Avatar
Denys
Bonjour à tous,

Pourriez-vous m'aider à construire l'instruction suivante ?:

If Or ComboBox1.Value <> "" Or ComboBox2.Value = "" Or
Textbox1.Value = "" Or Textbox2.Value = "" Then
msg = "Please enter tool stats"
dialogstyle = vbOKOnly + vbCritical
Title = "Invalid data"
reponse = MsgBox(msg, dialogstyle, Title)
Cancel = True
Beep
ComboBox2.SetFocus
Exit Sub
End If

En fait, ce que je veux dire c'est que si le combobox1 est différent que ""
et que si le combobox2 ou le textbox1 ou encore le textbox2 est vide,
alors......

Je pourrais écrire 3 fois une condition simple, mais comme j'aurai à en
écrire plusieurs, j'aimerais bien pour l'écrire en une sule fois...

Merci pour votre temps

Denys
Signaler un problème avec ce contenu

3 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
Elliac
Bonjour Denys,

Non testé :

If ComboBox1.Value <> "" And(ComboBox2.Value = "" Or
Textbox1.Value = "" Or Textbox2.Value = "") Then

Camille

"Denys" wrote:

Bonjour à tous,

Pourriez-vous m'aider à construire l'instruction suivante ?:

If Or ComboBox1.Value <> "" Or ComboBox2.Value = "" Or
Textbox1.Value = "" Or Textbox2.Value = "" Then
msg = "Please enter tool stats"
dialogstyle = vbOKOnly + vbCritical
Title = "Invalid data"
reponse = MsgBox(msg, dialogstyle, Title)
Cancel = True
Beep
ComboBox2.SetFocus
Exit Sub
End If

En fait, ce que je veux dire c'est que si le combobox1 est différent que ""
et que si le combobox2 ou le textbox1 ou encore le textbox2 est vide,
alors......

Je pourrais écrire 3 fois une condition simple, mais comme j'aurai à en
écrire plusieurs, j'aimerais bien pour l'écrire en une sule fois...

Merci pour votre temps

Denys



Avatar
JLuc
Denys avait soumis l'idée :
Bonjour à tous,
Bonjour

Tu supprime le 1er Or et ca devrait rouler

Pourriez-vous m'aider à construire l'instruction suivante ?:

If *Or* ComboBox1.Value <> "" Or ComboBox2.Value = "" Or
Textbox1.Value = "" Or Textbox2.Value = "" Then
msg = "Please enter tool stats"
dialogstyle = vbOKOnly + vbCritical
Title = "Invalid data"
reponse = MsgBox(msg, dialogstyle, Title)
Cancel = True
Beep
ComboBox2.SetFocus
Exit Sub
End If

En fait, ce que je veux dire c'est que si le combobox1 est différent que ""
et que si le combobox2 ou le textbox1 ou encore le textbox2 est vide,
alors......

Je pourrais écrire 3 fois une condition simple, mais comme j'aurai à en
écrire plusieurs, j'aimerais bien pour l'écrire en une sule fois...

Merci pour votre temps

Denys



--
JLuc

Avatar
Denys
Bonjour Camille,

C'est parfait.... Merci beaucoup

Bonne journ/e

Denys


Bonjour Denys,

Non testé :

If ComboBox1.Value <> "" And(ComboBox2.Value = "" Or
Textbox1.Value = "" Or Textbox2.Value = "") Then

Camille

"Denys" wrote:

Bonjour à tous,

Pourriez-vous m'aider à construire l'instruction suivante ?:

If Or ComboBox1.Value <> "" Or ComboBox2.Value = "" Or
Textbox1.Value = "" Or Textbox2.Value = "" Then
msg = "Please enter tool stats"
dialogstyle = vbOKOnly + vbCritical
Title = "Invalid data"
reponse = MsgBox(msg, dialogstyle, Title)
Cancel = True
Beep
ComboBox2.SetFocus
Exit Sub
End If

En fait, ce que je veux dire c'est que si le combobox1 est différent que ""
et que si le combobox2 ou le textbox1 ou encore le textbox2 est vide,
alors......

Je pourrais écrire 3 fois une condition simple, mais comme j'aurai à en
écrire plusieurs, j'aimerais bien pour l'écrire en une sule fois...

Merci pour votre temps

Denys