Problème de tris et macro

Bonjour,

Dans une feuille, j'ai des données qui sont classées par journée (lundi, mardi, ...)Pour chaque journée, il y a trois informations (produits, quantités et code) Soit il y a des chiffres ou bien c'est écrit FAUX. Ce que je veux faire c'est de garder seulement les chiffres de chaque journées en enlevant les données ''FAUX''. J'ai essayé une macro mais cela n'a pas fonctionné. Voici un exemple de mon fichier. Merci de votre aide.

Bonsoir,

il y a combien de lignes et colonnes sur le fichier réel ? (environ)

edit: quand il y a FAUX, c'est toujours sur les 3 colonnes "produit", "Qts" et "code"

Claude

Pour les colonnes je vais jusqu'à Y et les lignes jusqu'à 2074.

re,

j'ai édité en même temps que toi, je réitère ma question

quand il y a FAUX, c'est toujours sur les 3 colonnes "produit", "Qts" et "code" ?

Claude

Oui

Pas bavard le asthon !

Afin d'éviter d'avoir comme d'habitude à reprendre la macro,

envoie la feuille avec sa structure réelle (quelques lignes seulement)

Ras le bol, de faire et défaire (sur chaque fichier) les gens croient pouvoir adapter

mais n'y arrivent jamais.

Claude

dubois a écrit :

Pas bavard le asthon !

Afin d'éviter d'avoir comme d'habitude à reprendre la macro,

envoie la feuille avec sa structure réelle (quelques lignes seulement)

Ras le bol, de faire et défaire (sur chaque fichier) les gens croient pouvoir adapter

mais n'y arrivent jamais.

Claude

Bonjour Claude,

Le fichier est trop gros pour que je puisse le mettre sur le forum (1,5 mo), est-ce que je peux te l'envoyer par e-mails ?

Merci

Bonsoir,

C'est juste pour régler la macro, je n'ai pas besoin du fichier de 1.5 Mo

envoie une copie de la feuille en supprimant des lignes,

J'ai besoin de savoir où se situent les en-têtes (ligne, colonnes)

Amicalement

Claude

Bonsoir,

Le fichier Classeur1.xlsx que j'ai joint au début est une copie conforme de ma feuille (lignes, colonnes)

Merci !!!

Eric

bonsoir,

Sub Filtre() 'supprime les valeurs =FAUX
Dim A%, Lg%, cL%
'Macro par Claude Dubois pour "asthon" Excel-Pratique le 09/10/10
    Application.ScreenUpdating = False
        Lg = Range("b65536").End(xlUp).Row
        cL = Cells(3, 250).End(xlToLeft).Column
    With Sheets("Feuil2")
        For A = 2 To cL Step 4
            Range("z2") = "=" & Cells(4, A).Address(RowAbsolute:=False) & "<>false"
            '--- filtre le jour dans Feuil2 ---
            Range(Cells(3, A), Cells(Lg, A + 2)).AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=Range("z1:z2"), CopyToRange:= _
            .Range(.Cells(3, A), .Cells(3, A + 2)), Unique:=False
            '--- formate ---
            .Cells(1, A) = Cells(1, A)
            .Cells(2, A) = Cells(2, A)
            .Cells(2, A).NumberFormat = "m/d/yyyy"
            .Range(.Cells(1, A), .Cells(1, A + 2)).Merge
            .Range(.Cells(2, A), .Cells(2, A + 2)).Merge
            .Range(A & ":" & A + 2).EntireColumn.AutoFit
            .Columns(A + 3).ColumnWidth = 3
        Next A
            .Activate
    End With
End Sub

Amicalement

Claude

Merci Claude

C'est vraiment apprécié

Prends le bon réflexe de solder les postes, c'est ici