XL pour MAC VBA - Différent de " <> "

ArnaudSi · 16 Mai 2017

Bonjour

Ci joint le code avec lequel j'ai des difficultés

En effet, suite à cette ligne l'instruction devrait sortir de la condition si la case "Client" correspond au valeur "Jp Ma" ou "Jp Mb" ou "Jp Mc"

Y a t il peut être une autre possibilité de résoudre ce problème?

Merci beaucoup

VB:

Dim Client As String

If (Client <> "Jp Ma") Or (Client <> "Jp Mb") Or (Client <> "Jp Mc") Then

job75 · 16 Mai 2017

Bonjour ArnaudSi,

A priori il suffit de remplacer Or par And.

A+

ArnaudSi · 16 Mai 2017

Bonjour job75
Merci beaucoup, ça fonctionne à merveille !
Pourtant, je ne comprend pas très bien...
Or = "Ou"
And= "Et"

En effet, littéralement, on veut que :

- si ("client" ne soit pas égal à "Jp Ma") ou que ("client" ne soit pas égal à "Jp Mb") ou que ("client" ne soit pas égal à "Jp Mb") Alors

Et non pas :

- si ("client" ne soit pas égal à "Jp Ma") et que ("client" ne soit pas égal à "Jp Mb") et que ("client" ne soit pas égal à "Jp Mb") Alors

Car (si je comprend bien) dans ce deuxième cas il faut que trois conditions soit réunis

Me trompais-je ?

job75 · 16 Mai 2017

Re,

On peut écrire la condition de plusieurs manières, la 1ère est la plus simple :

Code:

If Client <> "Jp Ma" And Client <> "Jp Mb" And Client <> "Jp Mc" Then

If Not (Client = "Jp Ma" Or Client = "Jp Mb" Or Client = "Jp Mc") Then

If Not Client = "Jp Ma" And Not Client = "Jp Mb" And Not Client = "Jp Mc" Then

A+

ArnaudSi · 17 Mai 2017

Bonjour job75

Merci beaucoup pour la réponse

Je comprend mieux

XL pour MAC VBA - Différent de " <> "

ArnaudSi

XLDnaute Nouveau

job75

XLDnaute Barbatruc

ArnaudSi

XLDnaute Nouveau

job75

XLDnaute Barbatruc

ArnaudSi

XLDnaute Nouveau

Discussions similaires