Extraction de donnees

[THIERRY35]

Bonjour à toutes et à tous,

je cherche par macro à extraire d'un fichier de 3300 lignes environs qui se trouve en feuil1,et à exporter en feuil2 :

le nom du client suivi du total de son chiffre d'affaires.


Chaque nom de client est précédé par le même libellé "AGT"
Chaque ligne de total porte le même nom "C0 TOT HORS M"
J'ai 17 fichiers à traiter, chaque mois la taille du fichier est différent.

Ci joint un extrait du fichier, les lignes à extraire sont surlignées en orange.

Merci de votre aide,
Thierry

 

[Minick]

Re : Extraction de donnees

A tester

remplace

If InStr(1, ShtSrc.Range("A" & LigSrc).Value, ": AGT ") <> 0 Then

Par

If InStr(1, ShtSrc.Range("A" & LigSrc).Value, ": AGT") <> 0 OR _
InStr(1, ShtSrc.Range("A" & LigSrc).Value, ": CP ") <> 0 OR _
InStr(1, ShtSrc.Range("A" & LigSrc).Value, ": REA") <> 0 Then

 

[THIERRY35]

Re : Extraction de donnees

Merci, mais le code ne fonctionne pas il s'arrête à la 1 ére ligne et extrait
un numero suivi du libelle sans aucun chiffre, par exemple

14001 AUTOMOBILES et c'est tout !

 

[Minick]

Re : Extraction de donnees

Peux-tu mettre un extrait de fichier avec les differents cas possibles?

 

[THIERRY35]

Re : Extraction de donnees

Merci, mais pour l'instant je me contenterai d'extraire les codes AGt qui
représentent la majorité des clients.

Par contre je travaille sur un autre fichier du même type, plus urgent
je reviendrai donc sur celui en cours plus tard.
J'essaye d 'adapter ton code à ce nouveau fichier sans succés ...

Il faut extraire versun tableau de synthèse, en deux parties distinctes, des données sur le mois isolé et les mêmes données en cumul annuel
Il y a au total 17 fichiers qui vont de 2 lignes à extraire pour le plus petit à
8 lignes pour le plus important.
Les éléments à extraire en isolé sont surlignés en jaune dans l'onglet Atelier 1,
en orange pour les données en cumul.
Ci joint le fichier .
Merci de ton aide

 

[Minick]

Re : Extraction de donnees

Salut,

Vois la piece jointe.

 

[THIERRY35]

Re : Extraction de donnees

Salut Minick,

merci pour ton aide, ça fonctionne parfaitement.
Quelques commentaires sur le code me seraient utiles pour mieux comprendre
comment ça fonctionne.
J'aurai d'autres appels à l'aide à lancer sur le forum, car j'ai des codes d'extraction de données qui fonctionnent (différents des tiens) mais qui sont lents et ils auront besoin d'être simplifiés ou modifiés pour un meilleur confort d'utilisation.

Merci beaucoup,
A +
Thierry

 

[Minick]

Re : Extraction de donnees

Salut,

La meme chose avec quelques commentaires...