Arrondi innexpliqué .

**santanas2b** · 30/05/2013, 11h46

Bonjour à tous .. Oui je sais je fais beaucoup de demandes d'aide ces temps si

Mais c'est tout simplement parceque j'ai des soucis on peux dire innexpliqué . Pour blondelle , c'est toujours le même projet . Et en fait a l'étape où je suis , il y a quelques lignes qui beugguent . Je m'explique . Donc je convertis un code CIP13 en CIP7.. Jusque là tout va bien.

En quelques sortes .. Du code de ce format là ,

340092xxxxxxxx
340093xxxxxxxx
340094xxxxxxxx

Et .. Puis ..Tout en bas de la colone (quand je tri par ordre croissant par exemple)..

34009499xxxxx

Et le 499 quand je le récupère dans ma chaîne de carractère . Devient 3400500xxxxxx
... Et c'est pas bon du tout !

Ça arrondit donc au supérieur . Que faire pour éviter cela?

**santanas2b** · 30/05/2013, 11h56

J'ai peu être une idée . Il faudrait si on peux changer le format des cellulles de la colonne en nombre et pas en standard

**santanas2b** · 30/05/2013, 12h42

J'ai donc fait pour que ca passe en format "Nombre" . Cependant .. Ca continue a arrondir .. je ne comprends vraiment pas il n'y a pas de raison. Même dans la cellulle il y a marqué 499

**blondelle** · 30/05/2013, 13h02

Pour mettre une colonne en numerique sans chiffre apres la decimale

Code :

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

1
2
3
4
5
 
int finCol = vWorksheet.OlePropertyGet("Range", "A1").OlePropertyGet("SpecialCells", 11).OlePropertyGet("Row");
// Cells ligne, colonne
vWorksheet.OlePropertyGet("Range", vWorksheet.OlePropertyGet("Cells", 2, 1), vWorksheet.OlePropertyGet("Cells", finCol, 1)).OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OlePropertySet("NumberFormat", "0");

**santanas2b** · 30/05/2013, 15h05

Oui effectivement , bon je l'avais déjà fait c'est vrai que j'aurais pu poster pour les autres par exemple . Comme j'avais dit ca je l'avais déjà fait . mais l'erreur reste encore :s En fait , le soucis viens au niveau du 5ème 6ème et 7ème chiffre .

Soit

3400949954358
se transforme en
3400950054358

.. Et je ne vois vraiment pas pourquoi .. Surtout que dans excel il s'affiche en

34009499xxxxx
.. Mais quand je le récupère avec le fonction , ca le transforme en ce que j'ai dit plus haut..

PS : J'ai un peu avancé dans le programme mais toujours ce problème

**blondelle** · 31/05/2013, 17h10

Excel ne fait pas d'arrondi sauf si on l'a programme, il faut voir comment tu capture et comment tu traite tes valeurs, il faut aussi etre sur que la valeur que tu receptionne est bien celle que tu veux, mauvaise capture mauvais trie....

**santanas2b** · 03/06/2013, 10h04

Bah déjà j'ai fait un tri par ordre croissant et décroissant . donc tout ce qui est en dessous de 3400920000000 et supprimé
et tout ce qui est au dessus de 3400949999999 est supprimé aussi .

Donc en gros .. Il ne reste plus que ce qui est encadré au milieu . Les Valeurs CIP . Je les récupurères dans une chaîne de carractère . Et je ne sais par quel miracle . Le 499 se transforme en 500 . Il faudrait que je t'envois les fichiers pour que tu comprenne

**blondelle** · 03/06/2013, 11h30

Poste le fichier tel qu'il est apres traitement avant de recuperer les chaines.
dis moi dans l'ordre ce que tu a fait, j'ai supprime tel colonne, tel ligne, trie sous tel critere .....

**santanas2b** · 03/06/2013, 12h54

-Supprimé les colone
C - D - E - F - G - H - I - E - J - K - L - N - P - R - T - V - X - Z - AB - AD - AF - AH -
-------------------------------------------------------
-Addition du contenu des colones suivantes :

M - O - Q - S - U - W - Y - AA - AC - AE - AG - AI
---------------------------------------------------------------
Ecriture du résultat dans la colone C
------------------------------------------

Supression des colones :

M - O - Q - S - U - W - Y - AA - AC - AE - AG - AI

---------------------------------------------------------------------

Transformation de la colone A en type "Nombre";

-----------------------------------------------------------------

Tri de la colone C par ordre croissant .
-----------------------------------------------------------------

Suppression des lignes dont les valeurs de la colonne C est inférieure à 7

--------------------------------------------------------------------------

Tri de la colone A par ordre croissant

----------------------------------------------------------------------

Supression des lignes dont la valeur de A est inférieure a 3400920000000

-------------------------------------------------------------------------

Tri colone A ordre décroissant

-------------------------------------------------

