Comment programmer un calcul de surface ? Résolu/Fermé

Question

Bonjour à toutes et à tous, 

Autant préciser tout de suite que je ne connais pas trop Excel (j'utilise la version 97) et encore moins Open Office] (j'utilise la version 3.3), mais j'ai un problème récurent que je souhaiterai éliminer, alors je lance une bouteille sur le net :-)

Voilà mon soucis : 

Je reçois régulièrement des listings de coordonnées au format "nxy.txt" (où n est un numéro de point, x et y ses coordonnées cartésiennes) le tout avec un séparateur "espace". 
Mon problème est de calculer la surface de polygones à partir de ces fichiers (en s'appuyant sur une documentation papier précisant la liste des points formants les différents polygones à calculer). Il s'agit en fait d'une vérification de calculs topométriques.

J'ai trouvé une formule permettant de faire le calcul sur un forum : 

"c'est facile : soit un polygone de n points (le dernier a les mêmes 
coordonnées que le premier, sinon, on ajoute le premier point à la liste)

soit X[1] et Y[1] les coordonnées du premier point et n le nombre de 
points (donc X[n] = X[1] et Y[n] = Y[1])

la surface est la valeur absolue (le signe du résultat dépend du sens de
parcours du polygone) de la somme pour i variant de 1 à n de
( X[i+1] - X[i] ) * ( (Y[i] + Y[i+1] - 2*Y[1] ) / 2

Bref, c'est plus long à expliquer qu'à programmer..."


J'ai alors essayé de jouer aux apprentis programmeur sur Excel, et comme l'avais si bien souligné mon interlocuteur, bien plus facile à dire qu'à faire :-(

J'aimerai vous transmettre ma modeste ébauche pour voir s'il serait possible d'améliorer cet essai :-) 
Malheureusement, je ne sais pas comment il faut faire :-(

je souhaiterai : 

1) Que l'on vérifie que mes calculs sont corrects, le plus souvent tout se passe bien, mais parfois je trouve des résultats bizarres (je suis alors obligé d'utiliser un logiciel de Dessin Assisté par Ordinateur, relier tous ces points dans le bon ordre, puis de demander un calcul de surface. Le résultat confirme souvent mon intuition à savoir que mon fichier excel déconne, du coup je ne suis jamais vraiment sûr de mon coup)

2) Remplir directement le tableau en sélectionnant le fichier ".txt" (et non : l'ouvrir dans excel puis copier et coller les valeurs dans mon tableau). Ce qui au passage résoudrait les problèmes liés à la taille de mon tableau (j'ai prévu 200 lignes pour être tranquille, mais parfois les listings de points sont très long et je dois faire une sélection en amont)

3) Le calcul nécessite de désigner l'ordre d'apparition des points (le parcours du périmètre du polygone). J'ai donc prévu à cet effet une colonne "N° d'Ordre".
Y-a-t'il une possibilité de remplir cette colonne à la souris ? En prévoyant un retour au point précédent en cas d'un clic hasardeux (très ennuyeux de tout recommencer quand on en est au 98ième point ....)

Voilà, par avance merci à tous d'avoir lu ce message, merci à ceux qui pourront m'aider et j'espère à très bientôt ;-)






Configuration: Windows Vista / Chrome 21.0.1180.89

ccm81 · Accepted Answer

une version corrigée de quelques bugs et réorganisée (je me suis permis de ...) mais qui ne règle pas le problème de l'importation des données 
si c'est la boite de dialogue qui ne passe pas, on pourrait envisager de donner le nom du fichier source en F6, l'importation se ferait alors depuis ce nom là 

https://www.cjoint.com/?3InkWYid7h0

Mytå · Answer

Salut le forum

Pastinfleur, pour joindre un fichier, tu envois ton fichier
(sans données confidentielles) sur https://www.cjoint.com/ , 
et tu recopies le lien obtenu à ton prochain message. 

Mytå

Pastinfleur · Answer

Re bonjour,

Voici :

le lien concernant mon ébauche :
https://www.cjoint.com/?BIlq7JgSK2J

le lien concernant les données :
https://www.cjoint.com/?BIlrcitLhZJ

le lien donnant un exemple des résultats à obtenir :
https://www.cjoint.com/?BIlrddKkm1L

Je reste dispo pour plus d'infos

@ bientôt et merci encore

ccm81 · Answer

bonjour à tous   

une fonction trouvée ici https://en.wikipedia.org/wiki/Polygon#Properties   
une exemple https://www.cjoint.com/?0IlsylqZg2V    

RQ. le polygone ne doit pas avoir d'arêtes qui se croisent   

bonne suite

ccm81 · Answer

re 

La fonction (macro) AirePolygone(X,Y) suppose que les plages de coordonnées se terminent par le 1° point (pour fermer le polygone) 

 
Je ne suis pas sûr que l'on puisse avoir 300 points dans la colonne et n'en prendre que 75 pour calculer la surface 
dans ce cas voir la fonction suivante 

Public Function AirePoly(X As Range, Y As Range) 
Dim k As Long, a As Double, n As Long 
Dim tx, ty 
' nombre de points 
n = X.Rows.Count 
' dimension des tableaux de coordonnées 
ReDim tx(1 To n + 1) 
ReDim ty(1 To n + 1) 
' remplissage tx et ty 
For k = 1 To n 
  tx(k) = X(k) 
  ty(k) = Y(k) 
Next k 
tx(n + 1) = X(1) 
ty(n + 1) = Y(1) 
' calcul de l'aire 
a = 0 
For k = 1 To n 
  a = a + (tx(k) * ty(k + 1) - tx(k + 1) * ty(k)) 
Next k 
AirePoly = 0.5 * Abs(a) 
End Function

RQ. Attention, le polygone ne doit toujours pas avoir de côtés qui se croisent
bonne suite

ccm81 · Answer

un essai sur tes données

https://www.cjoint.com/?3ImkKAkl2bQ 

bonne suite

ccm81 · Answer

re

2) Remplir directement le tableau en sélectionnant le fichier ".txt" (et non : l'ouvrir dans excel puis copier et coller les valeurs dans mon tableau). 
https://www.cjoint.com/?3ImmgkGArgG 

3) Le calcul nécessite de désigner l'ordre d'apparition des points (le parcours du périmètre du polygone). J'ai donc prévu à cet effet une colonne "N° d'Ordre".
Y-a-t'il une possibilité de remplir cette colonne à la souris ? En prévoyant un retour au point précédent en cas d'un clic hasardeux (très ennuyeux de tout recommencer quand on en est au 98ième point ....) 
je ne comprends pas bien comment tu compte t'y prendre 

bonne suite

ccm81 · Answer

re 

un début de réponse à la dernière question 
https://www.cjoint.com/?3ImpOGj4KnO 

bonne suite

ccm81 · Answer

pour la fonction split, on peut s'arranger autrement
quelle est l'erreur sur le bouton import (je crains que ce soit sur l'objet OpenDialog, là il faudra oublier la boite de dialogue et donner le nom du  fichier "à la main" )

ccm81 · Answer

re

après quelques recherches sur le forum (merci eric, patrice, michel), cette version devrait être supportée par 97
si ça fonctionne il faudra faire un brin de ménage dans le code (j'ai tout gardé)

https://www.cjoint.com/?3InqKPcl3ho 

bonne suite

ccm81 · Answer

re

1. j'ai reprogrammé la fonction split qui devrait passer avec excel 97
https://www.cjoint.com/?3InvlXfJiwV 
j'ai profité du voyage pour faire le grand ménage dans le code

2. j'ai vu ton fichier modifié
si je comprends bien tes questions  "Comment je fais" toutes les manips se font "à la main" et il n'y a plus grand chose à programmer si ce n'est le nettoyage des feuilles avant nouvelle session, et la maj des échelles du graphique 

3. au fait, tu as mis un mot de passe sur la feuille Table que je ne peux pas supprimer, peux tu me donner ce mdp

bonne soirée

ccm81 · Answer

re

un début
https://www.cjoint.com/?3IokQjujWd3 

bonne suite

ccm81 · Answer

pour l'importation
as tu essayé (correctement) le fichier du post #20

1- tes fichiers ont tous un début de nom générique à modifier dans le code 
 Const DebNomFic = "calcul_surface_nxy"

2- tu dois mettre en G3 le nom du dossier où se trouvent tes fichiers .txt 
(sans le \ à la fin)
cellule nommée nomdossier

3- si oui, est ce que dans la feuille Table1, la liste des fichiers apparait en M2:Mxx
cette liste a été nommée ListeFichiers

4- si oui en F5 (feuille Surface) cellule nommée nomfichiervois tu la liste déroulante de ces fichiers

5- si oui, sur quelle ligne du code ça plate ?

ccm81 · Answer

1. la fonction Replace semble inconnue de vba 97, je l'ai ré-écrite
2. comment sont nommés tes fichiers texte, donnes moi un exemple
3. s'ils n'ont pas les mêmes noms que les miens (ceux que tu as dans Table1), il y a un pb quelque part, donc on va faire un essai
3.1. tu mets tes fichiers dans C:\   (la racine de C)
3.2 dans G3 (feuille surface) tu mets C:
dans la feuille Table1, si le reste du code passe, tu dois voir la liste de TES fichiers texte
4. si oui, en F5 tu dois les voir dans la liste de choix
si oui Importer un des fichiers de la liste déroulante
5.  tu me racontes

https://www.cjoint.com/?3IpqAwxZxMV

RQ. il faut trouver jusqu'où descendre pour se mettre au niveau d'excel 97 !!

Pastinfleur · Answer

Toujours le même pb 

https://www.cjoint.com/?BIpq5XCnXEq

Mais je crois que tu a laissé la fonction "replace"

Par contre, ça avance : maintenant, j'ai la bonne liste, par contre, j'ai l'impression que la liste s'incrémente. J'ai fait un test avec les fichiers déposés dans différents dossiers, placés dans C ou D. Dans la liste, j'ai tous les chemins qui apparaissent, ceux sur C + ceux sur D.

ccm81 · Answer

1. il vaut mieux faire répondre, comme ça on a les messages dans l'ordre chronologique 
2. un bug corrigé 
3. nettoyage de l'ancienne liste 
https://www.cjoint.com/?3IpsEN3e4WK  

tu racontes comment se passe (la tentative) l'importation

Pastinfleur · Answer

Super, ça marche :-)

