Tester une expression Excel en VBA

Bonjour,

Alors voila j'aimerais faire une page excel contenant toute les erreur de mon Excel ou les test a effectuer seront sur une autre page Excel avec leur expression au format excel.

Comment tester ca dans VBA?

Ex:
Dans mon page de test j'ai une ligne qui contient:

Le champs que je dois tester : Sheets("BI").Cells(135,2).Value

et le test suivant:
AND((Sheets("BI").Cells(135,2).Value>0);(Sheets("BI").Cells(112,2).Value<2000))

Puis le message a affiché si c'est pas ok: "Donnée incorrecte"

Et donc dans ma page erreur j'aimerais que si la condition est fausse j'affiche le text ainsi que le champs qui provoque sont erreur!

Mon problème est seulement de savoir si je peux ou pas tester ma condition EXcel (tel quelle) en VBA? Si oui comment je peux faire ca? Sinon comment je pourrais procéder?

Le but est que ces test puisse être modifier par les utilisateurs qui eux ne connaisse que la facon de faire des condition sous excel...

Merci pour vos réponses

Le message affiché "Donnée incorrecte" est affiché dans quoi ? une cellule ?

Merci pour la réponse :ccool:

Dans une cellule mais c'est pas vraiment important car ca je sais comment faire ;)

Moi ce qui m'intéresse c'est de savoir si j'arrive à tester la condition "Excelisé" dans VBA? Car je le répète mes utilisateurs savent faire des conditions dans Excel mais pas en VBA... Le but c'est que la feuille puisse évoluer sans que je doive a chaque fois la corriger.

Genre :

Code:

---

1 2	if(AND((Sheets("BI").Cells(135,2).Value>0);(Sheets("BI").Cells(112,2).Value<2000)) = false) Then cells(x,y).text= Donnée incorrecte

---

Pour cette exemple le formule est déjà retravailler par mon code.
Eux dans la feuille calcul il saisiront:

Code:

---

AND((B135>0);(B112<2000))

---

Enfaite je doit transformer cette condition Excel en quelque chose de compréhensible par VBA... Es-ce que c'est possible?

Merci

Je ne connais malheureusement pas grand chose a ce genre de formules sous excel.

Tu affiches "Données incorrecte" quand ta formule (avec le AND) est fausse.

Tu peux peut-être tester un truc genre

Code:

---

1 2 3

if cells(x,y) = "Donnée incorrecte" then ' Ici le code quand ta condition est fausse endif

---

Après l'utilisateur peut changer la formule, dans tous les cas si la formule est fausse (quel que soit la formule) tu passera dans ton if cells(x,y)...
Par contre (à vérifier) je crois que c'est cells(y,x)

edit: J'ai peut-être compris, tu veux afficher "Données incorrecte" si la formule est fausse ?

Oublie cette histoire de texte car ce n'est pas du tout ma demande... Sans vouloir te vexer biensur ;)

Donc on recommence depuis le début.

Ce que je veux c'est que mon utilisateur puisse dynamiquement saisir des controle de validation qui seront effectué via un code VBA.

Donc mon utilisateur saisi ceci dans une cellule de ma feuille excel:

Code:

---

AND((B135>0);(B112<2000))

---

Et moi sur un clic bouton je doit controler si ce controle de validation est ok oui ou non!
Biensur il s'agirais de faire une boucle qui va aller lire toute les ligne et tester une a une les conditions.

Après biensur je veux reporté les erreur sur une autre feuille, mais ca je sais faire pas de souci ;)

Moi ce que j'aimerais savoir c'est si on peut oui ou non tester des expressions de validation de Excel dans VBA dans cette forme la? ou en les transformant un peu? Et surtout si c'est possible comment faire pour obtenir un true ou false?

Genre:

Code:

---

AND((Sheets("BI").Cells(135,2).Value>0);(Sheets("BI").Cells(112,2).Value<2000))

---

Le but est de trouver un moyen simple pour que mes utilisateurs puisse saisir leur controle de cohérence tout ca de facon structuré et surtout facile a retrouver et corrigé.

J'espère que ce coup-ci je suis clair? :ccool:

Merci

Dans E1 est écrit ce texte: AND(B5>0,B6<2000)
Ce code fait le test

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click() Dim strValid As String   strValid = Range("E1").Value If Not Evaluate(strValid) Then MsgBox "données non valides" End Sub

---

Au cas où les plages de validation émanent d'autres feuilles, on E1, on écrit AND(Feuil2!B5>0,Feuil3!B6<2000)

Merci c'est exactement ce que je recherchais ;)

Bon ben y a plus qu'a :mrgreen: