Extraction de paquet de lignes excel particulières [Résolu]

Signaler
-
 suppos51 -
Bonjour tout le monde

voici le souci

a mon taff la secrétaire doit extraire les données d'un fichier excel obtenu a partir d'un soft. Ce soft ne permet pas de définir ce que l'on veux extraire... Nous avons appelé le concepteur du soft qui nous a confirmé cela

Quelqu'un parmi pourrait t'il me dire s'il est possible d'extraire seulement les lignes que j'ai isolé dans la feuil2 (on ne souhaite pas le détail des passages)

pour ensuite faire un publipostage ou faire un fichier qui récupére juste ce qui nous interesse

Voici un fichier test en question

http://dl.free.fr/n4xEsTvdO
mdp : **51**

Merci a codeurs fous qui pourrait m'aider

j'ai un fichier de 1370 lignes

voir plus selon les trimestres

C'est donc la situation du compte que je souhaite récupérer

Cordialement

Ps : suis plus que débutant en VB...

1 réponse

Messages postés
28974
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
5 juin 2020
330
Bonjour,

>> Qu'appelles tu extratire les données qui t'interesse...( les extraire pour les mettre où ? )
- dans un autre onglet ?
- Dans un autre classeur ?
- Publipostage vers un document Word ?

>> Est-ce que les données à "extraire" se trouvent toujours au même endroit ? ( mêmes numéros de lignes ? )


>> Qu'as tu essayé de faire comme code ?

Pense à lire les liens suivants :
http://codes-sources.commentcamarche.net/contents/11-charte-de-commentcamarche-net-conseils-d-ecriture

http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

.
Messages postés
28974
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
5 juin 2020
330
Alors si les numéros de lignes changent tout le temp, quel serait le moyen de savoir où regarder ?
-> Toujouts les mêmes phrases utilisées ?
-> Le pavé que tu souhaites récupérer fait toujours la même dimension ?
les phrases restent les meme mais les données changent.
pas les même largeur selon le nom ou l'adresse...
on va se taper a la main le boulot je pense lol
Bonjour,

Sub extraction()

Worksheets("Sheet1").Select

For i = 1 To 1400

If Cells(i, 6).Value <> "" _
Or Cells(i, 9).Value <> "" _
Or Cells(i, 10).Value <> "" _
Or Cells(i, 2).Value = "Détail des mouvements et consommations" _
Or Cells(i, 3).Value = "Le" _
Then
Cells(i, 6).EntireRow.Delete
i = i - 1
End If
Next
End Sub

Un pote m'a fait ce code, si ca peux aider une personne du forum

++ et merci a jordane45 pour ton aide
Messages postés
28974
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
5 juin 2020
330
Nan, ce n'est pas trop dur à faire :
Il te faut juste chercher les mots qui concernent ce que tu recherche pour récupérer les valeurs qui t'interessent..

Par exemple... tu recherches le texte :"Objet : Situation de votre compte du " ( et une fois cette ligne trouvée... tu as le début de tes données)

Et ensuite : "Détail des mouvements et consommations" et tu as la dernière ligne de ton tableau ( sans celle la bien sur ).


Sinon, tu peux chercher chaque informations séparément :
Division :
Qualité :
Etc...
Effectivement je viens de regarder comment fonctionnait le code. mais tu vois sans ton explication et sans le code fournit par le pote j'aurais jamais eu ma solution. Le VBA est très loin pour moi ^^. Et encore j'avais seulement des bases

merci encore