ccm81 · Answer

tu as bien importé le fichier?

bon, maintenant il va falloir implanter l'importation dans ta version à toi. 

une question à laquelle tu n'as pas répondu (post #25) 
1- tes fichiers ont ils tous un début de nom générique ? 
si oui, on peut n'afficher que ces fichiers là dans la liste (ça revient à faire un filtre sur le nom) 
exemple chez moi tous les fichiers étaient nommés 
 calcul_surface_nxy suivi d'un numéro suivi de .txt 
ce n'est pas une obligation

Pastinfleur · Answer

Par contre,
quand je fais la sélection à la souris j'ai ce message :

https://www.cjoint.com/?BIpsRXMOXGk

Je clic sur et l'incrémentation se poursuit, le calcul se fait correctement, bref c'est Top.

ccm81 · Answer

il faudrait cliquer du deboguer et me montrer la ligne de code qui coince

Pastinfleur · Answer

Si j'importe un nouveau fichier, la sélection précédente reste active.
pourrait-on supprimer le bouton "effacer" et coupler son action avant la sélection du fichier?

Je ne sais plus comment te remercier, c'est vraiment tu travail d'artiste :-)

Par contre je ne sais pas si tu ma réponse au message précédent (lien 28), car là c'est sûr je ne saurais jamais transposer ça sur mon deuxième projet

ccm81 · Answer

1. Si j'importe un nouveau fichier, la sélection précédente reste active.
pourrait-on supprimer le bouton "effacer" et coupler son action avant la sélection du fichier? 
on n'en est pas là, la première chose à faire est de régler le problème de l'importation
2. donc tu réponds à mon post #36

ccm81 · Answer

1. désolé, je viens de voir ton post #28, d'où les inconvénients des commentaires !!! on continue uniquement avec  répondre
2. pour ce qui est des noms du même type , pas de problème, on affiche comme actuellement les ".txt"
3. la boite de dialogue (OpenDialog) n'est apparemment pas  reconnue par excel 97
on va quand même vérifier quelque chose
Quand tu est dans l'éditeur vba
Outils/References est ce que les references suivantes (aux numéros de version près) sont cochées
Visual basic for applications
Microsoft excel 10.0 Object library
OLE automation
Microsoft forms 2.2 object library
microsoft office 10.0 object library

sinon tu essaies de les cocher (si elles y sont)

tu dis

Pastinfleur · Answer

https://www.cjoint.com/?BIptq2lheZb

Pastinfleur · Answer

A ton dernier message je préféres répondre pas une copie d'écran car là je patauge GRAVE

https://www.cjoint.com/?BIptu6HQ8nL

Pastinfleur · Answer

Désolé, mais je dois te quitter 

@ demain j'espère ;-)

ccm81 · Answer

1. pour les librairies c'est OK, et du coup pas d'espoir de ce côté là

2. donc la boite de dialogue OpenDialog (avec l'arborescence des dossiers) n'est pas disponible avec excel 97

3. il faudra donc indiquer quelque part le dossier où se trouveront tes fichiers. 
Le nom du dossier devra donc figurer quelque part
- soit dans une cellule comme dans l'exemple (solution souple)
- soit en "dur" dans le code (une constante du genre dossier = C:\Donnees) mais il faut intervenir sur le code en cas de changement de dossier (déconseillé)

4. l'erreur de type (post #35) me semble venir du fait que les valeurs importées ne sont (peut être) pas des nombres (dans ton fichier il y a un point au lieu d'une virgule) à moins que tu n'aies changé ça dans tes options
pour vérifier tu fais une bête addition de deux valeurs (colonne B) 
tu dis ce qu'il en est

5. Pour les séparateurs espace ou ; ou , ou - il faudra adopter une solution du genre de celle du dossier 
une idée ... à moins que tout caractère non numérique soit vu comme un séparateur

Une fois tout ça réglé/précisé, on reviendra sur ta config

Pastinfleur · Answer

Salut,

Désolé mais j'ai également un soucis de voiture, donc en ce moment je jongle pas mal sur les forums pour essayer de régler un pb de vitre électrique, bref ....

Pour le 3) ça risque d'être très ennuyeux, mais bon pour autant, la version souple me convient très bien :-)

Pour le 4) le problème vient peut être du "." et non de la "," le soucis est que j'utilise des logiciels de DAO avec des outils développés par la boîte, ces outils ne marchent que si les paramètres régionaux sont réglés sur "séparateur décimal = ." :-(
Donc les fichiers que je reçois, sont par convention avec ce type de séparateur, ainsi je ne suis pas obligé de changer les paramètres à chaque fois que j'utilise l'un ou l'autre des logiciels. 

Pour le 5), comme je te le disais dans un précédent post, j'ai à 95% du séparateur "espace", donc inutile de s'ennuyer avec ça (quand j'aurai des séparateurs différents je ferais simplement la modif directement sur le fichier .txt avant l'import)

Je suis ennuyé, mais si je ne règle pas mon pb de voiture avant demain, je risque d'être ennuyé.... Je te laisse, encore merci pour ton aide . Si j'ai fini, je reviens sur le forum ce soir, sinon à lundi

IMPORTANT : un voisin m'a dit qu'il pouvait se procurer office 2010 (il l'a pris à son boulot et l'a installé chez lui). Il m'a dit qu'il pourrait s'arranger ... :-)
Ma question est simple : est-ce que excel 97 et 2010 peuvent cohabiter sans soucis ? Si NON, Est-ce-que mes fichiers avec macros vont correctement fonctionner sous 2010 ?

ccm81 · Answer

j'ai intégré l'importation dans ton modèle 

https://www.cjoint.com/?3Iqtbq5XqgK  

je n'ai rien tenté sur le séparateur décimal 
tu dis comment ça se passe 

excel 97 et 2010 peuvent en principe co-habiter, ils ne sont pas logés dans le même dossier 
pour ce qui est de la compatibilité, il ne devrait pas y avoir de problème avec les macros 97 utilisées avec 2010 (c'est, en principe, le contraire qui pose problème) 

si ça doit tourner uniquement sur 2010, on pourra revenir à la boite de dialogue pour l'importation, ce qui règlerait le point 3

bonne suite

Pastinfleur · Answer

Salut,

Désolé, je pensais avoir répondu à ton dernier message, mais apparemment j'ai oublier de valider mon post :-(

Quelques problèmes subsistent :

1) le bouton "RAZ" fonctionne, mais il faudrait vider le contenu des cellules "N° Points" dans l'onglet "Saisie"

2) le bouton "Importer" fonctionne parfaitement si au préalable je vide manuellement le contenu des cellules "N° Points" dans l'onglet "Saisie", sinon j'ai une erreur cf ci-dessous :

https://www.cjoint.com/?BItoybuvSGF

et Excel plante :

https://www.cjoint.com/?BItoyVieJjB


3) erreurs quand je clic sur le bouton "Actualiser le Graphique"

https://www.cjoint.com/?BItotQRqfpC
https://www.cjoint.com/?BItoujH2CcZ



REM : Si j'ouvre ton fichier dans 2010, tout fonctionne correctement sauf l'Actualisation du graphique .
La macro marche pour des polyèdres "simples" (6 sommets), mais le résultat n'est pas correct pour des polyèdres "complexes" .
Cf exemple ci dessous concernant un polyèdre à 34 sommets

https://www.cjoint.com/?BItoCMQhiG5

Merci pour tout tes efforts

@ bientôt

Pastinfleur · Answer

Voici de nouvelles données pour un exemple plus complexe Cf lot K dont le résultat à trouver est 38 746.33 m² (à quelques cm² près dû aux arrondis) :


les données : https://www.cjoint.com/?BItoOADbAuY

les surfaces à vérifier : https://www.cjoint.com/?BItoPqzsqDT

une copie du graphe à obtenir : https://www.cjoint.com/?BItoTLIGqp3

quand je fais les calculs des lots A , B ... ça marche nickel :-)
quand je lance le lot K, le graphe ne s'actualise pas correctement :-(
Cf post précédent

