Ajout de colonne par programmation

Version imprimable

Quelle galère... Que se soit les livres, l'aide en ligne ou la recherche sur le forum, les "10 fois plus vite" en sont au stade des 1000 fois plus long:calim2:

Si j'ai bien compris les infos que j'ai capté deci delà, nous pouvons ajouter par programmation (fonction de clonage), une ou plusieurs colonnes dans une table (ici table mémoire) et y placer ensuite des données.

Pour moi, tout va bien en ce qui concerne la création par programmation des 4 colonnes supplémentaires, mais au moment d'y afficher les données, le programme plante à la 1ère colonne ajoutée (les 3 premières initiales sont ok).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 // Objectif, Lire une table Excel composée d'un nombre de Ligne quelconque mais aussi et surtout d'un nombre de colonnes variables (ex. 7 pour ici). // Par défaut, cette table mémoire Windev15 est composée de 3 rubriques (COL_Colonne1,COL_Colonne2, COL_Colonne3) // La tableau Excel est alors analysé afin de connaître le nombre de lignes et de colonnes de la feuille sélectionnée // Ensuite, on remplie par programmation des valeurs lues, dans la table mémoire TABLE_Table1 suivante TableSupprimeTout(TABLE_Table1) xlsID est un entier = xlsOuvre(SAI_FIC1) Nbcolonnes est une entier = xlsNbColonne(xlsID,Faux) NbLignes est un entier = xlsNbLigne(xlsID,Faux) // Je clone 4 fois la colonne3 qui est de type chaine 50 (soit : colonne4, colonne5, colonne6, colonne7) POUR i = 4 A 7 ChampClone(COL_Colonne3,"Colonne" + i) {"Colonne"+ i,indChamp}..Libellé = "Col_Colonne" + i // Affiche COL_Colonne+i en mode création, par programmation, pas utile ??? {"Colonne"+ i,indChamp}..Titre = "Colonne" + i // Affiche Colonne+i par programmation FIN // Je remplis les colonnes "J" pour chaque ligne "I" POUR I = 1 A NbLignes TableAjouteLigne(TABLE_Table1) POUR J= 1 A Nbcolonnes //Plante à J=4 Machaine est une chaîne= "Col_Colonne"+J //trace ("TABLE_Table1."+"*"+Machaine+"*"+indchamp+"*"+I) {"TABLE_Table1."+Machaine,indChamp}[I] = xlsDonnée(xlsID,I,J,Faux) FIN FIN
Le message est le suivant :
Erreur à la ligne 80 du traitement Procédure locale Excel_Analyser.
L'élément 'TABLE_Table1.Col_Colonne4' est inconnu.

----- Informations techniques -----

Projet :

Appel WL :
Traitement de 'Procédure locale Excel_Analyser' (FEN_Exemple_XLS.PROCEDURE.Excel_Analyser), ligne 80, thread 0

Que s'est-il passé ?
L'élément 'TABLE_Table1.Col_Colonne4' est inconnu.

Code erreur : 1059
Niveau : erreur fatale (EL_FATAL)

Dump de l'erreur du module 'WD150VM.DLL' (15.00Os).
Identifiant des informations détaillées (.err) : 1059
Informations supplémentaires :
EIT_PILEWL :
Procédure locale Excel_Analyser (FEN_Exemple_XLS.PROCEDURE.Excel_Analyser), ligne 80
Clic sur Analyser_xls (FEN_Exemple_XLS.ONG_Onglet1.Analyser_xls), ligne 2
EIT_DATEHEURE : 09/08/2010 16:33:11

:oops:Peut être est-ce tout bête, mais là je ne vois plus !:oops:

Y a t'il une autre possibilité que par clonage ?

09/08/2010, 16h55
vmolines

Vous accédez à {"Col_Colonne" + J} alors que vous clonez sous le nom "Colonne" + i.

L'exception levée est parfaitement normale et explicite (la colonne d'existe pas sous le nom que vous utilisez).

Certes, Windev a ses défauts et on n'y développe pas 10 fois plus vite. Mais l'inattention se paye aussi cher qu'avec les autres langages ;)

C'est sûr que tu va y passer du temps si tu bloques déjà...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
// Objectif, Lire une table Excel composée d'un nombre de Ligne quelconque mais aussi et surtout d'un nombre de colonnes variables (ex. 7 pour ici).
// Par défaut, cette table mémoire Windev15 est composée de 3 rubriques (COL_Colonne1,COL_Colonne2, COL_Colonne3)
// La tableau Excel est alors analysé afin de connaître le nombre de lignes et de colonnes de la feuille sélectionnée
// Ensuite, on remplie par programmation des valeurs lues, dans la table mémoire TABLE_Table1 suivante
TableSupprimeTout(TABLE_Table1)
xlsID est un entier = xlsOuvre(SAI_FIC1)

Nbcolonnes est une entier = xlsNbColonne(xlsID,Faux)
NbLignes est un entier = xlsNbLigne(xlsID,Faux)

// Je clone 4 fois la colonne3 qui est de type chaine 50 (soit : colonne4, colonne5, colonne6, colonne7)
POUR i = 4 A 7
	ChampClone(COL_Colonne3,"Colonne" + i)
	{"Colonne"+ i,indChamp}..Libellé = "Col_Colonne" + i		// Affiche COL_Colonne+i en mode création, par programmation, pas utile ???
	{"Colonne"+ i,indChamp}..Titre = "Colonne" + i			// Affiche Colonne+i par programmation
FIN

// Je remplis les colonnes "J" pour chaque ligne "I"
POUR I = 1 A NbLignes
	TableAjouteLigne(TABLE_Table1)
	POUR J= 1 A Nbcolonnes            //Plante à J=4
		Machaine est une chaîne= "Col_Colonne"+J
		//trace ("TABLE_Table1."+"*"+Machaine+"*"+indchamp+"*"+I)
		{"TABLE_Table1."+Machaine,indChamp}[I] = xlsDonnée(xlsID,I,J,Faux)
	FIN
FIN

Utilises les mêmes noms partout et ça marchera mieux.
Là tu travailles sur les premières colonnes, celle qui existaient avant tes clonages.

09/08/2010, 17h11
vmolines

L'idéal étant d'utiliser des constantes. Quand on voit des chaines en dur à répétition, ça ne sent pas bon en général.

Pour répondre à vmolines : :zoubi:
- Les index ou incrément I et J sont des variables prenant une valeur de 1 à ... pour I (nbre de lignes) et de 1 à 7 pour J (nbre de colonnes, dans ce cas 7). En conséquence il n'y a pas d'erreur de ce côté.

Pour répondre à Bowen : :ccool:
J'ai effectivement patogé dans mon affectation du Titre et du libellé d'ou l'erreur. Pour l'heure, çà marche.
Il me faut maintenant traiter les informations pour savoir si je dois ou non l'intégrer dans ma table interne car il sagit bien d'un import avec comparaison (imaginons intégrer des contacts d'outlook dans une table windev (sans doublon pour les noms et avec modif éventuelle pour les descriptifs, en sachant que l'application prioritaire doit être définit au préalable)

SINON, merci à tous deux, chapeau bas...
Pour les documents d'aide, cà manque cruellement de clarté ... Je n'ai pas les moyens de me faire des stages... dommage car l'outil est sympa mais complexe à exploiter sans çà !

Voilà la correction :
Code:

1 2 3 4 5 6 // Je clone 4 fois la colonne3 qui est de type chaine 50 (soit : colonne4, colonne5, colonne6, colonne7) POUR i = 4 A 7 ChampClone(COL_Colonne3,"COL_Colonne" + i) {"COL_Colonne"+ i,indChamp}..Libellé = "COL_Colonne" + i // Affiche COL_Colonne+i en mode création, par programmation, pas utile ??? {"COL_Colonne"+ i,indChamp}..Titre = "Colonne" + i // Affiche Colonne+i par programmation FIN

09/08/2010, 18h51
GCASPIC10

Ca n'est pas encore le TOP...

En effet le clonage est géré "virtuellement" car les colonnes ajoutées ponctuellement ne sont pas mémorisées en dur dans le programme.

1°) Il me faut maintenant aller lire ces colonnes pour y effectuer d'autres traitement. A voir par quelle méthode le faire !

2°) D'autre part et je crois que c'est là le plus gênant car, lorsque je change de feuille excel, le nombre de colonne n'est pas à l'identique. Dans ce cas, il me faut soit ajouter d'autres colonnes ou et c'est là qu'est le binz, en supprimer. Comment gérer une suppression de colonne clonée ?

N'y a t'il pas une autre méthode ???
10/08/2010, 09h36
hpascal

Bonjour

Tu peux mémoriser la liste des colonnes clonées dans un tableau. C'est pratique pour les manipuler par la suite.

