Copier/Coller Ligne de champs table

Bonjour

J'ai un champs Table remplie par programmation, je cherche le moyen de faire un bouton pour copier la ligne sélectionnée et un bouton pour coller les éléments dans une ligne sélectionnée mais je ne trouve pas.

Si je vais un clic droit j'ai bien copier la ligne mais je n'ai pas coller ?

Merci par avance

Bonjour,

Ce n'est pas prévu dans les FAA, il faut coder la fonctionnalité.

Bonjour,

Effectivement, par programmation, vous pouvez mémoriser les valeurs, de la ligne à copier, dans des variables.
Ensuite, les dupliquer dans la ligne à insérer ou à ajouter.
Quand la table contient plusieurs colonnes, ce n'est pas pratique.

Je vous propose cette solution.
Dans la fenêtre, initialiser une variable globale, gnXLigne est un entier

Créer 2 boutons :

- Bouton "Mémoriser n° ligne" destination de la copie
- Bouton "Dupliquer ligne"

1- par programmation, ajouter (ou insérer une ligne à blanc) dans la table
2- positionner le bandeau de sélection sur la nouvelle ligne
3- cliquer sur le bouton "Mémoriser n° ligne"
4- positionner le bandeau de sélection sur la ligne à dupliquer
5- cliquer sur le bouton "Dupliquer ligne"
6- modifier éventuellement, la cellule de la ligne ajoutée (colonne de tri).

Code bouton "Mémoriser n° ligne"

Code:

---

1 2 3

gnXLigne=TableSelect(TABLE_Table1) Info("Destination de la copie --- ligne n° "+NumériqueVersChaine(gnXLigne))

---

Code bouton "Dupliquer ligne"

Code:

---

1 2 3 4

POUR i=1 _A_ TableOccurrence(TABLE_Table1,toColonne) TABLE_Table1[gnXLigne][i] = TABLE_Table1[TABLE_Table1][i] FIN

---

Bonjour,

L'idée de midou23175 est intéressante mais j'aurais fais une présentation façon Windows :
1- Créer une variable globale gnXLigne de type Entier avec pour valeur défaut -1
2- Créer un menu contextuel qui va être rattaché au champ table, ce menu aura 2 options : copier la ligne, coller
3- Contenu de l'option copier la ligne :

Code:

---

1 2 3 4 5

si Table_MaTable..Occurrence>0 ET Table_MaTable>0 Alors gnXLigne =Table_MaTable // Table_MaTable ou TableSelect(Table_MaTable) retourne le même résultat Sinon gnXLigne=-1 FIN

---

4- Contenu de l'option coller :

Code:

---

1 2 3 4 5 6 7 8 9 10

Si gnXLigne>0 ET Table_MaTable>0 Alors Table_MaTable[Table_MaTable]=Table_MaTable[gnXLigne] Sinon SI gnXLigne=-1 Alors Erreur("Vous n'avez pas copié la ligne") Sinon Erreur("Vous devez sélectionner la ligne à coller") Fin Fin gnXLigne=-1

---

Bonjour,

@Romulus001

Effectivement, "copier" et "coller" est plus pratique que "mémoriser" et "dupliquer"
Bien que je savais que TABLE_MaTable[gnXLigne], renvoie toutes les cellules de la ligne,
mais, je n'ai pas pensé du tout que l'on peut les répercuter en bloc dans la ligne de destination par simple affectation :

Code:

---

1 2	Table_MaTable[Table_MaTable]=Table_MaTable[gnXLigne]

---

chose qui m'a échappé.
Remarque :
on peut utiliser directement une variable chaine, sans passer par la variable numéro de ligne

- option copier

Code:

---

1 2	gsXChaine = Table_MaTable[Table_MaTable]

---

-option coller

Code:

---

1 2	Table_MaTable[Table_MaTable] = gsXChaine

---

En tout cas, Merci à vous

Bonjour dans mon cas aucun des deux ne fonctionnent :


- Pour la proposition de Romulus le "Copier" pas de problème mais le "Coller" j'ai une erreur :

