Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement WinDev table vers table en mémoire

table vers table en mémoire

3 réponses
Avatar
JEAN pIERRE
Bonjour

je suis régulièrement les items de ce forum mais comme je suis débutant, la
majorité des ressources et soluces ne me concernent pas (...encore !).
Je prends donc mon courage à deux mains et me lance ... je demande votre
indulgence pour ma requête qui vous paraîtra fastoche mais moi je cherche
depuis quelques jours ...

Autant l'affichage d'une table mémoire dans une table "visible" dans une
fenêtre est largement documenté, autant l'inverse me pose problême.

PB : Je voudrais inscrire dans une table mémoire les données d'une tableau
que j'ai remplie par programmation. En fait j'utilise un copier coller
depuis une tableau Excel.
sTmp, sNom, sPrenom, sClasse, sTmpLigne est une chaîne
NbLignes, nIndexLigne est un entier
sTmp= PressePapier()
NbLignes=ChaîneOccurrence(sTmp,RC)
TableSupprimeTout(Tab_Import)
POUR nIndexLigne=1 A NbLignes
sTmpLigne = ExtraitChaîne(sTmp,nIndexLigne,RC)
sNom = ExtraitChaîne(sTmpLigne,1,TAB,DepuisDébut)
sPrenom = ExtraitChaîne(sTmpLigne,2,TAB,DepuisDébut)
sClasse = ExtraitChaîne(sTmpLigne,3,TAB,DepuisDébut)
TableAjoute(Tab_Import,sNom + TAB + sPrenom + TAB + sClasse)
FIN

J'ai donc un tableau Tab_Import avec 3 colonnes et NbLignes dans une fenêtre
Fen_Import que j'aimerai inscrire dans la table mémoire de même structure
nommée T_Import
Je pense que ce n'est pas très difficile ....
Merci pour toute réponse qui me ferai gagner un peu de temps
Jllya
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Albert
Bonjour,

L'analyse de l'exemple Pilotage de Excel est tres instructif et
contient la classe CExcel qui facilite grandement les opérations

Un bout de code a titre d'exemple :

LOCAL
sFeuille, sLibCompte, sLibTotal, sLibelle sont des chaînes
sIdCpte, sCode, sNomXls sont des chaînes
nLgn, Ind, nNbLgn sont des entiers
bValide est un booléen
nMontant est un réel


// [< Instanciation de la classe Excel >]
Ex1 est un objet CExcel

// [< Ouverture du classeur / Sélectionner la feuille >]
Ex1:Ouvrir(sNomXls)
Ex1:SelectionnerFeuille(sFeuille)

nNbLgn = 50
nLgn = 4

POUR Ind=1 A nNbLgn

sCode = Ex1:sLireValeur("B" + nLgn )
sIdCpte = Ex1:sLireValeur("C" + nLgn )

// [< Libellé >]
SI sCode = "#1" ALORS
sLibCompte = Ex1:sLireValeur("D" + nLgn )
sLibTotal = ""
sLibelle = sLibCompte
FIN

// [< Total >]
SI sCode = "#2" ALORS
sLibCompte = ""
sLibTotal = Ex1:sLireValeur("D" + nLgn )
sLibelle = sLibTotal
bValide = Vrai
FIN

nMontant = Ex1:sLireValeur("F" + nLgn )
nMontant = Arrondi(nMontant,2)

// [< Séparation >]
SI sCode = "#3" ALORS
sIdCpte = ""
TableAjouteLigne(TabComptes, sCode)
bValide = Faux
FIN

Lib_Copie = ChaîneConstruit("Copie des données : %1 %2", sIdCpte,
sLibelle)

SI sCode = "#1" ET nMontant <> 0 ALORS bValide = Vrai

SI bValide = Vrai ALORS

TableAjouteLigne(TabComptes, sCode, sIdCpte, sLibCompte, sLibTotal,
nMontant)

// [< Enregistrer Données >]
Situation.Exercice = sExerc
Situation.Code = sCode
Situation.IDCompte = sIdCpte
Situation.LibCompte = sLibelle
Situation.Montant = nMontant

