Macro de mise en forme et de tri

Bonjour à tous

Besoin d'un petit coup de pouce pour créer une macro.

J'ai un fichier sous excel 2007 que j'aimerai mettre en forme et extraire des données.

En résumé:

Créer une nouvelle feuille qui prend seulement les colonnes A, B, C, D, F, G, H, I, J et Q

La colonne A contient 4 chiffres dont seul les 3 premiers sont retenus

Seules les lignes dont la colonne Q est égale à C5 ou Z6 doivent êtres retenues

Adresse du fichier d'exemples:

https://www.excel-pratique.com/~files/doc2/phil16.xls

Merci par avance à vous tous

Philippe

Bonjour,

ici, on filtre sur place, mais on peut extraire sur une autre feuille

Dis-nous ?

https://www.excel-pratique.com/~files/doc2/Filtre_phil16.xls

Amicalement

Claude.

dubois a écrit :

Bonjour,

ici, on filtre sur place, mais on peut extraire sur une autre feuille

Dis-nous ?

https://www.excel-pratique.com/~files/doc2/Filtre_phil16.xls

Amicalement

Claude.

Merci Claude de te pencher sur ma demande. L'idéal serait de créer une nouvelle feuille avec les données extraites.

Les colonnes A, B, C et D étant regoupées en une seule colonne et en ne prenant que les 3 premiers chiffres de la colonne A.

Merci

re,

Fait un exemple d'une ou 2 lignes, du résultat attendu.

édit: combien de lignes à traiter ?

Claude.

Ci dessous le fichier exemple attendu.

https://www.excel-pratique.com/~files/doc2/phil16_2.xls

Tu peux voir que les 4 premieres colonnes onrt ete rassemblé en une seule, et que seul les 3 premiers caracteres de la colonne A ont ete pris.

Le filtre sur la colonne Q est appliqué.

Ce fichier varie toutes les semaines et le nombre des lignes peut etres important et n'est pas constant d'une semaine a l'autre.

Merci

re,

ok, je vais faire des courses, réponse en début après-midi

Combien de lignes (environ ou fourchette)

Claude.

Nombre de ligne environ 4400

mais ce fichier evolue de semaine en semaine et peut etre plus court ou plus long !!

A+

Merci

Philippe

re,

avec une feuille nommée "Extrait"

Sub Filtre()
''Macros par Claude Dubois pour "phil16" Excel-Pratique le 16 oct 09
Dim Lg As Integer, Cel As Range
    Application.ScreenUpdating = False
    Range("a4:q4").Copy Destination:=Range("Extrait!b1")
    Range("b2").Formula = "=or($q5=$d$1,$q5=$d$2)"
    Range("r4:a" & [a65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    "b1:b2"), CopyToRange:=Range("extrait!b1:r1"), Unique:=False
    Range("b2").ClearContents

    With Sheets("Extrait")
        .Activate
            Lg = .Range("b65536").End(xlUp).Row
        .Range("a1") = "Référence"
            For Each Cel In .Range("a2:a" & Lg)
               Cel.FormulaR1C1 = "=LEFT(RC[1],3)&RC[2]&RC[3]&RC[4]"
               Cel = Cel
            Next Cel
         .Range("b:f,L:q").Delete
         .Columns("A:g").AutoFit
    End With
End Sub

Fichier:

https://www.excel-pratique.com/~files/doc2/Filtre_phil16_2.xls

Amicalement

Claude

édit:

merci de répondre et de mettre en "Résolu" ce fil

https://www.excel-pratique.com/forum/viewtopic.php?t=8837&start=10&postdays=0&postorder=asc&highlight=

Wouaf !!!!!!!

Ca a l'air de marcher impec !!!!!!

Quel rapidité de tri !!

En tout cas merci pour votre réactivité et votre compétence!

MERCI

Philippe,

Pour mettre les postes en "résolu", utilise l'utilitaire en bas à gauche,

et en étant connecté.

(pas dans le titre)

Claude.