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

Résolu
BUDGETS Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention   -  
BUDGETS Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention   -
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


--
BUDGETS

2 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    1. BUDGETS Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention  
       
      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
      1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > BUDGETS Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention  
         
        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
      2. BUDGETS Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention   > f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention  
         
        Merci. Test réussi. La prochaine discussion (si nécessaire) portera vraisemblablement sur la Modification.
        0
      3. BUDGETS Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention   > BUDGETS Messages postés 1612 Date d'inscription   Statut Membre Dernière intervention  
         
        J'ai crée une nouvelle discussion : Modification.
        0
  2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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