Evidemment, le graphique ne comprend ni les "Noms" des points, ni les coordonnées correctes sur les axes (pour les axes je crois que j'y arriverai tout seul, mais pour les noms des points dans les étiquettes ça me paraît plus hard)

@+

ccm81 · Answer

réponse à ton post #49  
1. nettoyage de la feuille saisie par RAZ de la feuille Listing  
2. actualisation du graphique  
des plages de la feuille Calcul ont été nommées !  
https://www.cjoint.com/?3Itrz7simJ1 

qu'est ce que ça donne?

Pastinfleur · Answer

Salut,

J'ai fais l'essai avec ton nouveau fichier (avec 97), mais j'ai toujours le même problème quand je clic sur "RAZ" 

https://www.cjoint.com/?BItsFBgfZxE

https://www.cjoint.com/?BItsF1oKrp4

Si je clic direct sur importer (après avoir correctement renseigné la cellule G3, Excel plante et je vois qu'il y a "FAUX" écrit dans la cellule G5

https://www.cjoint.com/?BItsNI34P0r

Par contre, ton idée de la possibilité de créer une liste déroulante des dossiers possibles est Top. 
En effet, j'ai un dossier dédié dans lequel je mets les dossiers qui me sont transmis, donc ton idée me permettrai de ne pas avoir à saisir manuellement les données relative à l'emplacement des fichiers :-)

Mon arborescence dans D est du style :

dossier : "Documents à Vérifier"
                          => dossier "20120918" (date du jour) 
                                  => dossiers de données "CCC DA 1548","CCC DA 26", ...etc.

où CCC est un n° correspondant à la commune (3 chiffres = n° INSEE communal)
     DA = partie fixe
     1548, 26, ...etc = Numéro du document (change tout le temps)

Pastinfleur · Answer

Si j'ouvre "3Itrz7simJ1_calcul_surface_m6.xls" dans 2010,
quand clic sur "Importer" (après avoir renseigné G3 et sélectionné dans la liste G5), l'import se passe correctement, mais il subsiste dans la liste les points du dernier import :-(
quand clic sur "RAZ" j'ai une erreur :

erreur : https://www.cjoint.com/?BIts2xcGevO
code : https://www.cjoint.com/?BIts3aiaULf

ccm81 · Answer

Q1. c'est bien sur mon fichier calcul_surface_M6.xls que tu testes (post#51 modifié)
Q2. quand tu fais Nouvelle sélection (feuille saisie) est ce que ça fonctionne?

Pastinfleur · Answer

Oui, j'ai fait les tests sur calcul_surface_M6.xls

Non, quand je clic sur Nouvelle Sélection, ça ne marche pas :

https://www.cjoint.com/?BIttk4jfUvM

Code : 
Public Sub btNouvelle_Click()
' nettoyage colonne k
Sheets(nomFS).Range(tk).ClearContents
' echelles auto pour les axes du graphique
With Sheets(nomFS).ChartObjects(1).Chart.Axes(xlCategory)
  .MinimumScaleIsAuto = True
  .MaximumScaleIsAuto = True
  .MinorUnitIsAuto = True
  .MajorUnitIsAuto = True
End With
With Sheets(nomFS).ChartObjects(1).Chart.Axes(xlValue)
  .MinimumScaleIsAuto = True
  .MaximumScaleIsAuto = True
  .MinorUnitIsAuto = True
  .MajorUnitIsAuto = True
End With
End Sub

Pastinfleur · Answer

Petite question : 

J'utilise "FastStone Capture" pour faire des copies d'écran, mais quand je suis sur la fenêtre VBA, parfois (c'est ça qui est bizarre !!!) quand je clic pour faire une capture d'écran, mon fond de plan change : je suis basculé sur la feuille Excel (c''est à cause de ça que je t'ai envoyé dans mon dernier post un copier/coller direct du code), donc impossible de te transmettre une visualisation d'écran .

Tu sais si je dois faire une opération particulière , dans "excel", dans "FastStone Capture"?

Pastinfleur · Answer

C'est bon, je crois que j'ai compris, il faut avant d'aller dans VBA cliquer sur une cellule de la feuille, puis réouvrir VBA, d'ou : 

https://www.cjoint.com/?BIttYV5jqaY

Pastinfleur · Answer

Remarque, quand j'ouvre calcul_surface_M6.xls et que je clic direct sur "Actualiser le Graphique", j'ai également une erreur :

message : https://www.cjoint.com/?BItt30oAqKl
code : https://www.cjoint.com/?BItt4yiBKWw

ccm81 · Answer

j'ai du mal à comprendre ce qui se passe  

d'abord,  
tu enregistres mon fichier sous le nom calcul_surface-M6 quelque part 
tu ouvres ce nouveau fichier 

1. l'erreur sur .minimumscale = mini   
tu fais debogage   
tu cliques sur mini (te permet de lire la valeur actuelle de mini)   
qu'est ce qu'il dit?   
il doit y avoir la valeur de la feuille Calcul (N8)   
dans cette feuille,    
verifies que les noms    
- emini correspond à =Calcul!$N$8   
- emaxi correspond à =Calcul!$N$7   

2. l'erreur sur .MinimumScaleIsAuto = True    
en utilisant l'éditeur de macro, dans la feuille Saisie tu crées une nouvelle macro    
et tu mets l'échelle des axes du graphique à auto   
tu cliques sur une cellule puis de nouveau tu modifies les échelles du graphique, tu mets n'importe quoi   
arreter l'enregistrment   
tu regardes si le code est compatible avec le mien   

tu dis

Pastinfleur · Answer

1. Il dit : mini=-1 qui est bien la valeur de la cellule N8 de la feuille calcul
Par contre, je ne trouve pas "emini" et "emaxi", je dois chercher où ?


De plus, je viens de voir que je peux supprimer "le module 2" : je fais comment ? J'ai essayé clic droit sur "module 2" dans l'arborescence, mais je n'ai pas l'option "supprimer".

2. me paraît difficile à faire mais je me lance

Pastinfleur · Answer

2. Désolé mais je ne comprends pas, je ne peut pas clic sur les deux axes à la fois, quand je clic sur l'axe X, il m'ouvre la fenêtre : 

https://www.cjoint.com/?BItvCmOAApp

il semble me donner les valeurs mini et maxi des axes, mais je ne sais pas quoi faire.

Je fais la chose suivante : Je vais changer le mini et le maxi, cliquer sur une cellule, puis rechanger le mini et le maxi, puis je fais une copie du code ?

Pastinfleur · Answer

et voilà,

https://www.cjoint.com/?BItvIy1HywP

Pastinfleur · Answer

1. J'ai recherché "emini" avec l'outil "edition => recherche" et je ne l'ai trouvé qu'une seule fois : 

https://www.cjoint.com/?BItv1TsPyuG 

idem pour emaxi. 

Donc je crois que je n'ai pas compris ton message :  
"dans cette feuille,  
verifies que les noms  
- emini correspond à =Calcul!$N$8  
- emaxi correspond à =Calcul!$N$7 " 

C'est quoi "les noms" ?

Désolé mais je suis vraiment nul :-(

Pastinfleur · Answer

Désolé de t'embêter encore, mais on peut supprimer ça ?

https://www.cjoint.com/?BItwdT7dK8w

et si oui, peux-tu me dire comment on fait :-)

Pastinfleur · Answer

Salut,

je vais essayer de t'expliquer étape par étape ce qui se passe, ainsi tu pourras me dire ce qu'il faut que je vérifie. Je t'avoue que je suis largué depuis bien longtemps et à part de repartir sur un déroulé propre, je n'arriverai jamais à rattraper le train :-)

J'y vais :

1. J'ai renommé ton fichier "calcul_surface_m7"

2. A l'ouverture, je suis sur l'onglet "Listing NXY". 
Je vois qu'un calcul est en cours (confirmé par une visualisation de l'onglet "Saisie", dans lequel je vois que le calcul précédent semble s'être parfaitement déroulé). Je clic donc direct sur "RAZ" pour nettoyer les données dans "Saisie", le graphe et les données importées précédemment dans l'onglet "Listing NXY", et là :
erreur : https://www.cjoint.com/?BIupDwrROCW
code : https://www.cjoint.com/?BIupD1h36ib

3. Je réinitialise et je retourne sur l'onglet "Saisie", je vois que l'onglet contient toujours les valeurs d'un précédent calcul (peut-être faudrait-il nettoyer l'onglet "Saisie" à la fermeture du fichier "calcul_surface_m7" ?)

4. Je clic sur "Nouvelle Sélection" et là :
erreur : https://www.cjoint.com/?BIupIVcPLie
code : https://www.cjoint.com/?BIupJorMabi

5. Je réinitialise et retourne sur l'onglet "Saisie", je vois alors que des données de l'onglet ont été nettoyées grâce à 4, par contre il semble que le graphique ne le soit pas :
image graphique : https://www.cjoint.com/?BIupL56y96a

6. Je vais dans l'onglet "Listing NXY" et je renseigne G3, la liste : "Liste des fichiers disponibles dans" se met correctement à jour.

7. Je fais un choix en G5 (liste fonctionne nickel) et je clic sur "Importer". L'import se passe très bien, mais si je sélectionne un nouveau fichier et que je relance l'import, je vois que le nouvel import se fait par dessus le premier (sans nettoyage préalable) je me retrouve donc avec la situation suivante :
image : https://www.cjoint.com/?BIupRJ7Ed6M
qui selon moi est un facteur de risque d'erreur.

8. Si je vais dans l'onglet "Saisie" et que je saisie manuellement un calcul, le résultat et correct (mais que se passerait-il si, à cause de 7, s'il y avait plusieurs fois le même "Nom" de points ?). Par contre le graphique est faux et l'échelle n'est pas adaptée.

9. Je clic sur "Actualiser le Graphique" et là :
erreur : https://www.cjoint.com/?BIupWfCIAhs
code : https://www.cjoint.com/?BIupWBV1a7Z

Voilà, j'espères que ça t'éclaire un peu mieux. Peut être qu'il sera plus facile pour moi de comprendre tes besoins en s'appuyant sur ce déroulé.


RQ : Ton idée de création d'une liste déroulante des dossiers "possibles" + une liste "cumulative" des fichiers contenus dans ces dossiers est super :-)


@ bientôt.

Pastinfleur · Answer

Désolé,

J'ai oublié de te dire que j'ai répondu au post 64.

@+

ccm81 · Answer

question bête tout ça avec excel 97?

Pastinfleur · Answer

