[prog] interpréter le contenu d'une variable comme étant du code

Sat, 03 Nov 2007 11:04:45 -0800 

Bonjour la liste !
 
Je dispose d’une feuille de données avec par exemple les champs suivants
: NOM /PRENOM /COMMUNE  /GROUPE /REGION
Je crée une boîte de dialogue (BDD) pour effectuer une recherche et
afficher dans une autre feuille la liste restreinte des enregistrements
qui vérifient les critères de recherche (exemple : tous les
enregistrement avec REGION= ‘LORRAINE’ ET GROUPE=’ABG’).
 
Dans cette BDD j’ai pour chaque champ interrogé (par exemple COMMUNE
GROUPE REGION) un checkBox et un déroulant.
Si le checkBox est coché, on affiche le déroulant dans lequel on trouve
les valeurs possibles pour ce champ.
On peut bien sûr avoir 1 ou plusieurs checkBox cochés. 
Si plusieurs sont cochés je veux un AND entre chaque critère :
If (donneeX=critère1) AND (donneeY=critere2) AND (donneeZ=critere3) then
…
 
Après validation, une boucle parcourt tous les enregistrements de la
feuille de données.
Si l’enregistrement courant vérifie la condition, on recopie ses données
dans la feuille de destination.
Tout ça ne me pose pas de problème, sauf le texte de la condition.
Voilà où j’en suis :
 
- dans le MAIN qui gère l’affichage de la BDD:
‘dlg représente la boîte de dialogue
            if dlg.execute = 1 then
                        if dlg.getControl("CheckBox1").state then
critere1=dlg.getControl("ListBox1").selectedItem

                        if dlg.getControl("CheckBox2").state then
critere2=dlg.getControl("ListBox2").selectedItem

                        if dlg.getControl("CheckBox3").state then
critere3=dlg.getControl("ListBox3").selectedItem
 
monclasseur.currentController.activeSheet=lafeuille
                        remplisListe(critere1,critere2,critere3)
            end if
 
- dans la procédure qui affiche la liste (remplisListe)
Concrétement il faudrait qqchose dans ce genre, un peu comme qd on
construit une requête SQL :
(en gros il me manque l’instruction BASIC qui lui ferait interpréter le
contenu de la variable texteCondition comme étant du code)
 
texteCondition=’colonneX<>’’ ’ // en fait une condition qui sera tj
vraie, pas un problème ça…
IF critere1<>’’ THEN TexteCondition=TexteCondition & « AND colonne
COMMUNE =critere1 »
IF critere2<>’’ THEN TexteCondition=TexteCondition & « AND colonne
GROUPE=critere2 »
IF critere3<>’’ THEN TexteCondition=TexteCondition & « AND colonne
REGION=critere3 »
 
// la boucle
while lafeuille_src.getCellRangeByName("A"&ligne_src).getString<>""  //
tant qu’il y a qqchose dans la première cellule
            if (texteCondition) then
                        ‘on affiche les données dans la feuille de
destination
            end if
            ligne_src = ligne_src + 1
wend
 
C’est peut-être très simple, mais je sèche.
J’espère que ma problématique est claire.
Pas sûr ;-(
En tout cas merci d’avoir lu jusqu’au bout.
 
-*-*-*-*-*-/*-*-*-*-*-*-*-*-*-*-
Pascal (alias Chaliapine)
-*-*-*-*-*-/*-*-*-*-*-*-*-*-*-*-
 
 
 
-------------
Pascal PIERRE

Répondre à