Classement en fonction de critéres

serait il possible sur mon tableau (cf fichier joint), que les produits qui seront cochés en périmé, apparaissent dans le haut du tableau et ceux qui ne le seront pas se trouvent dans le bas du tableau?

https://www.excel-pratique.com/~files/doc/perimes.xls

Salut,

Regarde dans le fichier joint et dis nous

< < fichier ici > >

En colonne AH: ajout du nombre de périmés avec la formule nbval()

Ensuite sur le bouton tri par périmés: on fais un test sur la colonne AH pour savoir si la formule est bien présente sinon on la créé. Cela évite de le faire manuellement si tu ajoutes un produit.

Par exemple, tu ajoutes un produit A272, tu n'as pas besoin de mettre la formule en AH, cela se fait automatiquement.

J'ai également ajouté un bouton pour refaire le tri par produits.

A te lire,

Souri84

merci, merci, merci et encore merci de nous faire partager votre tps et votre savoir

et est ce qu'au lieu de mettre un bouton "trier par nom" serait il possible de mettre un bouton pour que les produits périmés soit trier en fonction de leur jour de peremption?

sinon tres bon travail. encore merci

Je ne vois pas pourquoi tu veux faire cela, mais je pense que ceci répond à ta demande:

< < fichier ici > >

clique sur un nombre de la ligne 4

A te lire,

Souri84

merci pour le travail fourni mais effectivement vu comme ca, je comprend que vous ne compreniez pas. En fait ce que je voudrai c'est que les produits qui se perime le premier du mois, apparaissent en premier ensuite, ceux qui se periment le 2, puis ceux du 3,etc, etc.

merci bcp pour votre tps.

o fait, comment faites vous pour crér ces macros?

Ok, je revoie le fichier demain dans la journée (vendredi) si personne n'a pris le relais.

J'essaierai de faire en sorte d'avoir le tri par jour comme vous souhaitez....

A+

Souri84

Bonsoir à tous,

souri84,

Le tri plante sous ma version 2000

même problème que pour la biblioVBA

peux-tu tester ce code pour voir si bon en V.2003

Sub trieNom()
Dim derlig As Integer
derlig = Range("A65000").End(xlUp).Row
    Range("A4:AH" & derlig).Select

    Selection.Sort Key1:=Range("a5"), Order1:=xlAscending, _
    Header:=xlGuess, OrderCustom:=1, MatchCase:=False

'********** ci-dessous le code plante erreur 1004 ****************
    'Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A4").Select
End Sub

amicalement

Claude.

Salut le forum

Claude sous Excel 2000 supprime l'instuction

DataOption1:=xlSortNormal

N'existe que depuis Excel 2003 et cela fonctionne quand même sans.

Mytå

C'est bon à savoir,

Merci pour l'astuce....

apparement, ma demande a posé quelques problemes est-ce que vous avez reussis à les regler?