Gros problème VBA / EXCEL

Tonio -  
 Tonio -
Bonjour,

J'ai une macro sous VBA qui m'ouvre un classeur. Intègre des données d'un texte et me fait une série de calculs pour trouver 4 statistiques...

Dans ces données j'ai entre autre 2 colonnes qui sont les colonnes référence de l'opération qui est de type TXXXXXX et une référence client de type CXXXXXXX

Attention c'est parti :

Je peux avoir plusieurs réf C pour une seule ref T par exemple je peux avoir ceci dans mon tableau :


ref T ref C Date de réception Date statut 1100 Date statut 1650 Instruction correcte

T1000001 C130001 10/01/2010 10/01/2010 10/01/2010 OUI
T1000001 C130002 10/01/2010 10/01/2010 10/01/2010 OUI
T1000001 C130003 10/01/2010 10/01/2010 11/01/2020 OUI
T1000002 C140001 15/01/2010 15/01/2010 15/01/2010 OUI
T1000003 C150001 17/01/2010 17/01/2010 17/01/2010 NON

A partir d'un tableau de ce type qui peut comporter jusqu'à 4000 lignes, je calcule 4 stats

Un délai moyen de passage entre le statut 1100 et le statut 1650
Le nombre d’instructions correctes
Le nombre d'opération réalisées en retard ( si le nombre de jours entre réception et statuts 1100 dépasse 2 jours)
Une dernière stat qui n'a pas d'intérêt ici :-)

Voici mon problème.
Pour le calcul de la dernière stat et le délai moyen je n'ai pas de soucis je prends toutes les données.

Par contre pour le nombre d'instruction et le nombre d'opération en retard je ne dois faire mes calculs qu'en fonction des réf T. Il faut donc que lorsque je calcul mes 2 stats concernées, je demande à ma macro d'exclure les doublons en réf T. L'exemple est simple J'ai 3 ref T1000001 il faut qu'une seule soit prise en compte... sinon j'ai des doublons.

Merci d'avance pour votre aide !!
A voir également:

30 réponses

garion28 Messages postés 1545 Date d'inscription   Statut Membre Dernière intervention   406
 
avec le lien que je tes fourni tu peu écrire la valeur lu dans le fichier txt dans toutes les feuilles que tu veu
dans quel formes sont tes données dans ton fichier txt ?
0
Tonio
 
Mon fichier TXT est préconfiguré pour que quand tu l'ouvres dans excel il se range direct en colonnes.
(j'ai les titres dans le document puis les données)
0
garion28 Messages postés 1545 Date d'inscription   Statut Membre Dernière intervention   406
 
d'accord, donc ma méthode n'est pas utilisable

tu peu peut etre recopier le même code, mais s'il y a beaucoup de ligne ca doublera le temps de travail du pc
0
Tonio
 
J'ai essayé de recopier le code mais je comprends pas pourquoi ça m'ouvre une 2eme fois dans la même feuille...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
garion28 Messages postés 1545 Date d'inscription   Statut Membre Dernière intervention   406
 
il faut changer le .name
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\troncan1\Desktop\KPI." & djnwemp & ".TXT", Destination:=Range( _
"A" & nbligne & ""))
.Name = "Extraction SIGMA"  < - - ICI
.TextFileSemicolonDelimiter = True
.Refresh
End With 
0
Tonio
 
Je comprends pas le fichier s'ouvre automatiquement sur la 1ere feuille de mon classeur et ne fais pas de reconnaissance
0
garion28 Messages postés 1545 Date d'inscription   Statut Membre Dernière intervention   406
 
essaye:
With sheets("ton nom de feuille ou écrire")
.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\troncan1\Desktop\KPI." & djnwemp & ".TXT", Destination:=Range( _
"A" & nbligne & ""))
.Name = "Extraction SIGMA"  < - - ICI
.TextFileSemicolonDelimiter = True
.Refresh
End With 


mais bon je ne suis vraiment pas sur de ca, il faudrai que quelqu'un qui utilise cette methode vienne t'aider
0
Tonio
 
ça me dit que la plage de destination n'est pas dans la même feuille de calcul que celle dans laquelle la table de requette a été créee
0
garion28 Messages postés 1545 Date d'inscription   Statut Membre Dernière intervention   406
 
tu pourrai mettre le fichier sur cijoint ? parce que là je seche
0
Tonio
 
J'ai retrouvé celui qui m'avait donné le code.
Je pense qu'il y a une petite erreur au niveau de la reconnaissance de table je lui ai demandé.
0