SI PAS HAjoute(Situation) ALORS
Ouvre("MsgBox", " Erreur", ">>> Impossible d'ajouter un
enregistrement"+RC+HErreurInfo(), 1)
FIN

FIN

bValide = Faux

// [< Jauge >]
ProgresJauge()
Multitâche(5)
nLgn++
FIN

// Libérer [< Objet Excel >]
Ex1:Quitter()

Prenez le temps de consulter et d'analyser les exemples fournis, et
vous gagnerez beaucoup de temps

Bon développement

Albert
Avatar
JEAN pIERRE
Je vous remercie pour votre réponse ...qui m'ouvre un pan entier de la
programmation à étudier !
Pour le moment je n'ai pas encore abordé la POO et j'essaie de m'en sortir
avec le MLD.
Votre conseil d'utiliser les exemples fournis est bon, j'ai parcouru les
exemples - il y a peut être la réponse- mais je n'ai pas trouvé, c'est
pourquoi je me suis permis de poser la question ici.

Je précise que l'importation des données du tableau Excel dans la table
physique Tab_Import marche avec le code que j'ai indiqué : je copie les 3
colonnes dans Excel dans le presse papiers, et je clique sur le bouton
"importer" de la fenêtre Fen-Import dont le code est celui que j'ai indiqué
et les données du presse-papiers sont écrites dans la table Tab_Import;
mais lorsque je quitte la fenêtre, les données sont perdues puisque n'étant
pas consignées dans une table mémoire T_import crée lors de l'analyse, je ne
peux recharger les données à la consultation suivante de la fenêtre.

cordialement
Jllya



"Albert" a écrit dans le message de news:

Bonjour,

L'analyse de l'exemple Pilotage de Excel est tres instructif et
contient la classe CExcel qui facilite grandement les opérations

Un bout de code a titre d'exemple :

LOCAL
sFeuille, sLibCompte, sLibTotal, sLibelle sont des chaînes
sIdCpte, sCode, sNomXls sont des chaînes
nLgn, Ind, nNbLgn sont des entiers
bValide est un booléen
nMontant est un réel


// [< Instanciation de la classe Excel >]
Ex1 est un objet CExcel

// [< Ouverture du classeur / Sélectionner la feuille >]
Ex1:Ouvrir(sNomXls)
Ex1:SelectionnerFeuille(sFeuille)

nNbLgn = 50
nLgn = 4

POUR Ind=1 A nNbLgn

sCode = Ex1:sLireValeur("B" + nLgn )
sIdCpte = Ex1:sLireValeur("C" + nLgn )

// [< Libellé >]
SI sCode = "#1" ALORS
sLibCompte = Ex1:sLireValeur("D" + nLgn )
sLibTotal = ""
sLibelle = sLibCompte
FIN

// [< Total >]
SI sCode = "#2" ALORS
sLibCompte = ""
sLibTotal = Ex1:sLireValeur("D" + nLgn )
sLibelle = sLibTotal
bValide = Vrai
FIN

nMontant = Ex1:sLireValeur("F" + nLgn )
nMontant = Arrondi(nMontant,2)

// [< Séparation >]
SI sCode = "#3" ALORS
sIdCpte = ""
TableAjouteLigne(TabComptes, sCode)
bValide = Faux
FIN

Lib_Copie = ChaîneConstruit("Copie des données : %1 %2", sIdCpte,
sLibelle)

SI sCode = "#1" ET nMontant <> 0 ALORS bValide = Vrai

SI bValide = Vrai ALORS

TableAjouteLigne(TabComptes, sCode, sIdCpte, sLibCompte, sLibTotal,
nMontant)

// [< Enregistrer Données >]
Situation.Exercice = sExerc
Situation.Code = sCode
Situation.IDCompte = sIdCpte
Situation.LibCompte = sLibelle
Situation.Montant = nMontant

SI PAS HAjoute(Situation) ALORS
Ouvre("MsgBox", " Erreur", ">>> Impossible d'ajouter un
enregistrement"+RC+HErreurInfo(), 1)
FIN

FIN

bValide = Faux

// [< Jauge >]
ProgresJauge()
Multitâche(5)
nLgn++
FIN

// Libérer [< Objet Excel >]
Ex1:Quitter()

Prenez le temps de consulter et d'analyser les exemples fournis, et
vous gagnerez beaucoup de temps

Bon développement

Albert
Avatar
Albert
Bonjour,

Avec l'exemple de code que je vous ai fournis, vous pouvez a tout
moment reprendre les enregistrements puisqu'ils ont ete enregistrés
dans un fichier

1 - repris dans une table

TableAjouteLigne(TabComptes, sCode, sIdCpte, sLibCompte, sLibTotal,
nMontant)

2 // [< Enregistrer Données >]

Situation.Exercice = sExerc
Situation.Code = sCode
Situation.IDCompte = sIdCpte
Situation.LibCompte = sLibelle
Situation.Montant = nMontant

SI PAS HAjoute(Situation) ALORS
Ouvre("MsgBox", " Erreur", ">>> Impossible d'ajouter un
enregistrement"+RC+HErreurInfo(), 1)
FIN

Il ne faut pas connaître la POO pour utiliser une classe il faut juste
comprendre son fonctionnement et je pense que dans le cas de CExcel
cette classe est assez simple d'utilisation.

Je pense également qu'il est de loin préférable d'utiliser la classe
CExcel que de passer par le presse papier

Cordialement

Albert