Supression supérieur à 3400949999999

-----------------------------------------------------------

Conversion de CIP 13 en type CIP 7 de la colone A

: Passer de 3400926458791 à 2645879

Problème a ce niveau là sur les valeurs resemblant à

34009499xxxxx
Qui se tranforme en 34009500xxxxx lorsque je le met dans une chaîne de carractère .

------------------------------------------------------------

Toujours pas résolu :

Comparaison avec un autre fichier . Pour supprimer la ligne si la valeur de la cellule de la colonne a ne se trouve dans aucune cellule de la colonne A de l'autre fichier.

------------------------------------------------------------

PS : Je t'envois le programme pour que tu puisses bien comprendre . les fonctions sont dans Bibli.cpp . Qui est relié a la bibliotèque Bibli.h mais ça je penses que ce n'était pas nécessaire de te le dire . Je d’envois ça en privé.

**santanas2b** · 03/06/2013, 13h04

Je ne trouves pas comment envoyer un fichier en Privé x)

**blondelle** · 03/06/2013, 13h18

Je ne pense pas que cela soit possible, je vais regarde a partir du fichier pharma, en suivant ton cheminement de programme et voir si au final j'ai aussi des valeurs qui changent.
je poste des que j'ai termine

**santanas2b** · 03/06/2013, 15h08

Tiens voici le programme
et le fichier final

**santanas2b** · 03/06/2013, 16h03

Après vérification de plusieurs cellulles.. je ne comprends pas pourquoi... La conversion se fait mal et aucun code CIP ne correspond

Edit : L'erreur d'arrondi venait du fait que je rentrait le "Double" dans un float . Cependant . Je suis toujours bloqué a la comparaison des fichiers

**blondelle** · 04/06/2013, 15h22

Voila ce que j'ai fait j'ai supprime les boucles qui on été remplacees par des fonctions Excel, dans la boucle unique je supprime et trie les cellules

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "utilcls.h" // <-----------
#include "StrUtils.hpp" // <------------
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Variant vMSExcel, vXLWorkbooks, vXLWorkbook, vWorksheet;
Variant vFileName;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
     : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
try
 {
    vMSExcel = Variant::GetActiveObject("Excel.Application");
}
 catch(...)
 {
    vMSExcel = Variant::CreateObject("Excel.Application");
}
vMSExcel.OlePropertySet("Visible", true);
vFileName = ("C:\\Users\\home\\Documents\\PharmaExcel\\pharma\\pharma.xls");
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", WideString(vFileName));
// ici le fichier pharma.xls est charge dans la feuille 1
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets", 1);
// on arrete le rafrechissement ecran
vMSExcel.OlePropertySet("ScreenUpdating",false);
// on efface les colonnes
// de C a L, N, P, R, T, V, X, Z, AB, AD, AF, AH
vWorksheet.OlePropertyGet("Range", "C:L").OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OleProcedure("ClearContents");
vWorksheet.OlePropertyGet("Range", "N:N").OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OleProcedure("ClearContents");
vWorksheet.OlePropertyGet("Range", "P:P").OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OleProcedure("ClearContents");
vWorksheet.OlePropertyGet("Range", "R:R").OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OleProcedure("ClearContents");
vWorksheet.OlePropertyGet("Range", "T:T").OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OleProcedure("ClearContents");
vWorksheet.OlePropertyGet("Range", "V:V").OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OleProcedure("ClearContents");
vWorksheet.OlePropertyGet("Range", "X:X").OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OleProcedure("ClearContents");
vWorksheet.OlePropertyGet("Range", "Z:Z").OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OleProcedure("ClearContents");
vWorksheet.OlePropertyGet("Range", "AB:AB").OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OleProcedure("ClearContents");
vWorksheet.OlePropertyGet("Range", "AD:AD").OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OleProcedure("ClearContents");
vWorksheet.OlePropertyGet("Range", "AF:AF").OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OleProcedure("ClearContents");
vWorksheet.OlePropertyGet("Range", "AH:AH").OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OleProcedure("ClearContents");
// addition des colonnes
// M - O - Q - S - U - W - Y - AA - AC - AE - AG - AI
// on ecrit les formules d'addition pour chaque colonne
// derniere ligne
int finCol = vWorksheet.OlePropertyGet("Range", "A1").OlePropertyGet("SpecialCells", 11).OlePropertyGet("Row");
// ecriture de la formule en C2
// le resultat de la somme de la colonne M sera en C1
vWorksheet.OlePropertyGet("Range", "L2").OlePropertySet("Formula", WideString("=SOMME(M2:AI2"));
// recopie la formule jusque en bas de la colonne C
Variant fillRange = vWorksheet.OlePropertyGet("Range", WideString("L2:L" + IntToStr(finCol)));
vWorksheet.OlePropertyGet("Range", "L2:L2").OleProcedure("AutoFill", fillRange);
vWorksheet.OlePropertyGet("Range", WideString("L2:L" + IntToStr(finCol))).OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OleProcedure("Copy");
vWorksheet.OlePropertyGet("Range", WideString("C2:C" + IntToStr(finCol))).OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OleProcedure("PasteSpecial", -4163, -4142, false, false);
vMSExcel.OlePropertySet("CutCopyMode", false);
// on efface les cellules de M a AI
vWorksheet.OlePropertyGet("Range", "L:AI").OleProcedure("Select");
vMSExcel.OlePropertyGet("Selection").OleProcedure("ClearContents");
// trie de C inutile
int depart = 2;
for(finCol; finCol >= depart; finCol--)
{
// on recupere le contenu de la cellule
// Cells ligne, colonne
int vCell = vWorksheet.OlePropertyGet("Cells", finCol, 3).OlePropertyGet("Value");
String vCell1 = vWorksheet.OlePropertyGet("Cells", finCol, 1).OlePropertyGet("Value");
// Supression en C supérieur à 7
// Supression en A supérieur à 3400949999999
// Supression en A inférieure a 3400920000000
if(vCell <= 6 || vCell1 > 3400949999999 || vCell1 < 3400920000000)
     {
     vWorksheet.OlePropertyGet("Rows", finCol).OleFunction("Select");
     vMSExcel.OlePropertyGet("Selection").OleFunction("Delete", -4162);
     }
else
     {
     int lng = vCell1.Length();
     String vCellMid = MidStr(vCell1, 6, lng - 6);
     vWorksheet.OlePropertyGet("Cells", finCol, 1).OlePropertySet("Value", WideString(vCellMid));
     }
}
int fin = vWorksheet.OlePropertyGet("Range", "A2").OlePropertyGet("SpecialCells", 11).OlePropertyGet("Column");
Variant vCol, vRange;
vCol = vWorksheet.OlePropertyGet("Columns", 1);
// Cells ligne, colonne
vRange = vWorksheet.OlePropertyGet("Range", vWorksheet.OlePropertyGet("Cells", 1, 1), vWorksheet.OlePropertyGet("Cells", finCol, fin));
vRange.OleProcedure("Sort", vCol, 1); // 1  xlAscending , 2 xlDescending
// on retabli le rafraichissement ecran
vMSExcel.OlePropertySet("ScreenUpdating",true);
}

Teste le et dis moi si cela fonctionne, quand a comparer deux fichiers Excel je pense que cela est possible, mais je ne sais pas comment

**santanas2b** · 04/06/2013, 15h40

Pourquoi penses tu que le tri de C est inutile ? Je le fait pour eviter de faire toutes les lignes . PS : Je suis e trian de lire le prog . pas encore testé ^^ )

**santanas2b** · 04/06/2013, 15h46

Pour le comparateur d'excel . je pensais ouvrir les deux en même temps et utiliser la commande Find , Je viens de faire quelques test par si par là . Et j'ai remarqué que quand tu utilises find . S'il ne trouve rien . la valeur de vCell.intVal reste à 0 si tu l'a initialisé ainsi . Et si il trouve il prends une autre valeur . Donc on pourrais faire un truc similaire . Qu'est-ce que t'en penses ? Avec une boucle Etc

.. D'ailleurs en partant de cette idée . En bossant ensemble . Nous pourrions faire un outil utile

Le comparateur de Excel . plutôt que Excel comparator où il est obligé d'avoir une connexion a internet

Qu'est-ce que t'en penses? .. Tout partirait de ce qu'on bosses déjà .

**blondelle** · 04/06/2013, 15h46

Je pense que ton probleme vient d'un trie, de plus toutes les boucles dans Excel consomment enormement de temps

**santanas2b** · 04/06/2013, 15h51

J'avais remarqué pour les boucles . Parcontre . Le problème je l'avais résolu . Je l'avais écris en Edit . Mais si ce que tu as mis peux accéléré le programme . Je vais regarder . En fait le problème venait du fait que j'avais utilisé la fonction :

Code :

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

float val = vWorksheet.OlePropertyGet("Cells", depart , 1).OlePropertyGet("Value);

J'ai utilisé un float au lieu d'un Double ^^ . Du coup ça plantait

PS : Tu avais regardé le programme que j'avais posté aufait ?
Quelques messages plus haut

**blondelle** · 04/06/2013, 16h26

Je n'aime pas le travail via le Web, probleme de connection lenteur éventuellement piratage
Il faut déjà savoir ce que tu veux comparer, si la comparaison est vraie ou fause ce que tu fais

**santanas2b** · 05/06/2013, 15h06

Problème résolu . Programme terminé . Tout est fonctionnel . Comparaison---> OK . Prochaine fois je ferais un Excel comparator

Arrondi innexpliqué . [Débutant]

C++Builder

Discussions similaires

Partager

Partager