Oui :-)

Pastinfleur · Answer

Dans 2010, tout fonctionne nickel, sauf le point 7.

Pastinfleur · Answer

Par contre, 

Je me rends compte d'un truc : Ne faut-il pas trier "Listing NXY" par rapport à la colonne A (rapport aux fonctions "rechercheV" de l'onglet "Saisie" colonne "Est" et "Nord") ? 

Les listings de points ne sont pas toujours (et même rarement) triés. 

@+

ccm81 · Answer

1. Dans 2010, tout fonctionne nickel  
et c'est maintenant que tu me le dis?  

2. sauf le point 7   
mais c'est normal, il fallait faire un RAZ avant.  
tu vas être bon pour modifier un peu de code  
----- avant -----  
Private Sub btImporter_Click()  
Dim Ftxt As String, ligne As String, chemin As String  
Dim li As Long, co As Long  
Dim t  
' nom fichier source  
Ftxt = Range(celFichier)
-----après-----  

Private Sub btImporter_Click()  
Dim Ftxt As String, ligne As String, chemin As String  
Dim li As Long, co As Long  
Dim t  
' nettoyer  
Call btRAZ_Click  
' nom fichier source  
Ftxt = Range(celFichier)  
Range(celFichier) = Ftxt

3. je te prépare un bout de code à vérifier sous excel97

ccm81 · Answer

à tester sous excel 97
https://www.cjoint.com/?3IuqTcWnHjc 

tu dis

ccm81 · Answer

Je me rends compte d'un truc : Ne faut-il pas trier "Listing NXY" par rapport à la colonne A (rapport aux fonctions "rechercheV" de l'onglet "Saisie" colonne "Est" et "Nord") ? 

dans la mesure où le 4° argument de recherchev est 0 (FAUX), que j'ai rajouté à tes formules, la 1° colonne n'a pas besoin d'être triée, mais si à l'usage, c'est plus commode pour toi, on peu faire ça au  moment de l'importation

Pastinfleur · Answer

Réponse post 78 = Oups !!! et je sais pas pourquoi ????

Dans 2010, si je fais 2., 6. et 7. (donc je fais d'abords "RAZ") ça plante :

erreur : https://www.cjoint.com/?BIurOI00DLT
code: https://www.cjoint.com/?BIurO0l4zSf

Par contre, si je fais direct 6. et 7. (donc pas de "RAZ")  ça marche pour le premier fichier importé. Si je choisit un nouveau fichier, ça plante : même erreur que ci-dessus.


RQ : J'ai fais la modif du post 78

Je suis assez surpris car je n'ai plus la superposition que j'avais il y a une heure, pourtant je n'ai rien changé de spécial non ??? C'est fou je fais exactement la même chose que tout à l'heure et je n'ai pas la même chose ????? J'ai pas inventé le post 76 !!!! Pourtant, je n'arrive pas à reproduire ce phénomème :-(

Pastinfleur · Answer

réponse au post 80.

Puisque tu me le propose si gentiment ;-) en effet je préfères que les données soit triées dès l'import. Mais ce n'est pas une priorité :-)

Pastinfleur · Answer

Réponse post 79.   ... Bizarre

Je clic sur effacer A1:A20, ça marche nickel, je clic plusieurs fois dessus à la suite, tout beigne.

Par contre, quand je clic plusieurs fois sur effacer D1:D20 
la première fois ça marche
la deuxième fois ça plante

erreur : https://www.cjoint.com/?BIusfg5nKfO
code : https://www.cjoint.com/?BIusfNIsxpi

Pastinfleur · Answer

RQ : j'ai fais le test "clearcontents" dans 2010 et j'ai la même chose

ccm81 · Answer

1. Par contre, quand je clic plusieurs fois sur effacer D1:D20
la première fois ça marche
la deuxième fois ça plante 
normal que ça plante à partir de la 2° fois, la plage étant définie de façon dynamique (voir les noms) pose un problème quand elle est vide
ce n'est pas une bonne nouvelle, c'était juste pour tester la méthode ClearContents avec excel 97. Elle marche bien dans tous les cas

2. et comme ça, qu'est ce que ça donne (sous 2010? sous 97?)
https://www.cjoint.com/?3IusRBACAxK

Mytå · Answer

Salut le forum 

Dans Noms Définis remplacer Plage avec =DECALER(Feuil1!$D$1;0;0;NBVAL(Feuil1!$D:$D)+1;1)Cela évite que Plage soit égale à#REF qui cause l'erreur. 

Mytå 
  
Quelle prétention de prétendre que l'informatique est récente 
Adam et Eve avaient déjà un Apple ! [MsProject 2003(FR), Excel 2003-2007(FR)]

ccm81 · Answer

salut Mytå 

Oui,  mais ça ne m'arrange pas pour le graphique et le calcul de l'aire
En fait, si on fait les choses dans l'ordre (le mien !!!!) ça tourne mais ...

J'ai bêtement détourné l'erreur (ce qui coutait le moins cher) dans la dernière version, si ça ne suffit pas, je crois qu'il va falloir définir les plages depuis vba plutôt que dans la feuille

merci

Pastinfleur · Answer

salut,

