Gros problème VBA / EXCEL

Fermé

Tonio - 5 févr. 2010 à 10:44
Tonio - 9 févr. 2010 à 10:07

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:

Gros problème VBA / EXCEL
Liste déroulante excel - Guide
Word et excel gratuit - Guide
Si et excel - Guide
Déplacer une colonne excel - Guide
Excel compter cellule couleur sans vba - Guide

30 réponses

Réponse 21 / 30

garion28 Messages postés 1545 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 3 avril 2011 406
9 févr. 2010 à 07:56

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 ?

Réponse 22 / 30

Tonio
9 févr. 2010 à 08:31

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)

Réponse 23 / 30

garion28 Messages postés 1545 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 3 avril 2011 406
9 févr. 2010 à 08:42

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

Réponse 24 / 30

Tonio
9 févr. 2010 à 08:50

J'ai essayé de recopier le code mais je comprends pas pourquoi ça m'ouvre une 2eme fois dans la même feuille...

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

Posez votre question

Réponse 25 / 30

garion28 Messages postés 1545 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 3 avril 2011 406
9 févr. 2010 à 09:00

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

Réponse 26 / 30

Tonio
9 févr. 2010 à 09:27

Je comprends pas le fichier s'ouvre automatiquement sur la 1ere feuille de mon classeur et ne fais pas de reconnaissance

Réponse 27 / 30

garion28 Messages postés 1545 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 3 avril 2011 406
9 févr. 2010 à 09:35

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

Réponse 28 / 30

Tonio
9 févr. 2010 à 09:45

ç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

Réponse 29 / 30

garion28 Messages postés 1545 Date d'inscription mardi 16 juin 2009 Statut Membre Dernière intervention 3 avril 2011 406
9 févr. 2010 à 09:51

tu pourrai mettre le fichier sur cijoint ? parce que là je seche

Réponse 30 / 30

Tonio
9 févr. 2010 à 10:07

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é.