Plusieurs OR avec AND et IF... ne fonctionne apas

Bonjour,

Voici mes comparaisons :

    If stand = "50m" And (disci <> "601" Or disci <> "701" Or disci <> "614" Or disci <> "714" _
    Or disci <> "615" Or disci <> "715" Or disci <> "616" Or disci <> "716" Or disci <> "623" _
    Or disci <> "723" Or disci <> "636" Or disci <> "736" Or disci <> "637" Or disci <> "737") Then
    MsgBox ("Le pas de tir " & stand & "ne correspond pas à la discipline " & disci)
    End If

stand est = à 50m

disci est = à 601

Mon besoin : si le pas de tir est = à 25m et la discipline différente de 601 ou de 701 ou etc --> OK

sinon MsgBox.

Dans mon cas la MsgBox se lance à chaque fois.

Où est-je fais la bétise??

J'ai essayé avec et sans parenthèses, avec not and, avec not = etc et rien n'y fait.

Que faire ??

Par avance Merci.

JLP.

Bonjour,

(disci <> "601" Or disci <> "701" Or ...

ne peut être que vrai.

Quelque soit sa valeur disci est forcément différent de l'un OU de l'autre. Il doit être différent de l'un ET de l'autre.

eric

Bonjour,

Merci Eric pour ta réponse.

Aurais-tu une idée ? car je tourne en rond !...

Mon but est :

Il existe une liste de « disci » qui correspond au « stand »

Je souhaite faire un test que si les « disci » ne correspondent pas pas au « stand » il y ait une alerte

Sinon on continue…

@+

Merci.

JLP.

Je t'ai répondu : ET au lieu de OU. Tu as essayé ?

Mon besoin : si le pas de tir est = à 25m et la discipline différente de 601 ou de 701 ou etc --> OK

If stand = "25m" And disci <> "601" And disci <> "701" then
   msgbox "ok"
else
   msgbox "ko"
endif

Si toujours pb dépose un fichier de travail réduit à l'essentiel.

eric

PS: mais si une discipline correspond à 1 distance, tu pourrais faire une table discipline/distance et juste comparer si le couple est correct.

Bonsoir,

J'ai essayé ce que tu dis plus différentes version (like not etc...).

Je n'obtiens pas ce que je veux et en plus j'ai du mal à l'exprimer...!!!

J'essaye de redéfinir mon objectif :

Si stand= "25m" et qu'au moins une des disci est différente --> y a problème donc msgbox, sinon ok et on continue...

Voilà...

Je joins mon fichier.

Module 6.

Voir bloc en commentaire.

Encore merci.

Sinon pour les tableaux, je ne maitrise pas du tout (du moins pas encore.).

@+

JLP.

Effectivement,

et la discipline différente

au moins une des disci est différente

Mais ta formulation n'est toujours pas assez claire pour moi.

Fait un tableau avec les disciplines acceptées par Stand (ou l'inverse si ça te parait plus logique) on y verra plus clair.

eric

Bonjour,

Effectivement je ne suis pas très clair.

Si stand=25m et disci <> d'une des disciplines acceptées par le stand 25m alors KO.

je remet le fichier avec un onglet où il y a de listées les disciplines acceptées par stand.

Encore merci pour ton implication.

JLP.

J'ai un pb avec ton dernier fichier, j'ai dû mettre la ligne Sheets("Planning").Activate en commentaire elle provoquait une erreur.

Après, de temps en temps, excel passe tout seul en mode création et me dit qu'il ne peut pas le quitter : "Attention bouton 22 ne peut être créé".

Vu le n° de bouton je soupçonne un de tes PC d'avoir un pb avec la maj Office du 09/12/2014 :

http://support.microsoft.com/kb/3025036/fr

Supprimer les fichiers *.exd du disque système. Dans une fenêtre cmd :

Del c:\*.EXD /s

Si besoin désinstaller et masquer (qu'elles ne se réinstallent pas) ces maj :

Mise à jour de sécurité pour Microsoft Office 2007 ( KB2596927 )

Mise à jour de sécurité pour Microsoft Office 2010 ( KB2553154 )

Mise à jour de sécurité pour Microsoft Office 2013 ( KB2726958 )

Ceci dit voici le bout de code, j'ai mis la ligne 2 en erreur.

J'ai renommé et modifié la feuille des stand/disciplines

eric

Bonjour,

Merci Eric pour ta solution qui me convient.

Étant très débutant, je ne connaissais pas la fonction FIND.

Après recherche, je commence à mieux la comprendre et je penses l'utiliser plus souvent...

Pour le problème que tu cite (mode création), je n'ai pas ce problème dans le fichier envoyé.

Je penses plus à un problème lié à l'upload...

j'ai copié le module de ton fichier renvoyé dans le mien et pas de problème de mode création...

Pour le Sheets("Planning").Activate j'avais mis feuil6 car de retour du boulot (où j'ai la V2013)

cela ne marchais plus avec planning mais avec feuil6. --> comprends plus rien !!!

Mais tu as bien fait.

Mon problème étant résolu, je ferme ce post.

Encore MERCI pour ton aide.

@+

JLP.

Bonjour,

Je penses plus à un problème lié à l'upload...

Non. Obligatoirement lié à un des PC sur lesquels tu as travaillé.

Dans un classeur neuf ajoute un bouton ActiveX et va voir son nom dans ses propriétés.

Si ce n'est pas CommandButton1 c'est qu'il a un gros problème suite à cette maj.

eric

Bonjour,

Effectivement, sur le PC du travail il m'affiche CommandButton21.

Mais là j'ai pas les autorisations pour modifier...

Merci pour les infos, au moins on sait d'où vient le problème.

@+

JLP.