Erreur à la ligne 2 du traitement Sélection du menu de MENU_SansNom1.OPT_Coller.
Vous avez appelé l'opérateur [] sur le champ TABLE_PDCLigne.
L'indice spécifié [278] est invalide.
Les valeurs valides sont comprises entre 1 et 6 (inclus).

- Pour la proposition de Midou l'erreur apparaît dès le "Copier" :

Erreur à la ligne 1 du traitement Sélection du menu de MENU_SansNom1.OPT_Copier.
Vous avez appelé l'opérateur [] sur le champ TABLE_PDCLigne.
L'indice spécifié [292] est invalide.
Les valeurs valides sont comprises entre 1 et 1 (inclus).

Et ce 278 qui apparaît ici , il vient d'où ?

Il faut
- Soit que tu donnes les éléments pour qu'on t'aide
- Soit que tu réfléchisses.


Windev te donne un indice très utile : il te dit que tu essaies d'accéder à la ligne 278 de ta table (pour lire les données ou pour modifier les données) Et il te dit que l'indice 278 est invalide, parce qu'il n'y a que 6 lignes dans la table. Tu as donc tous les éléments pour avancer.

Bonjour,

J'ai fait les tests pour les 2 propositions, il n'y a pas d'erreur, dans le cas d'une table mémoire.
Par contre, pour la table fichier, il y a erreur.
Si je me souviens bien, la TABLE_PDCLigne est une table fichier ?

Le problème pour la table fichier se situe, dans l'indice de la ligne. Donc, il ne faut pas l'utiliser.
Pour éviter cette erreur, je reprends la proposition de Romulus001, en apportant quelques aménagements.

soit un menu contextuel, rattaché à la table :
- Copier la ligne
- Coller la ligne
- Supprimer la ligne

variable globale, gsXLigne est une chaine

- copier ligne

Code:

---

1 2 3 4

SI TABLE_MaTable <> -1 ALORS gsXLigne = TABLE_MaTable[TABLE_MaTable] FIN

---

- coller ligne

Code:

---

1 2 3 4 5 6 7 8 9 10 11

SI gsXLigne <> "" ALORS // pour coller avec insertion d'une nouvelle ligne TableInsère(TABLE_MaTable, gsXLigne)   // ou bien pour coller sur une ligne existante déjà TABLE_MaTable[TABLE_MaTable] = gsXLigne gsXLigne = "" SINON Info("Copier d'abord la ligne à dupliquer") FIN

---

Remarque :
- le passage par la variable chaine n'est pas indiquée, si la table contient une colonne type image

Bonjour j'ai toujours le même problème :

Erreur à la ligne 2 du traitement Sélection du menu de MENU_SansNom1.OPT_Copier.
Vous avez appelé l'opérateur [] sur le champ TABLE_PDCLigne.
L'indice spécifié [302] est invalide.
Les valeurs valides sont comprises entre 1 et 10 (inclus).

Pourtant j'ai :

Déclarations globales :

Code:

---

gsXLigne est une chaîne

---

Code sous MENU_Copier :

Code:

---

1 2 3

SI TABLE_PDCLigne <> -1 ALORS gsXLigne = TABLE_PDCLigne[TABLE_PDCLigne] FIN

---

Code sous MENU_COLLER :

Code:

---

1 2 3 4 5 6 7 8 9 10

SI gsXLigne <> "" ALORS // pour coller avec insertion d'une nouvelle ligne TableInsère(TABLE_PDCLigne, gsXLigne)   // ou bien pour coller sur une ligne existante déjà TABLE_PDCLigne[TABLE_PDCLigne] = gsXLigne gsXLigne = "" SINON Info("Copier d'abord la ligne à dupliquer") FIN

---

Bonjour,
Serait-il possible d'avoir une copie écran stp ?
Ou au moins une liste des données traitées.

No Problem

Pièce jointe 323686

Pièce jointe 323691

Avec tes données de test, on comprendrait mieux d'où peut venir le problème.

C'est à dire ?

Les données qui servent à tester ton code.
Une copie écran de ton champ table rempli avec les données.

Pièce jointe 323693

Mais c'est que vous devenez exigeant en plus :ptdr:

Donc, je récapitule :
-Ton champ est rempli par programmation (via TableAjouteLigne) cf post du 27/10 - 0940
-Lorsque tu veux copier une ligne eg la ligne 1 sur la copie écran ci-dessous, tu as un message d'erreur te précisant que l'index est trop grand
Pièce jointe 323733

Est-ce que ton champ table a des colonnes cachées ?

Oui plein, une vrai chasse au trésor :whistle:

Entre autre IDPDCLigne et Ordre

Chaque rubrique PDCLigne à sa colonne, dans beaucoup il y a des résultats de calcul de variable qui leurs sont associés.

Rhoooo les fautes désolé, je suis ambidextre, je fais aussi bien des fautes de la main droite comme de la gauche :pastaper:

Bonjour,

Constat :
- Dans une table mémoire, faire référence à l'indice de la ligne, ne pose aucun problème, dans "copier" et "coller"
soit gnXLigne = TABLE_MaTable, renvoie toujours l'indice de la ligne

- Dans une table fichier, cela pose problème.
si rubrique mémorisée (volet de la table Contenu) = "Défaut", renvoie l'indice de la ligne
si rubrique mémorisée, autre valeur que "Défaut", peut renvoyer une valeur différente de l'indice de la ligne, d'où l'erreur

IMPORTANT, dans description de la table, volet contenu, sélectionner valeur "Défaut" pour rubrique mémorisée.

Vous avez le choix entre les propositions :
- passage par la variable, gnXLinge
- passage par la variable, gsXLigne

Pour le passage par variable gnXLigne, revoir messages précédents

Proposition avec passage, avec la variable gsXLigne

- option copier ligne

Code:

---

1 2 3 4

SI TABLE_MaTable <> -1 ALORS gsXLigne = TABLE_MaTable[TABLE_MaTable] FIN

---

- option coller la ligne

1- soit coller sur une ligne existante déjà

Code:

---

1 2 3 4 5 6 7

SI gsXLigne <> "" ALORS TABLE_MaTable[TABLE_MaTable] = gsXLigne gsXLigne = "" SINON Info("Copier d'abord la ligne à dupliquer") FIN

---

2- soit coller avec insertion d'une nouvelle ligne

Code:

---

1 2 3 4 5 6 7

SI gsXLigne <> "" ALORS TableInsère(TABLE_MaTable, gsXLigne) gsXLigne = "" SINON Info("Copier d'abord la ligne à dupliquer") FIN

---

et surtout n'oubliez pas TableEnregistre(), cas table n'est pas en saisie avec cascade.

Dans ton code, ajoute :

Code:

---

1 2 3 4

Trace("IDPDCLigne : "+TABLE_MaTable.COL_IDPDCLigne) Trace("Ligne Sélectionnée : "+TableSelect(TABLE_MaTable)) Trace("Théorique : "+TABLE_MaTable..Valeur)

---

Voroltinquo, je l'ajoute ou ton code ?

@Bill_Watergate

Il me semble que mon message que je viens tout juste d'envoyer, est passé inaperçu

1- dans description table, volet contenu, pour rubrique mémorisée, sélectionner "Défaut"
2- dans votre code "coller la ligne", il faut soit coller avec insertion d'une nouvelle ligne ou coller sur ligne courante,
mais pas les deux à la fois.

En tout cas, mon message précédent, est plus détaillé

Exact midou23175,


Ca marche, merci

:yaisse:

@Bill:
Dans le code de copier.
Si tu veux conserver IDPDCLigne comme valeur retournée, utilise TableSelect pour renvoyer l'indice.
Rappel : un champ table, liste, combo rempli par programmation est un champ rempli via Table/ListeAjouteLigne
@Mildou:
Nos post se sont télescopés.
Il me semble aussi, que son champ table est rempli via un sa table PDCLigne et non par programmation et que la valeur retournée est IDPCDLigne.

En tout cas ça a l'air de fonctionner.

Désolé je ne suis pas informaticien, je découvre en autodidacte et comme l'a dit un humoriste américain : "Comme la Hongrie, le monde informatique a une langue qui lui est propre. Mais il y a une différence. Si vous restez assez longtemps avec des Hongrois, vous finirez bien par comprendre de quoi ils parlent" mais je ne perds pas espoir :mouarf3:

Merci pour votre patience et votre temps.

