Infos de feuille a exporter sur la feuile 2 sous condition

[CG2000]

Bonjour le forum,

Dans un fichier excel j'importe un fichier ascii qui ce présente de la manière suivante (voir exemple).
Chaque jour ce fichier est différent et le contenu variable.
Je cherche une solution en vba pour exporter les infos de toutes les lignes de la feuille 1 sur la feuille 2 avec condition, qui ont en colonne B les lettres L,E,S et en excluant les autres.
Merci par avance de votre aide pour m'orienter dans cette réalisation.

 

[mutzik]

Re : Infos de feuille a exporter sur la feuile 2 sous condition

bonjour,

et si on traitait directement ton fichier txt (ou csv) pour n'importer que les infos utiles ...?

 

[Guest]

Re : Infos de feuille a exporter sur la feuile 2 sous condition

Bonjour le fil,


Je suis assez d'accord avec Mutzik, mais peut-être ne le veux-tu pas, alors voici une macro qui met les Lignes dont la colonne B contiennent L, E et S en feuille 2.

A coller dans un module de code:

Sub Expurger()
    Dim shSource As Worksheet, shDestination As Worksheet
    Dim idx As Long, cpt As Long, LigneDestination As Long
    Dim arr
    'Initialisation des feuilles source et destination
    Set shSource = Sheets("Feuil1"): Set shDestination = Sheets("Feuil2")
    With shSource
        'Tableau contenant les valeurs de la colonne B de la feuille source
        arr = .Range("B1:B" & .Range("B" & .Rows.Count).End(xlUp).Row).Value
        cpt = UBound(arr) 'Nombre de valeur (1 à N)
    End With
 
    'Prochaine ligne libre de la colonne A de la feuille destination
    LigneDestination = shDestination.Range("A" & Rows.Count).End(xlUp).Row
 
    'Boucler sur le tableau
    For idx = 1 To cpt
        'Si la valeur de tableau parcourue est L, E, S
        If arr(idx, 1) Like "[LES]" Then
 
            'copier la ligne de la feuille source vers la ligne libre de la feuille destination
            shSource.Range("A" & idx & ":M" & idx).Copy shDestination.Range("A" & LigneDestination)
 
             'incrémente le prochain numéro de ligne libre destination
            LigneDestination = LigneDestination + 1
        End If
    Next idx
End Sub

A+

 

[CG2000]

Re : Infos de feuille a exporter sur la feuile 2 sous condition

Mutzik et Hasco,

Merci(s) pour cette réponse rapide et parfaite.
Vôtre notion de partage représente parfaitement l'idée de ce forum.L'entraide.
et elle fait mouche du premier coup.

"et si on traitait directement ton fichier txt (ou csv) pour n'importer que les infos utiles ...?"
Malheureusement je suis conscient de mes limites et je ne pensais pas que celà pouvait être possible.
Je place en pièce jointe un extrait de ces infos en fichier txt.

CG2000

 

[Guest]

Re : Infos de feuille a exporter sur la feuile 2 sous condition

CG2000,

Vu l'allure du fichier texte, je crois qu'il est plus simple de faire comme plus haut.

A+

 

[CG2000]

Re : Infos de feuille a exporter sur la feuile 2 sous condition

Bonsoir Hasco, Bonsoir le forum,

Est-il possible par macro de remplacer les vides de la colonne A par le N° correspondant dans la colonne F.
par exemple le vide de A1 par le chiffre de F1, puis au prochain L donc A7 par le chiffre de F7 etc .....

En quelque sorte un transfert d'info d'une cellule dans une autre.
Si oui de quel manière puis-je m'y prendre.

GC2000

 

[Guest]

Re : Infos de feuille a exporter sur la feuile 2 sous condition

Re,

je suppose que la finalité de ce travail est d'obtenir un tableau exploitable par Excel. Non?

Si oui, nous pouvons pousser plus loin le nettoyage par exemple supprimer les colonnes qui contiennent les points d'exclamation, les cellules du genre: 33333333 Rendt : 3 pour ne conserver qu 33333333.

Dis mois ce que tu voudrais faire.

A+

 

[CG2000]

Re : Infos de feuille a exporter sur la feuile 2 sous condition

Bonsoir Hasco, Bonsoir le forum,

Ci-joint un petit fichier qui donnera l'idée final de ce que je cherche à faire (résumé en feuil2). Dans la collone A, l'idéal serait que le lot ce place devant ces lignes correspondantes. Puis le lot suivant devant ces lignes etc....

En espérant que cela puisse être réalisable.
Et encore merci pour le code déjà offert précedemment, il est génial.

CG2000

 

[Guest]

Re : Infos de feuille a exporter sur la feuile 2 sous condition

Bonsoir,

Dans le fichier joint à partir de Feuil1 appèle la macro "MiseAJour".

Bonne soirée et bonne continuation.

A+

 

[CG2000]

Re : Infos de feuille a exporter sur la feuile 2 sous condition

Hasco,

Merci, Merci, Mercis.
Du très grand Art. Le résultat est plus que parfait, il est génial.
Avec tous mes remerciements.

CG2000