Le portail francophone de la géomatique

Merci a Francois Biju-Duval qui m'a mis sur la piste.
Probleme : realiser de facon automatique avec map basic une analyse thematique sans connaitre aupparavent le nombre de categorie. (analyse sur une liste d'especes situee dans une table carte_phase2 situee dans Access)

J'ai resolu le probleme. J'ai egalement modifier la couleur de facon aleatoire
Voici la programmation:

dim nbresp, I, alea as integer
dim car as string
Open Table "C:\Mes documents\CartoTable de BDD interreserves\Carte_phase2.tab" As Carte_phase2
Server Refresh Carte_phase2
Select genre_espece from Carte_phase2 group by genre_espece order by genre_espece into Grp_esp
nbresp = TableInfo(Grp_esp,8)

Randomize
Fetch first from Grp_esp
car = "shade 1 with genre_espece values"  + chr(34)+ Grp_esp.genre_espece + chr(34) + " Symbol (41,16711680,5," + chr(34) +  MapInfo Cartographic + chr(34) + ",0,0)"
For I = 1 to nbresp
Fetch next from Grp_esp
alea = int(rnd(1)*16800000)
car = car +" , "+ chr(34)+ Grp_esp.genre_espece + chr(34) + " Symbol(41," + alea +" ,5," + chr(34) +  MapInfo Cartographic + chr(34) + ",0,0)"
Next
car = car +  default  # color 1 #
Run Command car

Voila cela fonctionne chez moi.
La table grp_esp me permet de recuperer les intitules.. Elle me permet aussi de connaitre le nombre d'especes donc le nombre de categorie dans ma legende: nbresp tableinfo (grp_esp,8) calcul le nombre de colonnes: Tab_Info_Ncols
Ensuite je cree un texte qui permet la mise en page dans la commande run command.
En ajoutant alea je modifie la couleur a chaque boucle.

Merci encore au reseau