En effet, avec ta modif, ça marche nickel (essaie fait dans 97, car dans 2010 je n'ai pas encore trouvé où sont les noms :-)

Par contre, je ne sais pas comment il faut que je fasse dans mon fichier :-(
Je suis désolé, mais là je suis complètement largué ;-(

Dans le fichier "calcul_surface_m7", j'ai un plagefichiers et un plagek. Je suppose que la modif doit se faire dans le second ????

Si dans plagek je remplace :

=DECALER(Saisie!$A$8;0;0;NB(Saisie!$A$8:$A$207);1)

par

=DECALER(Saisie!$A$8;0;0;NBVAL(Saisie!$A$8:$A$207)+1;1)

j'obtient :

erreur :https://www.cjoint.com/?BIuttKI2AYE
code : https://www.cjoint.com/?BIutqWbolvX

J'ai alors essayé de remplacer par : 
 
=DECALER(Saisie!$A$8;0;0;NB(Saisie!$A$8:$A$207)+1;1)

Mais j'ai toujours le même message :-(

Comme tu as pu le constater, je suis vraiment débutant alors, je fais certainement des grosses conneries :-)

En tout cas, vraiment merci pour ton aide, car je suis sûr que ccm81 va s'inspirer de ta solution pour finaliser le projet.

Pastinfleur · Answer

Réponse au post 85.

sous 97 : le clic sur RAZ marche nickel, par contre la liste ne s'incrémente pas correctement, en effet les noms des fichiers apparaissent dans la colonne I au lieu de H comme avant. Du coup, mais fichiers n'apparaissent pas dans le menu déroulant :-(
 évidemment idem pour 2010 :-)

Comment je fais pour rectifier le tir ????

ccm81 · Answer

1. par contre la liste ne s'incrémente pas correctement, en effet les noms des fichiers apparaissent dans la colonne I
zut, j'avais mis des données en colonne D, et j'ai supprimé la colonne au lieu d'en effacer le contenu
remède > tu te places en colonne D puis Insertion/colonne

2. Dans le fichier "calcul_surface_m7", j'ai un plagefichiers et un plagek. Je suppose que la modif doit se faire dans le second 
je n'ai pas prévu de modif pour le moment à ce sujet, j'ai bien lu la proposition de Mytå, et j'ai répondu post #87

on fonctionne sur calcul_surface-M8.xls
tu testes et tu dis (n'oublies pas de préciser avec quelle version d'excel)

bonne suite

Pastinfleur · Answer

Test avec 97 sur calcul_surface-M8.xls  après insertion colonne.

1. Ok c'est fait et sa marche.

Par contre, si je ne fais pas de RAZ avant nouvel import, j'ai à nouveau la superposition. Mais bon c'est pas grave, je peux à chaque nouvel import cliquer sur RAZ, après tout ce bouton est bien là pour ça :-)

ccm81 · Answer

1. désolé, comme dit précédemment, tu vas être bon pour modifier un peu de code 

----- avant ----- 

Private Sub btImporter_Click()   
Dim Ftxt As String, ligne As String, chemin As String   
Dim li As Long, co As Long   
Dim t   
' nom fichier source   
Ftxt = Range(celFichier)
-----après----- 

Private Sub btImporter_Click()   
Dim Ftxt As String, ligne As String, chemin As String   
Dim li As Long, co As Long   
Dim t   
' nettoyer   
Call btRAZ_Click  
' nom fichier source   
Ftxt = Range(celFichier)   
Range(celFichier) = Ftxt
2. dès que j'ai la version avec tri de la feuille ListingXY je t'envoie 
(ça sera pour demain) 

bonne suite

Pastinfleur · Answer

Test avec 97 sur calcul_surface-M8.xls après insertion colonne. 

quand je saisie les données, le graphique se met automatiquement à jour, le bouton Actualiser le graphique semble ne plus servir à rien. De plus quand je clic dessus, ça plante : 

erreur : https://www.cjoint.com/?BIuuUiItiXA
code : https://www.cjoint.com/?BIuuUDAUrvT

Par contre les noms de points dans les étiquettes ne sont pas bon 

copie écran : https://www.cjoint.com/?BIuuZRCxFYl

Pastinfleur · Answer

Réponse au post 92
Test avec 97 sur calcul_surface-M8.xls modifié

CA MARCHE !!!!!!!!!!!!!

C'est TOP.


 J'attends la suite avec impatience, à demain .

ccm81 · Answer

quelques modifs
1. tri du listingXY selon colonne A
2. cumul de la liste des fichiers disponibles (+ bouton RAZ pour la nettoyer)
3. dans la feuille Calcul j'ai imposé 1 en A2 et B2 pour le premier point si A8 est vide pour éviter un graphique sans point après un RAZ (et les problèmes qui en résultent)

https://www.cjoint.com/?3Iviztlcw11 

reste à tester tout çà

Pastinfleur · Answer

Salut,

Test avec 97 sur calcul_surface-M9.xls

1. Super !

2. Je n'avais pas compris ça. Je pensais que tu allais faire un peu la même chose que pour la recherche des fichiers. 

Du style : 

en G3 je mets mon dossier "Racine"    (création d'une liste des sous-dossiers disponibles)

=> en G5 je sélectionne un "sous-dossier" (création d'une liste des sous-dossiers disponibles)

=> en G8 je sélectionne un "sous-dossier" (création de la liste des fichiers .txt disponible)


=> en G11 je sélectionne le "fichier à traiter"

et "Nettoyer l'arborescence" efface G8, G11 et demande une nouvelle sélection en G5.

Sinon ta solution est sympa, mais je risque vite de me perdre car les fichiers de données d'un même opérateur, ont souvent le même nom (habitude de l'opérateur : "levé.txt", "terrain.txt", "taché.txt", ...etc.). Ainsi avec ta proposition, si j'ai plusieurs fichiers à vérifier d'un même opérateur je risque d'avoir dans la liste plusieurs fois le même nom :-( donc si on ne peut pas réaliser la solution ci-dessus, il vaut mieux "Nettoyer la liste" avant chaque nouvel import.



3. Ok. Le problème persistant est que mon graphique est très petit (à cause d'une "non prise en charge automatique" de l'échelle, je clic sur "Actualiser" et là ça plante :-(

image graphique : https://www.cjoint.com/?BIvkwkEqwsX
erreur : https://www.cjoint.com/?BIvkwGffQWk
code : https://www.cjoint.com/?BIvkxcAEnbo

dans un précédent post tu m'avais fait changer les propriétés des axes. Ces propriétés semblent figées.



RQ : Quand on saisie un n° de point qui n'est pas dans la liste, on botient #NA dans les cellules Est et Nord correspondantes, serait-il possible d'envoyer un message du style "Votre point n° xxxx n'est pas dans le fichier de données toto.txt" ?

Pastinfleur · Answer

RQ : j'ai "Actualisé" le graphique manuellement et je ne comprends vraiment pas d'où sortent ces étiquettes 

copie écran : https://www.cjoint.com/?BIvkMLf7wOQ

Dans les différentes feuilles il n'y a nulle part des points 552, 553, 554 ...
Donc je suppose qu'il y a quelque part un nettoyage dans le code qui ne se fait pas correctement :-(
Désolé, tu as surement compris ça depuis déjà bien longtemps, mais j'essaie de suivre ... à mon rythme :-)

@ bientôt

ccm81 · Answer

1. je ne comprends vraiment pas d'où sortent ces étiquettes   
c'est normal, elles ne sont actualisées que par le bouton Actualiser le graphique, on peut éventuellement les vider quand on fait un RAZ  
pour ce qui est de les mettre à jour à chaque point posé, j'ai peur que ça pose un problème, mais j'essaierai  
2. Quand on saisie un n° de point qui n'est pas dans la liste, on obtient #NA dans les cellules Est et Nord correspondantes, serait-il possible d'envoyer un message du style "Votre point n° xxxx n'est pas dans le fichier de données toto.txt"   
le problème peut se régler avec une liste de validation  (moyennant une nouvelle plage nommée dans ListingXY 
https://www.cjoint.com/?3IvlWp7MaJ6   
3. pour ce qui est de l'arborescence des dossiers  
je ne pense pas que ce soit jouable, donc on supprime l'option ou tu nettoies au coup par coup  
4. le plantage sur les échelles   
4.1. a lieu lorsque tu cliques sur nouvelle sélection?  
4.2. avec mon fichier et mes données  
4.3. après une nouvelle importation,
dans tous les cas,  peux tu m'envoyer le fichier excel une fois planté

Pastinfleur · Answer

Réponse post #96

3. dans la feuille Calcul j'ai imposé 1 en A2 et B2 pour le premier point si A8 est vide pour éviter un graphique sans point après un RAZ (et les problèmes qui en résultent) 

OK, mais du coup je comprends mieux la présence de l'étiquette "552". Je ne sais pas pourquoi c'est ce "N° Point" (552) qui apparaît, mais ça c'est pas grave ;-)
Ce 552 n'est pas anodin, ce "N° Point" est le premier point du calcul du lot K,
ça ressemble au "plus grand" des "premiers" "N° Point" utilisés pour calculer les surfaces.
En effet 552 est le premier "n° point" utilisé dans le calcul du lot K (points 552 à 585) et il est en même temps le plus grand de la liste des premiers "N° Points " utilisé lors des autres calculs (Lot A commence à 500, lot F commence à 534, ...etc)

J'ai fais un test en demandant un nouveau calcul avec un "N° Point" = 1000, mais NON, les étiquettes s'incrémentent toujours à partir de 552.
Là, c'est trop dur pour moi :-(

Serait-il possible de rendre invisible ce point ?
en jouant sur les couleurs,
en lui donnant un "N° Point" vide ou "N° Point"="0"
ou alors en désactivant, dans ce cas précis, l'affichage des étiquettes.

Je sais que tout ça fais partie du côté esthétique et que pour l'instant tu as d'autres chats à fouetter, mais je le note pour pouvoir y penser plus tard.

@ bientôt

Pastinfleur · Answer

Complément du post #97 point 2. Test avec 97 sur calcul_surface-M9.xls

Si je mets de nouveaux fichiers dans le dossier, la liste ne s'incrémente pas automatiquement (normal puisque je ne lance pas le code), mais si je relance le code (en "entrant" dans la cellule et en validant), tous les fichiers contenus dans le dossier viennent alors s'ajouter à la liste. 
Du coup j'ai 2 fois les mêmes fichiers !
Donc, je crois qu'il vaut mieux, à chaque changement du contenu de la cellule G3, effectuer un "Nettoyer la liste des fichiers" ;-)

En tout cas, CA PRENDS VRAIMENT FORME :-)

@ bientôt

Pastinfleur · Answer

Test avec 2010 sur calcul_surface-M9.xls

Ici, c'est un peu différent de la situation du post #96 :

Déjà, le graphique s'actualise au fur et à mesure de la saisie (sauf les étiquettes de données qui conservent les noms du précédent calcul).
Le bouton "Actualiser" fonctionne correctement, le graphe se met à une échelle mieux adaptée et surtout les étiquettes changent, mais il reste un petit problème d'affichage (au niveau de la boucle du calcul de la surface) :

https://www.cjoint.com/?BIvmGCThD68

Quant à :

Ce 552 n'est pas anodin, ce "N° Point" est le premier point du calcul du lot K, 
ça ressemble au "plus grand" des "premiers" "N° Point" utilisés pour calculer les surfaces. 
En effet 552 est le premier "n° point" utilisé dans le calcul du lot K (points 552 à 585) et il est en même temps le plus grand de la liste des premiers "N° Points " utilisé lors des autres calculs (Lot A commence à 500, lot F commence à 534, ...etc) 

J'ai fais un test en demandant un nouveau calcul avec un

 "N° Point" = 2000

alors là, après clic "Nouvelle Sélection", le graphique change et met le point 1000 au centre du graphe : 

copie écran : https://www.cjoint.com/?BIvmPrlXnbs

Je ne vois pas d'où sort cette étiquette de point ????

Concernant l'import des fichiers, idem que pour 97. Mais je me souviens que tu m'avais dit que pour 2010 il serait possible de lancer une fenêtre "Parcourir" ;-)

@ bientôt

Pastinfleur · Answer

Réponse post #99. Test avec 97 sur calcul_surface-M10.xls 

Je ne sais pas qu'elle mauvaise manip je fais ?????
Je prends juste ton fichier, je le renomme en enlevant les cochoneries qui se trouvent en en-tête du fichier transmis via "Cjoint.com" et je lance avec 97.
la je vois ton dernier calcul (500 à 505 avec un résultat nickel).
je clic sur "Nouvelle Sélection" et je choisit 534 à 539  (donc j'utilise ton import),
le graphique se met à jour au fur et à mesure de la saisie (évidemment : sauf les étiquettes), je clic sur Actualiser et sa plante :

erreur : https://www.cjoint.com/?BIvnqVqyeGa
code :  https://www.cjoint.com/?BIvnrtM3Kfo

Je ne vois pas se que je fais de mal.
J'enregistre et je te renvoie le fichier, mais j(ai peur que tu n'y vois pas grand chose ...

fichier : https://www.cjoint.com/?BIvnrU7Zkir

Par contre, l'idée pour contourner l'erreur de saisie est bonne, mais ça devient vite embêtant de choisir à chaque fois le "n° de point" dans la liste proposée, c'est beaucoup plus rapide de le saisir (surtout si les points se suivent et qu'on utilise l(incrémentation automatique)

@+

Pastinfleur · Answer

Désolé, j'avais pas bien compris le contournement . Je retire .... :-)
En fait c'est effectivement beaucoup mieux, merci.

Pastinfleur · Answer

serait-il possible de déplacer : 

https://www.cjoint.com/?BIvn7HTh1dJ 

ici : 

https://www.cjoint.com/?BIvoal4Q2Z0

enfin, plus précisément, au dessus du bouton "Nouvelle Sélection" ?

ccm81 · Answer

1. Je ne vois pas d'où sort cette étiquette de point ???? 
effectivement, çà m'avait complètement échappé
une version qui fait la MAJ au fur et à mesure des entrées (et qui rend le bouton MAJ obsolète,  on va quand même le laisser au cas où)

2.Mais je me souviens que tu m'avais dit que pour 2010 il serait possible de lancer une fenêtre "Parcourir" ;-) 
effectivement sous excel >2003, on a un objet OpenDialog qui permet de voir l'arborescence des dossiers et de choisir le fichier parmi la liste (filtrée)
en attendant ....

3. Si je mets de nouveaux fichiers dans le dossier, la liste ne s'incrémente pas automatiquement (normal puisque je ne lance pas le code), mais si je relance le code (en "entrant" dans la cellule et en validant), tous les fichiers contenus dans le dossier viennent alors s'ajouter à la liste.
Du coup j'ai 2 fois les mêmes fichiers ! 
c'est toi qui voit, quand tu as la liste du bon dossier, tu n'as pas a la mettre à jour
(on laisse comme ça pour le moment ... il n'y a que 3 ou 4 lignes de code à supprimer)

4. tu ne m'a pas envoyé le fichier après plantage sous 97

https://www.cjoint.com/?3Ivooi3ty7N

Pastinfleur · Answer

Je t'ai renvoyé le fichier dans le  post 99

Pastinfleur · Answer

Je fais le test avec ton nouveau fichier calcul_surface-M10.xls (sous 97).
Je clic sur nouvelle sélection et je saisie un nouveau lot.
Le graphique s'incrémente partiellement (doit tenir compte du nombre de sommets du précédent calcul)

copie écran : https://www.cjoint.com/?BIvoQzROiwz

je clic sur Actualiser et toujours le même résultat cf. post 99
j'enregistre et ça donne : https://www.cjoint.com/?BIvoS7kHIFh

ccm81 · Answer

re 

1. lorsque j'actualise ton fichier (post #108), je n'ai pas de problème, c'est pénible !!! 
le problème vient peut être du fait qu'une procédure d'un module de feuille, travaille sur une autre feuille 
j'ai mis  un peu d'ordre et déménagé ces procédures dans le module  1
tu testes avec 97, mais je commence à douter .... 

2. la liste de validation n'est peut être pas une bonne idée pour la saisie, elle crée des problèmes de maj que je n'arrive pas à régler 
je les ai supprimées et j'ai tenté une gestion lors d'une erreur de saisie 
j'ai ajouté un bouton transfert depuis la feuille ListingXY (pas obligatoire de l'utiliser) qui peut éviter ces problèmes 

https://www.cjoint.com/?3IvqG6XpGgY 

4. au passage dans la feuille calcul on n'a pas vraiment besoin des colonnes A à E 
puisque la fonction aire polygone fait le boulot  
5.  pour ce qui concerne ton post 105, n'es tu pas en train de revenir à la case départ, hormis la feuille ListingXY qui reste à peu près indispensable?

Pastinfleur · Answer

CA MAAAAAARCHE !!!!!!!!

1. Génial, le graphique s'incrémente seul, donc plus besoin de clic sur "Actualiser".
J'ai supprimé le bouton "actualiser le Graphique" (car si je clic, toujours le même résultat : ça plante)
J'ai également effacé les axes, car les X et Y sont des données réduites, donc inutile pour repérer un point, pour le repérer :  suffit de regarder l'étiquette ;-)

2. Génial, c'est pile ce que je voulais, TROP FORT

4. Je supprime les colonnes et je teste car je ne voudrais pas que ça mette le bazar, surtout pour le cas "vide" avec ta déclaration A2=B2=1 ? 

5. Je ne crois pas revenir en arrière, car le but du jeu est de rester sur l'onglet "Saisie". Toutes les opérations de traitements "automatisés" se feraient sur cette feuille. 
L'onglet  "Listing NXY" serait réservé au cas où je devrait saisir manuellement les points (certains opérateurs sont fâchés avec l'informatique et il transmettent un listing de coordonnées papier que je doit saisir manuellement)

En revanche je ne comprends pas le "Transfert", tu peux m'expliquer ?

Pastinfleur · Answer

Si on peut faire 5. il faudrait envoyer "Nettoyer la liste des fichiers" au début de "Importer" si je comprends bien :-)
Le bouton "RAZ" resterai lui en effet sur l'onglet "Listing NXY", mais ne semble pas très utile ... sauf à avoir la flemme de supprimer les valeurs des colonnes A, B et C manuellement, mais là c'est un peu abuser :-)

