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 !!

Gros problème VBA / EXCEL

Réponse 21 / 30

garion28 Messages postés 1545 Date d'inscription Statut Membre Dernière intervention 408

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

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 Statut Membre Dernière intervention 408

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

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

Réponse 25 / 30

garion28 Messages postés 1545 Date d'inscription Statut Membre Dernière intervention 408

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

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 Statut Membre Dernière intervention 408

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

ç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 Statut Membre Dernière intervention 408

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

Réponse 30 / 30

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

Gros problème VBA / EXCEL - Page 2

Newsletters