Trier un tableau listé

Bonjour,
Je chercher à trier alphabétiquement un tableau en prenant en compte une colonne spécifique.

Le problème est qu'une des colonne de mon tableau est listé (de 1 au nombre max de ligne de mon tableau) grâce à l'outil de listage.

Quand j'effectue un trie de A à Z , ma colonne listé numériquement ne varie pas...

Comment faire?
Y-a-t-il un moyen automatique de convertir une valeur généré par le logiciel en une valeur brut (comme si elle avait été tapée) ?

6 réponses

  • Votes
  • Date
  • Date décroissante
  1. Bonjour,
    Merci pour votre réponse !

    Voilà un exemple du tableau : https://www.cjoint.com/c/IElkfvwC6Yr

    Je cherche à trier le tableau par ordre alphabétique en prenant pour base de traitement la colonne 2. Les numéro de la colonne 1 doivent correspondre au données de la colonne 2 après trie.
    1. Si j'ai bien compris tu veux un classement croissant de la colonne B en tenant compte de la colonne A
      Exemple si le A colonne B =12 en colonne A
      on doit retrouver le A en haut de la colonne avec a coté le N° 12
      1. Modérateur
        Bonjour,

        Le plus simple : tu copies colles vers Excel, tu fais ton tri et tu rapatries dans Word.

        Dans Word, il n'y a pas de solution facile pour ça.

        m@rina
        1. @JCB40 : oui c'est bien ça

          m@rina : J'ai testé, ça ne marche pas comme il fraudais... Les cellules prennent des tailles aléatoires, j'ai toute la mise en forme a revoir...

          J'imaginais plutôt un script qui en fonction des cellule sélectionnée, écrit le chiffre de 1 à nombre max de cellule sélectionnée. Ensuite, les donnée étant brut, je pourrais faire mon trie.
          1. Bonjour,
            J'ai finalement créé un code moi même.
            Je ne connais pas plus que ça le langage VBA, donc le code n'est pas très adaptatif.

            Se que fait le code :
            - Sélectionne le tableau n°1 du document actif
            - Supprime les listes à puce et le texte de chaque cellule de la 1ère colonne à partir de la 2ème ligne
            - Ajoute le numéro correspondant à la ligne

            Sub addNumberRow()
            Length = ActiveDocument.Tables(1).Columns(1).Cells.Count
            For i = 2 To Length
            ActiveDocument.Tables(1).Cell(i, 1).Select
            Selection.Delete
            Selection.Range.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph
            Selection.TypeText Text:=i - 1
            Next
            End Sub


            Bonne journée