Trier un tableau avec 2 lignes en header

Bonjour,

ayant parcouru en vain le forum en vue de trouver un réponse, je me résous à ouvrir un topic pour poser la question.

Je dispose d'un tableau sous word qui a un header sur 2 lignes.
J'aimerai trier le tableau à partir de la ligne 3 et jusqu'à la fin.

Comment cela serait-il possible ?

J'ai d'abord pensé à "capturer" la partie du tableau à trier dans un objet Range puis à trier cet objet. Mais cela ne marche pas.
A titre illustratif, voici un bout du code qui ne fonctionne pas

Code:

---

1 2 3 4 5 6 7 8

Dim Nblignes as Integer Dim MonRange As Range   Nblignes = wordDoc.Tables(1).Rows.Count Set MonRange = wordDoc.Range(Start:=wordDoc.Tables(1).Cell(3, 1).Range.Start, _ End:=wordDoc.Tables(1).Cell(Nblignes, 5).Range.End) MonRange.Sort (...??)

---

Comment feriez vous pour trier un tableau selon la 1ere colonne (tri croissant) d'un tableau comportant un header sur 2 lignes ?

D'avance merci pour votre aide.

Salut,

Essaie avec un objet Selection au lieu d'un objet Range.

Citation:

---

Envoyé par Heureux-oli

Salut,

Essaie avec un objet Selection au lieu d'un objet Range.

---

Plus précisement Heureux-oli, tu suggères de passer par quelque chose comme

Code:

---

wordDoc.Tables(1).select

---

?

Comment ferais-tu pour enregistrer plusieurs lignes dans la selection ?

Salut,

Si tu utilises cette méthode, tu vas sélectionner toute la table, or tu ne veux pas des deux premières lignes.


Tu dois te positionner sur la prmière colonne de la troisième ligne.

Code:

---

1 2 3 4

ActiveDocument.Tables(1).Cell(3, 1).Select Selection.EndKey Unit:=wdColumn, Extend:=True Selection.EndKey Unit:=wdRow, Extend:=True Selection.SortAscending

---

Merci :D
Il se trouve hélas que la ligne

Code:

---

Selection.EndKey Unit:=wdColumn, Extend:=True

---

génère l'erreur d'exécution '438' ("Propriété ou méthode non générée par cet objet) sous le VBA de word 2003.
Une idée pourquoi ?

Salut,

J'ai un petit problème, je viens de faire le test su 2003 et il fonctionne chez moi.

Humm, j'ai l'impression que l'expression

Code:

---

Selection.EndKey Unit:=wdColumn, Extend:=True

---

ne fonctionnement pas parce que je la fais tourner depuis VBA Excel.

Y aurait-il une reference à activer en plus de la Microsoft Word xx.x Object Library ?

Quand je fais tourner cette expression sous VBA word 2003, ca fonctionne en effet. Par contre, la commande

Code:

---

Selection.SortAscending

---

trie le tableau dans son ensemble et non pas uniquement la selection.

Vous avez remarqué le même comportement ?

Salut,

Non, j'ai le tableau qui est trié sur seulement la sélection ?
Je vais refaire le test.

Si la macro tourne sous Excel, il faut ajouter la référence Word au projet.


Dans le VBE : Outils -> Références -> Microsoft Word
pour 2003, c'est 11

Merci pour ces indications.

Tu m'a débloqué Heureux-oli.

Le sujet est clos. :ccool: