Discussion :

[Bzik59]

Bonjour le forum.
Juste pour vous demander de m'aider pour avoir un code généralisé pour modifier les données de toutes les cellules d'une colonne d'une table.
Voici le code pour écrire et modifier le contenu de la ligne 7.
Je veux appliquer et généraliser ce code de la ligne 7 jusqu'à la ligne 107 de MaTable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
i,j,k est un entier 
Res est une chaîne 
Pour i = 3 A 12
    Res = TablEnumèreColonne(MaTable,i)
    SI {Tes,indChamp}[7] <> '' '' Alors
        k++
    FIN
    TableSelectPlus(MaTable,7)
    MaTable.Col_Nombre[7] = k
FIN
TableEnregistre(MaTable)
HModifie(Base_De_Données)

Merci beaucoup

[Voroltinquo]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
i,j,k est un entier
Res est une chaîne
nLigneTraitée est entier

POUR nLigneTraitée = 7 à 107
     Pour i = 3 A 12
          Res = TablEnumèreColonne(MaTable,i)
          SI {Res,indChamp}[nLigneTraitée] <> '' '' Alors
                k++
          FIN
         TableSelectPlus(MaTable,7)
         MaTable.Col_Nombre[nLigneTraitée] = k
    FIN
FIN
TableEnregistre(MaTable)
HModifie(Base_De_Données)

[tbc92]

A mon avis, TableEnumèreColonne est inutile (et très lent)

On peut remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Res = TablEnumèreColonne(MaTable,i)
          SI {Res,indChamp}[nLigneTraitée] <> '' '' Alors

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 SI MaTable[nLigneTraitée, i] <> " " Alors

[Voroltinquo]

A mon avis, TableEnumèreColonne est inutile

La paire TableEnregistre, HModifie me parait douteuse aussi.

[Bzik59]

Oui c'est pour cela que j'ai demandé de l'aide.
J'ai déjà utilisé ce code mais, à chaque fois et pour chaque ligne , le résultat renvoyé correspond à sa valeur exacte + la valeur de la ligne précédente....etc
Problème de la position de: k++ dans le code.

[Bzik59]

Pardon d'après le code de Tbc92 j'ai le résultat 1,2,3,4,.....

[tbc92]

Juste après l'instruction POUR nLigneTraitée = 7 à 107, ajoute l'instruction k=0.

Je ne sais pas si ma réponse est bonne, parce que je ne sais pas trop ce que tu veux faire.

Mais si ma réponse est bonne, alors tu as un gros problème, et il va falloir que tu apprennes les bases de la programmation. Les bases, les fondations, les généralités. Il faut que tu trouves un tutoriel d'initiation à la programmation, parce que ce qui te manque, ce n'est pas une formation à Windev, c'est une formation à la programmation en général.

[Bzik59]

Oui c'est exactement ça j'ai oublié le k = 0, merci Tbc92