Formule Si ou

Bonjour le Forum,

Je n'arrive pas a faire ma formule en vba avec si ou.

J'aimerai que si une cellule "nommée" est <0 ou que cette même cellule est <> a une autre aussi nommée ma macro ne se lance pas.

Je vous remercie de l'aide que vous pourrez m'apporter.

Bonjour,

Ton message est assez énigmatique ...

Enigmatique ?

Je cherche la syntaxe de cette formule en vba :

If ("JANV_1")<0 Or ("JANV_1")<>("Janv_2")

Un truc de ce genre que je ne cesse de transformer mais sans réussite

Re,

As-tu une formule totalement opérationnelle dans ta feuille ?

Si oui ... il te suffit de démarrer ton eneregistreur de macros ... et de la saisir ...

Tu obtiendras la ' traduction ' VBA que tu recherches ...

Ok , je tente cela de suite

Alors, voici ce que la macro a enregistrée :

IF(OR(JAN_1<0,(JAN_1<>JANV_2)),""FAUX"","""")

Maintenant, j'essaye de l'introduire dans mon code qui est un bouton validé et que si l'une des deux conditions sont remplies la validation ne peux pas se faire et un msgbox le signale.

Else ma macro s'exécute.

Je dois certainement faire quelque chose après mes conditions mais ?

Re,

Je constate que tu ne veux communiquer que le strict minimum de détails ...

Cela dit ... tu pourrais poster au moins la macro que tu as enregistrée ... pour quelqu'un puisse t'aider ..

"=IF(OR(JAN_1<0,(JAN_1<>JANV_2)),(""ERREUR""),(""OK""))"

Désolée, je suis dans mon schmilblick et j'en oublie de me mettre a votre place

If Range("JAN_1") < 0 Then
        MsgBox "Validation refusée"
        If Range("JAN_1") <> ("JAN_2") Then
        MsgBox "Validation refusée"

C'est a plus rien comprendre, j'essaye de faire cette formule avec des si imbriqués seule, elle marche très bien mais avec les deux plus rien du tout et je n'ai aucun message d'erreur.

Bonjour si la validation est refusée as-tu pensé à faire un "Exit sub"

sinon la macro continue

Re,

A tester ...

Sub testMsg()
    If Range("JAN_1") < 0 Or Range("JAN_1") <> Range("JAN_2") Then
        MsgBox "Erreur"
    Else
        MsgBox "OK"
    End If
End Sub

J'ai le message d'erreur " la méthode range de l'objet global a échoué

Tompouce a écrit :

J'ai le message d'erreur " la méthode range de l'objet global a échoué

Re,

Je ne peux deviner les différents noms que tu as donnés ... à tes cellules nommées ...!!!

IF(OR(JAN_1<0,(JAN_1<>JANV_2)),""FAUX"","""")

Sans compter avec le fait ... qu'une fois il y a un V ... et une autre fois ... pas de V ... à la fin de JAN...

c'est pourtant les bons noms

Tompouce a écrit :

c'est pourtant les bons noms

Tu vas m'autotiser à en douter ...

Je viens de tester la macro qui fonctionne ...

James007 a écrit :

Re,

A tester ...

Sub testMsg()
    If Range("JAN_1") < 0 Or Range("JAN_1") <> Range("JAN_2") Then
        MsgBox "Erreur"
    Else
        MsgBox "OK"
    End If
End Sub

Bonjour Tompouce et James

Puisque l'engeristreur de macro lui donne une formule avec JAN_1 et la deuxième JANV_2

il y a donc une différence d'écriture.

dans le code proposé il semble logique de remplacer JAN_2 par JANV_2 non ?

Bonjour Xmenpl,

Effectivement qu'elle étourdie je suis et si James n'avait pas relevé ce problème, j'y serai encore.

Merci pour ton aide.

J'ai trouvé pour les protections.

Encore un grand merci

Content que tout finalement... fonctionne ...

Merci pour tes remerciements