Pastinfleur · Answer

Seul reste à présent le problème lié à l'emplacement des fichiers, dommage que la solution du post 97 ne soit pas envisageable :-(

En tout cas, un GRAND MERCI pour tout tes efforts, ce que tu as fait est vraiment génial. En plus avec une version obsolète, CHAPEAU BAS !

Attends : je crois que je viens de comprendre "transfert" .....:-)

En fait je crois que je me suis mal exprimé :-(

J'espères avoir été plus clair dans le 5. du post 110 complété par le post 111.

Il ne s'agit certainement pas d'agir dans l'onglet "Listing NXY" (je ne veux pas cocher les points dans "Listing NXY" pour les transférer vers l'onglet "Saisie").

Au contraire, tout devrait normalement se passer dans l'onglet "Saisie" sans jamais intervenir dans "Listing NXY" (sauf dans d'une saisie manuelle des données ... 

Dans l'onglet "Saisie" je saisie manuellement les n° des points (après avoir renseigné correctement les champs correspondants à l'emplacement des données et après avoir importé ces dernières) et tout le reste se fait tout seul :-)

- le calcul de la surface
- le graphique
 ensuite j'imprime s'il y à un bug et je transmet à l'opérateur

@+

ccm81 · Answer

1. Attention. ne pas supprimer les colonnes ABCDE de la feuille calcul comme ça, 
- les plages du graphiques sont là,
- A2=B2=1 
et il doit y en avoir d'autres comme ça

2. pour ce qui est de la nouvelle organisation de la feuille Saisie
il faudrait que tu places les bouton, marque les plages etc ... 
et tu m'envoies tout ça

3. le graphique s'incrémente seul, donc plus besoin de clic sur "Actualiser".
J'ai supprimé le bouton "actualiser le Graphique" (car si je clic, toujours le même résultat : ça plante) 
je vais quand même essayer de trouver le bug

4. je vais quand même réfléchir à l'histoire des dossiers/sous dossiers

bonne soirée

Pastinfleur · Answer

1. Ok , je ne touche à rien dans la feuille Listing NXY, après tout ça ne gêne en rien, puisqu'au final je n'irai dans cet onglet que très rarement :-)

2. je fais ça demain et je te renvoie le fichier.

3. merci, c'est sympa, mais ne te prends pas trop la tête, je t'ai assez fais suer comme ça

4. super, c'est vraiment sympa, ça serait super cool si cette mise en forme pouvait fonctionner

bonne soirée et à très bientôt

RQ : il faudra VRAIMENT que tu me dise comment je peux te remercier !!!!

Pastinfleur · Answer

Salut,

Je n'aime pas trop faire ce que tu me demande en 2. du post 113 (ça fait donneur d'ordre), mais effectivement je crois que je serai incapable d'y arriver tout seul car j'aurai trop peur de faire une mauvaise manipulation qui plante l'exécution des différents codes.

Ci-joint le fichier tel que j'aimerai qu'il soit au final

https://www.cjoint.com/?BIwnPIAzWv0

J'espère ne rien avoir oublié :-)

A bientôt.

RQ : dans des précédents post tu disait qu'il fallait que je renomme le fichier transmis en "calcul_surface-Mxx.xls" rassure-moi, je peux renommet comme je veux ou il y a des codes qui fige le nom du fichier ?

ccm81 · Answer