Citation:

Comment gérer une suppression de colonne clonée ?

ChampSupprime
En parcourant le tableau indiqué ci-dessus il est facile de supprimer toutes les colonnes clonées

A noter que TableSupprimeTout ne supprime pas les colonnes clonées
10/08/2010, 10h27
Bowen
En s'y prenant autrement, le code serait également plus clair.
1. Créer une variable globale à la fenêtre, qui contient le nombre de colonnes dans la table au lancement de la fenêtre. (mettons "gnNbColOrigine"
2. Utiliser une constante pour la partie fixe du nom de la colonne
3. Quand il y a besoin d'ajouter une colonne à la table, s'assurer qu'elle ne contient pas déjà de colonnes. Pour ça parcourir les colonnes à partir gnNbColOrigine+1 et les supprimer (cf. TableEnumèreColonne)
4. Pour ajouter les données à la table, utiliser soit les indirections, soit FichierVersTableMémoire.
D'une manière générale, pour éviter de confondre les noms et titres, il faut savoir que les accès par code sont toujours faits sur les noms.
Seule la propriété ..titre permet de lire/écrire le titre de la colonne.
Le code que tu veux mettre en place est faisable, j'ai fait un code un peu similaire qui lit des paramètres en lignes et les place en colonnes (avec un nombre de colonnes variable donc)

Ce code fonctionne correctement .
en faite il faut cloner avec le nom de la colonne "Col_Colonne" et non pas "Colonne"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
TableSupprimeTout(TABLE_Table1)
xlsID est un entier = xlsOuvre("C:\testxls.xls")
Nbcolonnes est une entier = xlsNbColonne(xlsID,Faux)
NbLignes est un entier = xlsNbLigne(xlsID,Faux)
 
 
i est un entier
POUR i = 4 A 7
	ChampClone(COL_Colonne3,"Col_Colonne" + i) // nom du champ destination doit etre semblable au champ clone de la table 
	{"Col_Colonne"+ i,indChamp}..Libellé = "Col_Colonne" + i	
	{"Col_Colonne"+ i,indChamp}..Titre = "Colonne" + i		
FIN
 
j est un entier
POUR I = 1 A NbLignes
	TableAjouteLigne(TABLE_Table1)
	POUR J= 1 A Nbcolonnes
		Machaine est une chaîne= "Col_Colonne"+J
		Machaine="TABLE_Table1."+Machaine
		{Machaine}[i]=xlsDonnée(xlsID,I,J,Faux)
	FIN
FIN
xlsFerme(xlsID)

:ccool:

J'espère vous avoir aider ;)

11/08/2010, 13h54
GCASPIC10

Pour répondre à rhabib,

Oui celà fonctionne maintenant avec le code que j'ai inscrit et que tu as repris dans ton message.

Je n'ai pas fermé la discussion dans l'espoir d'avoir une autre solution que le clonage, car la suppression des colonnes clonées (virtuelles) n'est pas réalisable en l'état.

Il semble falloir passer par des variables (voir ci-dessus le message de BOWEN) et là je n'ai pas encore essayé (çà se bouscule un peu dans ma tête et il me faut un peu de recule !).

Dommage que les Q/R ne soit plus interactive (c'est comme ci on parlait comme ITINERIS), par accoups:mouarf:

Salutations
11/08/2010, 14h02
Bowen

Citation:

Envoyé par GCASPIC10

Pour répondre à rhabib,

Oui celà fonctionne maintenant avec le code que j'ai inscrit et que tu as repris dans ton message.

Je n'ai pas fermé la discussion dans l'espoir d'avoir une autre solution que le clonage, car la suppression des colonnes clonées (virtuelles) n'est pas réalisable en l'état.

Il semble falloir passer par des variables (voir ci-dessus le message de BOWEN) et là je n'ai pas encore essayé (çà se bouscule un peu dans ma tête et il me faut un peu de recule !).

Dommage que les Q/R ne soit plus interactive (c'est comme ci on parlait comme ITINERIS), par accoups:mouarf:

Salutations

Les variables dont je parle dans le message ne sont pas là spécifiquement pour la suppression. Elles sont là pour être sûr d'avoir toujours le même début de nom de colonne.
La suppression fonctionne très bien, grâce au ChampSupprime().
12/08/2010, 09h10
rhabib

tu peux toujours utiliser des colonnes invisibles ça marche aussi :mrgreen: