Inclure Numéro création dans le TriTNAM (avec ou sans boucles).

Résolu/Fermé
BUDGETS Messages postés 1582 Date d'inscription samedi 19 juillet 2014 Statut Membre Dernière intervention 14 février 2025 - 28 août 2021 à 22:29
BUDGETS Messages postés 1582 Date d'inscription samedi 19 juillet 2014 Statut Membre Dernière intervention 14 février 2025 - 29 août 2021 à 17:17
Bonjour,
Création des articles :
DW08 : numéro création : 1
DW04 : numéro création : 2
DW05 : numéro création : 3
DW03 : numéro création : 4
Après tri :
DW03 : numéro création : 4
DW04 : numéro création : 2
DW05 : numéro création : 3
DW08 : numéro création : 1
Dans Tri, j'ai ajouté une ligne pour Numéro création avec sorton:=0, order:=1 (aucun changement), order:=0 (message d'erreur), order:=2 (aucun changement). J'ai vainement cherché les order:= : je n'ai rien trouvé qui explique à quoi correspond, 1, 2 et plus si cela existe. J'ai trouvé : 1 = croissant, ascending : 2 = décroissant, descending
Après tri, serait-il possible que DW03 ait comme numéro création 1, DW04 ait comme numéro création : 2, DW5 ait comme numéro création 3 et enfin DW08 ait comme numéro création 4 ? ALS 35 m'a dit qu'avec l'utilisation d'une boucle cela serait possible mais je ne sais pas ce qu'il faudrait mettre avec for, ni quelles instructions à écrire.
https://www.cjoint.com/c/KHCuCTzNfFo



Configuration: Windows / Chrome 92.0.4515.159

A voir également:

2 réponses

f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
Modifié le 29 août 2021 à 08:49
Bonjour,

Je recupere le fichier

Suite:

Private Sub TriTNAM()
    Dim NE As Long, n As Long
    
    With Feuille_Liste_Bd_articles_menus.ListObjects("TNAM")
        With .Sort
            .Header = xlYes 'La première ligne du tableau TNAM est une ligne d'en-têtes (=> ne pas la trier !)
            .MatchCase = False 'Trier sans faire la différence entre les majuscules et les minuscules
            With .SortFields
                .Clear 'Supprimer tous les critères de tri
                .Add Key:=Range("TNAM[CAM]"), SortOn:=0, Order:=1 'Code article (par valeur, croissant)
                .Add Key:=Range("TNAM[NAM]"), SortOn:=0, Order:=1 'Nom article (par valeur, croissant)
            End With
                .Apply: [B2].Select 'Fait le tri selon les informations ci-dessus, puis va en B2
        End With
        'Ecriture Colonne Numéro création
        NE = .ListRows.Count
        For n = 1 To NE
            Range("TNAM[Numéro création]").Item(n) = n
        Next n
    End With
End Sub
0
BUDGETS Messages postés 1582 Date d'inscription samedi 19 juillet 2014 Statut Membre Dernière intervention 14 février 2025
Modifié le 29 août 2021 à 11:30
Merci pour le code. Je vais le tester. Dans les dim, que représente NE et N, mis à part le fait que ce soit des nombres ?
Je suis sincère et je le pense en disant cela : mais vous êtes comme ALS35 : tous les deux vous comprenez ce que je souhaite et vous faites tout votre possible pour me donner satisfaction. Un grand merci. D'après votre pseudo, êtes-vous l'Yonne ?
0
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713 > BUDGETS Messages postés 1582 Date d'inscription samedi 19 juillet 2014 Statut Membre Dernière intervention 14 février 2025
Modifié le 29 août 2021 à 11:55
Re,

NE: nombre de ligne du tableau TNAM
n: variable pour boucler sur les cellules Num creation

D'après votre pseudo, êtes-vous l'Yonne ?
Non
0
BUDGETS Messages postés 1582 Date d'inscription samedi 19 juillet 2014 Statut Membre Dernière intervention 14 février 2025 > f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025
Modifié le 29 août 2021 à 12:00
Merci. Test réussi. La prochaine discussion (si nécessaire) portera vraisemblablement sur la Modification.
0
BUDGETS Messages postés 1582 Date d'inscription samedi 19 juillet 2014 Statut Membre Dernière intervention 14 février 2025 > BUDGETS Messages postés 1582 Date d'inscription samedi 19 juillet 2014 Statut Membre Dernière intervention 14 février 2025
29 août 2021 à 17:17
J'ai crée une nouvelle discussion : Modification.
0
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 1 713
29 août 2021 à 09:44
Re,

Une explication sur des parametre de tri et le site mMcrsoft
https://cjoint.com/c/KHDhLtHojjf

Le probleme pour beaucoup de personne est les doc partes du parametre Excel et donne l'equivalent en nombre
Vous verrez, magnifique jeu de piste ave des infos en francais/anglais suivant
0