1. pour ce qui est du nom du fichier, tu fais ce que tu veux (c'était juste histoire d'enlever les codes qu'a rajouté cjoint.com)
2. un début de réponse avec quelques questions au sujet des dossiers/sous dossiers
3. pour les cases à cocher, si tu trouves qu'il y en a trop, n'hésites pas tu coupes 
.. j'ai mis la totale vu que ça ne m'a rien couté (un copier/coller d'une autre appli)
4. j'ai inhibé le bouton actualiser (je ne comprends toujours pas pourquoi il plante sous 97)

https://www.cjoint.com/?3IwrRMNf3pt

Pastinfleur · Answer

1. Un truc bizarre que j'avais oublié de te signaler dans le précédent post.
Quand je clic sur "Enregistrer", j'ai ce message :

https://www.cjoint.com/?BIwsnsjWVoX

Je ne l'avais jamais auparavant tout simplement car je n'avais jamais enregistré ton fichier ... Je ne voulais pas le détériorer, donc quand je quittais et qu'il me demandais : "voulez-vous enregistrer les modifications", j'ai toujours répondu "NON".
Désolé, mais ça doit être important !!!!
Tout à l'heure, j'avais cliquer sur "OUI" pour t'envoyer l'ébauche du fichier final désiré et j'ai complètement oublié de te signaler ce message d'erreur :-(

Je te renvoie le fichier avec les réponses à tes question. C'est beaucoup plus parlant finalement que d'essayer de décrire les choses :-)

Juste une précision, ton idée des cases à cocher est géniale, mais comme je te le disais dans un précédent post, si les coordonnées du graphique ne sont pas dans le même repère que les coordonnées qui se trouve à gauche du graphique, ces axes ne servent à rien. Par contre, si tu peux mettre les bonnes coordonnées, ça m'intéresse (Je sais pas si c'est assez clair, regarde dans le fichier c'est mieux).

De plus,

quand coche Axes :
erreur : https://www.cjoint.com/?BIwsFvcX21t
code : https://www.cjoint.com/?BIwsF2rI9dy

quand coche quadrillage : il ne se passe rien, comme si aucune action n'était liée à cette coche

quand coche Etiquettes :
erreur : https://www.cjoint.com/?BIwsHyl7TMY
code : https://www.cjoint.com/?BIwsIaI5KAI

quand coche marque : 
erreur : https://www.cjoint.com/?BIwsJL2BpEN
code : https://www.cjoint.com/?BIwsJ5vJtgE

Décidément, à chaque fois que tu veux toucher aux propriétés du graphique il est pas content :-(

RQ : le bouton "Fin de saisie manuelle des données" renvoie en B5 de l'onglet "Saisie" alors qu'il devrait renvoyer en B3 (au passage, il sera possible par la suite de protéger certaines cellules ?)

Enfin je te renvoie ton fichier (J'ai cliqué sur "OUI" au message "https://www.cjoint.com/?BIwsnsjWVoX" ci-dessus)

fichier retour : https://www.cjoint.com/?BIws3iMkuuF

Encore une fois désolé pour le message 1. Je suis sûr que c'était hyper important en plus, quel nul, je ne sais vraiment pas pourquoi je n'avais jamais enregistré avant . Mille excuses

ccm81 · Answer

1. pas de chance avec les propriétés du graphique, on va donc oublier les cases à cocher et on supprimera les axes à la main et à la fin
2. quand tu reçois un fichier tu fais de suite un enregistrer sous

bon, je plie boutique ....

Pastinfleur · Answer

En fait, quand je reçois un fichier, je le renomme, puis je l'ouvre. 
Avant je n'enregistrais pas donc au moment de quitter, je répondais "Non" au message "voulez-vous sauvegarder les modifications...", du coup : pas de message.
Maintenant, quand je quitte j'enregistre : clic sur biscotte :-) et la je réponds Oui au message que je t'ai envoyé dans le précédent post.

Si je comprends bien, à présent il faudrait que j'ouvre directement ton fichier et que je fasse (avant toute chose) fichier => enregistrer-sous ?

OK, dis c'est pas trop grave pour le message ????

@ bientôt

ccm81 · Answer

1. quelques problèmes réglés .... pas tous j'ai eu un remord avec les cases à cocher et tenté quelque chose, tu dis la question est de savoir si ça plante https://www.cjoint.com/?3IxpY25SKo8 2. ital>dis c'est pas trop grave pour le message ???? j'avoue que je n'en sais rien, mais apparemment, c'est non

ccm81 · Answer

une idée pour la gestion des axes, moins compliquée, on les garde mais on n'affiche pas les étiquettes de graduation 

https://www.cjoint.com/?3IxrUVZZVXu

Pastinfleur · Answer

Salut,

Désolé pour la réponse tardive ...

Sous 97 : 

1. Je n'ai pas pu tester l'import de fichier car la liste des sous-dossiers "xxx Da xxx" que j'obtient ne correspond pas aux sous-dossiers contenu dans le sous-dossier date que je choisis (en revanche, la liste des sous-dossiers "20xx xx xx" se fait correctement). 

Cf retour fichier : https://www.cjoint.com/?BIyrRxV3d0y

2. Toujours les mêmes problèmes pour les coches (erreurs différentes)

erreur quand coche étiquettes : https://www.cjoint.com/?BIyrlRGiqeU
code erreur coche étiquettes : https://www.cjoint.com/?BIyrmhC4EXI

erreur coche marques : https://www.cjoint.com/?BIyrmZ5m0NB
code erreur coche marques : https://www.cjoint.com/?BIyrnpGbPQB

3. Reste quelques petit détails à régler Cf zone de texte dans fichier retour.

Je teste sous 2010 et je te tiens au courant

Pastinfleur · Answer

Sous 2010, tout semble se passer correctement :-)
Les coches marchent nickel :-)
Pour l'importation, ici ça fonctionne bien (Seuls quelques petits détails de nettoyage ou de replacement après l'exécution de certains codes subsistent Cf. fichier retour du précédent post)

Omission dans fichier retour :

Après "importer le fichier de données" la cellule active (après le message) devrait être B3

RQ : si on fait une importation de données et que l'on veut sélectionner un autre fichier (contenu dans le même sous-dossier DA) on ne peut pas car la sélection n'est plus active). Enfin, pour réactiver la sélection, il faut à nouveau choisir le sous-dossier DA, et là pas de problème :-)

J'espère que je ne t'embête pas trop avec tous ces petits détails. 
SURTOUT n'hésite pas à me le dire ... 

MERCI encore pour tout et @ bientôt

ccm81 · Answer

1. quelques mofifs

https://www.cjoint.com/?3IysWMuttqI 

2. tu tentes encore 97 pour les coches (plus besoin de m'envoyer des horreurs, tu me dis simplement si ça plante toujours, on pourra toujours les inhiber/supprimer plus tard)

3. pour ce qui est de la liste des sous dossiers DA que tu n'obtiens pas 
- est ce seulement avec 97?
tu peux tester la procédure chargée du boulot (elle est dans Module 1)
Public Sub Lister_SousDossier_DA()
tu met un point d'arret  devant With Sheets(nomFS) (clic dans la marge, tu dois voir un gros point)
tu lances la procédure en validant un dossier date
le programme va s'arrêter sur le point d'arrêt (ligne jaune)
la touche F8 permet de continuer l'exécution pas à pas
tu cliques sur les variables répertoire, nf , etc .. au fur et à mesure de l'exécution, pour voir ce qu'elles contiennent, tu vois ce qui ne va pas avec ce que tu as sur ta machine
RQ. re-clic sur le gros point pour le supprimer

4. J'espère que je ne t'embête pas trop avec tous ces petits détails.
pas de problème 

bonne suite

Pastinfleur · Answer

Salut,

1. Ca avance bien

2. :-(

3. Je suis désolé mais je ne comprends pas trop comme m'y prendre, je vais essayé ; mais ça risque de prendre du temps ... 

3. C'est effectivement seulement avec 97 que je n'obtiens pas la liste, avec 2010 tout roule (même les coches !!!)... reste seulement des petits détails (cf. fichier retour)

Ce que je ne comprends pas : 

tu cliques sur les variables répertoire, nf , etc .. au fur et à mesure de l'exécution, pour voir ce qu'elles contiennent, tu vois ce qui ne va pas avec ce que tu as sur ta machine 

4. MERCI

fichier retour : https://www.cjoint.com/?BIyvyo9n14E

Pastinfleur · Answer

Avec 2010
l'import se fait correctement, mais les données ne sont pas triées dans l'onglet "Listing NXY" du coup quand les données ne sont pas dans le bon ordre dans le fichier importé, ça plante (message d'erreur "N° de point pas dans la liste"

Pastinfleur · Answer

Important : Dans 2010 (donc je suppose que fera la même chose dans 97)
Je pense que se problème est là depuis le début, mais on est jamais "tombé" sur le cas :-)

Si dans mon onglet "Saisie", le dernier "N° Point" qui se trouve dans les données importées fait partie de la surface à calculer : il écrit les coordonnées "Est" et "Nord" (qui sont correctes !!!) mais m'affiche le message d'erreur "Le N° xxx n'est pas dans la liste", donc il nettoie. 
Par conséquent, impossible de calculer une surface qui comprend "le dernier N° Point" des données importées.

ccm81 · Answer

1. le traitement de la saisie manuelle, avec message en cas de numéro déjà présent. C'est à tester pour voir comment ça se comporte
2. j'ai fait le ménage dans la feuille Listing
https://www.cjoint.com/?3IAjuiXC9js
3. en ce qui concerne la liste des dossiers DA sous 97, peux tu m'envoyer une copie d'écran de l'arborescence des dossiers

bonne journée

Pastinfleur · Answer

Réponse pour "calcul_surface_id07.xls" testé avec 2010

Salut,

Avec 2010 TOUT MARCHE A MERVEILLE :-)

Il reste juste quelques petits détails d'ergonomie, mais à première vue tout fonctionne très bien.

1. "Saisie manuelle des données" devrait également vider J5, J7 et J9

2. Le message "erreur" pour la saisie manuelle des coordonnées (cas d'une double entrée) fonctionne super. Pourrait-il être un peu plus explicite, du style "Le  point N° xxx a déjà été saisi !"

3. "RAZ" devrait activer la cellule A2 de l'onglet "Listing NXY"

4. "Fin de saisie manuelle" devrait renvoyer en B3 de l'onglet saisie

5. Le choix d'un nouveau sous-dossier DA devrait lancer "Nouvelle Sélection" et "RAZ" 

6. L'étiquette du premier N° Point n'est pas bonne
Cf. https://www.cjoint.com/?BIAkQw6Hcou

7. Serait-il possible qu'une saisie dans la cellule B3 de l'onglet "Saisie" active la cellule A8 pour inviter directement l'opérateur à la saisie ?

Je teste avec 97 et je te dis :-)

Pastinfleur · Answer

Réponse post #129 point 3.

https://www.cjoint.com/?BIAk1Cb0pdF

ccm81 · Answer

1-2-3-4-5-7 OK
pour 5 j'ai étendu la modif à toutes les cellules 
6- je n'ai pas l'erreur chez moi

https://www.cjoint.com/?3IAl7PZAxbx 

pour 97, et la saga des dossiers DA tu tentes de les mettre à la main dans la liste


bonne suite

Pastinfleur · Answer

Salut,

Je suis sur le coup "point d'arrêt". Je suis en train d'effectuer le pas à pas et de mettre en commentaire les différentes valeurs. Je te transmets le fichier dès que j'ai fini les boucles :-)

Pastinfleur · Answer

Voilà le fichier avec mes commentaires : https://www.cjoint.com/?BIAmRR3ZUsb RQ : si j'avais su j'aurai mis moins de sous-dossiers dans le répertoire 2012 09 19 :-) l'arborescence est celle données précédemment, mais au cas où : https://www.cjoint.com/?BIAmTGLANgC A la fin de mon test en pas à pas, j'ai remarqué que la liste s'était incrémentée dans la colonne K (alors qu'en automatique ça ne marche pas ... bizarre !!!), mais quand j'ai sélectionné un sous-dossier DA, c'est la liste des fichiers qui était cette fois inactive (rien dans colonne I de l'onglet "Listing NXY") RQ : j'ai vu que la liste des sous-dossiers DA qui s'est créée par "miracle" après le pas à pas, n'était pas triée, ça peut jouer pour la suite ??? Et au passage, y-a-t-il un moyen de la trier (plus esthétique pour la sélection) J'ai relancé le fichier. A nouveau, même pb avec sous-dossiers DA (normal). J'ai copié les noms manuellement dans la colonne K, les sous-dossiers sont alors bien dans la liste J7 de l'onglet "Saisie" (selon tes conseils du post #132), MAIS la liste des fichiers ne se crée pas :-( J'ai alors copié les noms des fichiers manuellement dans la colonne I de l'onglet "Listing NXY", la liste des fichiers apparaît donc dans la liste J9 de l'onglet "Saisie". Je lance l'importation du fichier : OUF !! TOUT MARCHE ensuite comme sur des roulettes :-) Je teste ton nouveau fichier cet aprem (post #132) pour les corrections 1-2-3-4-5-7, pour 6. c'est effectivement très surprenant, mais il me semble que j'ai toujours eu le problème .... @ cet aprem si t'es dispo :-) MERCI

ccm81 · Answer

1. au vu te tes commentaires, tout à l'air OK les noms des fichiers DA et les numéros de lignes dans la colonne K 
peut être faut il se placer dans la feuille listing avant de faire la liste 
j'ai rajouté ça dans les procédures Lister--- 
  ' on se place dans la feuille Listing 
  Sheets(nomFL).Select
2. pour ce qui est de ton pb d'étiquettes, dans ton envoi, avec la feuille saisie vide, il y a une étiquette dans le point (552), ce qui n'est pas normal  
quand tu fais Nouvelle Sélection, le point doit se "vider" 

https://www.cjoint.com/?3IAnOM3BFB9

Pastinfleur · Answer

Ci-joint ton fichier retour de calcul_surface_id08 avec 2 petits commentaires en page "Listing NXY", par contre pas réussi à reproduire erreur concernant l'étiquette !!!!

https://www.cjoint.com/?BIAn3tJhsvV

Je teste ton nouvel envoi

@ tout à l'heure ;-)

Pastinfleur · Answer

avec calcul_surface_id09 , (RQ : à présent je ne teste qu'avec 97)

Quand je mets "D:\Test" en J3, je suis renvoyé sur l'onglet "Listing NXY" et je vois que la liste des "sous-dossiers dates" s'est bien créée.

Je retourne dans l'onglet "Saisie" et je sélectionne 2012 09 19, là, pas de renvoie comme ci-dessus, je vais voir ce qu'il se passe dans "Listing NXY" et je vois que la liste des "sous-dossiers DA" ne s'est pas créé :-(

Cf. https://www.cjoint.com/?BIAoicNhV89

ccm81 · Answer

et comme ça
https://www.cjoint.com/?3IAoufJeEZh

Pastinfleur · Answer

Toujours le même problème concernant la liste des sous-dossiers DA et la liste des fichiers.

1. Mais, en plus, j'ai remarqué (après avoir correctement importé un fichier de données avec remplissage manuel des colonne I et K et effectué un calcul) que si je clic en J9 pour choisir un autre fichier : Excel plante :-(

2. Petit détails, il serait agréable d'avoir un petit message (du même style que quand on saisie un point qui n'est pas dans le listing) quand on saisie 2 fois un même n° de point

Pastinfleur · Answer

Réponse au post #138

Désolé, toujours pareil :-(

ccm81 · Answer

1. j'avoue que j'ai du mal à comprendre, dans tes commentaires, on voit bien les noms des dossiers DA défiler ainsi que les bons numéros de lignes (colonne K) où ces noms devraient aller se placer!!!
on recommence la vérification pas à pas avec le point d'arret dans
Public Sub Lister_SousDossier_DA()
sur l'instruction
Sheets(nomFL).Select
pas la peine ne noter, tu vois si ça correspond
normalement quand tu lances en validant une date dans la feuille Saisie
- tu te retrouves sur le point d'arret
-F8 tu dois te retrouver dans la feuille Listing 
- tu reviens éventuellement dans le code
- tu déroules avec F8
les deux premiers nf sont '..' et '.' et li ne bouge pas
ensuite
nf prend les noms des dossiers DA et li augmente 
et ..... la colonne K devrait se remplir gentiment !

2. pour on erreur à la 2° importation as tu essayé de ressaisir le même fichier (au cas où erreur de frappe sur le nom ..)

Pastinfleur · Answer

1. je pense que les "sous-dossiers DA" et "les noms de fichiers" que tu vois sont ceux que j'ai saisis manuellement !

Je te renvoie ton dernier fichier sans faire de saisie manuelle. Il faudrait peut-être que tu créé la même arborescence que moi

fichier : https://www.cjoint.com/?BIAo3dNDzxo

les données : Données 1.txt ; Données 1bis.txt ; Données 2.txt ; Plan.txt ; Plan2.txt

sont dans le sous-dossier : 189 DA 123

qui lui est contenu dans le sous-dossier 2012 09 19 

qui se trouve dans D:\Test


2. En fait dès que je clic sur la cellule, ça plante, je n'ai pas le temps de choisir . Je viens également de faire un test sur un micro portable (également sous 97, mais avec un chemin d'accès aux données différent) 

Toujours le même problème évidemment, mais cette fois l'import ne marche pas, quand je clic sur "importer le fichier des données", j'ai le message :

"le point n° 0 a déjà été saisi"

et excel plante (je ne peux plus cliquer nulle part :-)

Pastinfleur · Answer

regarde ça et tu me dis si normal ou pas 

https://www.cjoint.com/?BIAppnY4Enl

Pastinfleur · Answer

Stop, désolé j'avais laissé la liste des sous-dossiers DA (oublié de "nettoyer") je continu

Pastinfleur · Answer

Re-désolé, je confirme le post #134 (ne pas tenir compte du post 135)

Pastinfleur · Answer

J'ai l'impression qu'il recherche les fichiers avant de rechercher les sous-dossiers DA, le plus bizarre c'est qu'il me trouve tous les fichiers (ceux que j'avais au précédent import).

Pastinfleur · Answer

nf prend toutes les valeur, autant des fichier .txt que du .rtf ...etc voire même des noms de dossiers, je vois défiler les sous-dossier dates. La boucle s'arrête (quand nf="") mais je ne sais pas pourquoi car j'ai eu toute sorte de fichier, toute sorte de sous-dossier, MAIS PAS TOUS.

J'arrive alors dans Public Sub Lister_DossiersDate() que l'on passe rapidement (rien de bizarre à signaler mais je sais pas trop ce que je cherche ...)

j'arrive sur Private Sub Worksheet_Change(ByVal Target As Range) et là par contre il me semble qu'il y a un truc suspect, à voir : 

https://www.cjoint.com/?BIApIYJ5EfP

suis ensuite renvoyé sur 

Sheets(nomFS).Range(csdosDA).ClearContents où j'ai l'impression que l'on nettoie la colonne des DA ce qui pourrait expliquer qu'au final la liste soit vide non ?

Après, j'ai l'impression qu'il y a beaucoup de nettoyage, mais les variables qui concernent les nom de sous-dossiers DA ou les noms de fichier n-y sont plus.

Je ne sais pas si tu arriveras à comprendre le soucis car je passe peut-être à côté de choses importantes :-(

Je dois filer,

Merci et à bientôt

ccm81 · Answer

l'arborecence n'a rien à voir là dedans
dans ton post #134 fichier cs-id07-retour.xls
A la fin de mon test en pas à pas, j'ai remarqué que la liste s'était incrémentée dans la colonne K (alors qu'en automatique ça ne marche pas ... bizarre !!!)
tu as bien vu passer la liste des dossiers DA et les bons numéros de lignes (li = 2, 3 ...) de la colonne K
il était normal que le choix d'un de ces dossiers DA ne produise pas la liste des txt 
il aurait fallu aussi l'exécuter pas a pas avec un point d'arret dansz la procedure lister_fichiers pour l'obtenir

je pense qu'il y a un pb au niveau de l'accès à la feuille Listing

on revient sur la version 08.xls
dans les deux procedures Lister_DossierDA et Lister_fichiers
tu mets un point d'arret devnat repertoire =

tu effaces à la main les données de la feuille Listing
feuille saisie - dossier de travail - ici ça marchait bien pour la liste des dates (tu controles)
feuille saisie - dossier date - çà lance le pas a pas - tu vérifies les nf et les li jusqu'au bout
   tu vois si la liste des DA est affichée dans la feuille Listing comme #134
feuille saisie - dossier DA - idem pour les fichiers txt

si tout va bien
feuille saisie - la liste des txt est elle proposée
si oui tu tentes une choix-puis une importation

tu dis

RQ. on est en train d'exploser le nombre de réponses
on va continuer avec les messages personnels (en haut à droite à coté de ton identifiant)

Comment programmer un calcul de surface ?

120 réponses

Discussions similaires