@Voroltinquo

On a été pris à contre-pied, par champ rempli par programmation,
jusqu'à ce qu'on découvre qu'il s'agissait d'une table fichier, avec ce message d'erreur :

Citation:

---

Envoyé par Bill_Watergate

- Pour la proposition de Romulus le "Copier" pas de problème mais le "Coller" j'ai une erreur :

Erreur à la ligne 2 du traitement Sélection du menu de MENU_SansNom1.OPT_Coller.
Vous avez appelé l'opérateur [] sur le champ TABLE_PDCLigne.
L'indice spécifié [278] est invalide.
Les valeurs valides sont comprises entre 1 et 6 (inclus).

---

Ce genre de message d'erreur, je l'ai rencontré par le passé. Mais, je n'ai pas pu le comprendre.
Grâce à l'entraide, on comprend aisément, le message de windev "indice 278", soit la valeur renvoyée "PDCLigne.IDPDCLigne".

Merci à tous les intervenants.

Je crois que quand un débutant pose une question à propos d'une table ou d'une liste dans Windev, il faut systématiquement partir de l'hypothèses que c'est une table fichier ou une liste-fichier. Même s'il dit que c'est une table remplie par programmation, parce que de son point de vue, il est en train de faire de la programmation.
Quand un débutant utilise des tables remplies par TableAjouteLigne(), c'est qu'il a passé un certain cap et qu'il est quasi-autonome.

Bonjour,

Citation:

---

Envoyé par Voroltinquo

Dans ton code, ajoute :

Code:

---

1 2 3 4

Trace("IDPDCLigne : "+TABLE_MaTable.COL_IDPDCLigne) Trace("Ligne Sélectionnée : "+TableSelect(TABLE_MaTable)) Trace("Théorique : "+TABLE_MaTable..Valeur)

---

---

Je me permets d'approfondir l'approche par TableSelect().
Le résultat est concluant, avec rubrique mémorisée (de la table), élément autre que "Défaut"

1- passage par gnXLigne (entier)

- option copier ligne

Code:

---

1 2	gnXLigne = TableSelect(TABLE_MaTable)

---

- option coller la ligne

1.1- avec insertion d'une nouvelle ligne

Code:

---

1 2	TableInsère(TABLE_MaTable, TABLE_MaTable[gnXLigne])

---

1.2- coller sur ligne courante

Code:

---

1 2	TABLE_MaTable[TableSelect(TABLE_MaTable)] = TABLE_MaTable[gnXLigne]

---

2- passage par gsXLigne (chaine)

- option copier ligne

Code:

---

1 2	gsXLigne = TABLE_MaTable[TableSelect(TABLE_MaTable)]

---

- option coller la ligne

2.1- avec insertion d'une nouvelle ligne

Code:

---

1 2	TableInsère(TABLE_MaTable, gsXLigne)

---

2.2- coller sur ligne courante

Code:

---

1 2	TABLE_MaTable[TableSelect(TABLE_MaTable)] = gsXLigne

---

soit remplacer [TABLE_MaTable] par [TableSelect(TABLE_MaTable)]

Comme vous l'avez bien pensé, dans une table fichier, avec rubrique mémorisée différente de "Défaut" :
- TABLE_MaTable renvoie la valeur de la rubrique mémorisée
- TableSelect(TABLE_MaTable) renvoie l'indice de la ligne.

Au risque de paraître vraiment con, quel est l'avantage de travailler en table mémoire plus qu'en table fichier ?

:cfou:

Bonjour,

Je préfère comme vous, travailler en table fichier, sauf que dans description table,
volet contenu, il y a un sélecteur "Remplissage" avec les options :
- Par programmation
- Par variable
- Par Fichier/Requête

c'est la coïncidence avec l'intitulé de cette option "remplissage par programmation" (du sélecteur) qui nous a dérouté

Cordialement.

Bonjour,

Pour ma part, je remplis mes champs tables de plus en plus souvent par databinding à l'aide d'une variable globale, la dernière fois que j'ai procédé ainsi, c'était pour alimenter une table de plus de 50 colonnes, bien entendu, chacun est libre d'adopter la méthode qui lui convient le mieux.