Objet VBA spécifique : ListObject

Bonjour,

Suite à une discussion avec Mr Pierre Fauconnier concernant la modification automatique de zone d'impression, la solution la plus idéale est de créer une liste (Données / Liste / Créer une liste).
Après avoir donc créer ma liste, je me suis aperçu que je ne pouvais plus trier (Données / Trier) mes données. En effet le fait de créer une liste "grise" la fonction "Tri".
Voici le code mis à l'ouverture d'Excel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Private Sub Workbook_Open() ' supprime le recalcul des cellules   Application.ScreenUpdating = False Application.Calculation = xlCalculationManual     'Empecher l'ouverture si fichier deja ouvert sur le reseau par un autre utilisateur   If ThisWorkbook.ReadOnly = True Then '------avertissement MsgBox "Ce classeur est en cours de modification par un autre utilisateur" _ & "Il va etre refermé", vbInformation ' -----fermeture ThisWorkbook.Close 'Else     End If   Sheets("Accueil").Select   ' indication heure et date CreateObject("Wscript.shell").Popup "Bonjour " & Environ("username") & "." & Chr$(13) & Chr$(13) & "Nous sommes le " & Date & " et il est exactement " & Time & "." & Chr$(13) & Chr$(13) & "Une réinitialisation des cellules de la base de données va avoir lieu." & Chr$(13) & Chr$(13) & "Attendre le retour sur la page d'accueil avant toute manipulation.", 10, "Application développée par Graphikris.", vbExclamation   'Défiltre toutes les colonnes   Sheets("Feuil1").Select Range("A1:DY122").Select   Range("A1:DY121").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("B2").Select   ' remet le recalcul des cellules Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic

---

Les lignes 29 et 31 font en sorte que le tri aille de A1 à DY121. Si des lignes sont rajoutées voir supprimées, il risque d'avoir un Bug.

Quelqu'un pourrait-il m'aider en insérant l'objet : ListObject (dixit Mr Fauconnier Pierre) dont je ne connais pas l'existence ainsi que la fonction ?

Cordialement
Graphikris.

Bonjour.

Je viens de regarder sur une version 2003, les listes (objet normal ListObject) peuvent être triées sans souci.

Donc refaire le test sur un nouveau classeur …

Sinon comme déjà évoqué sur un autre de tes posts, voir DataBodyRange, utile pour trier son parent ListObject …

Bonjour et merci Marc,

Le problème est que je ne comprends absolument rien à ce que tu veux dire.
Comment refaire le test sur un nouveau classeur ?
De meme pour : voir DataBodyRange, utile pour trier son parent ListObject …
Que dois je faire exactement ?

Cordialement

Bonjour,
Voici un exemple de procédure permettant de trier une liste (testé avec la version 2003 et 2010).
La liste se nomme maListe et couvre la plage A1:J106

Code:

---

1 2 3 4 5 6 7

Sub SortListObject() Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("db") Dim list As ListObject: Set list = sht.ListObjects("maListe") With list.DataBodyRange .Sort Key1:=.Range("E1"), Key2:=.Range("D1"), Order2:=xlDescending, Header:=xlYes End With End Sub

---

Pour connaître l'adresse de la plage de données d'une liste

Code:

---

Debug.Print List.DataBodyRange.Address

---

et l'adresse de la plage contenant le header

Code:

---

Debug.Print List.HeaderRowRange.Address

---

Exemple :

Code:

---

1 2 3 4 5 6

Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("db") Dim list As ListObject: Set list = sht.ListObjects("maListe") With list Debug.Print .DataBodyRange.Address Debug.Print .HeaderRowRange.Address End With

---

Pour créer une liste ou un tableau (version >2003)

Code:

---

1 2 3 4 5 6

Sub CreateList() Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("db") With sht .ListObjects.Add(xlSrcRange, .Range("$A$1").CurrentRegion, , xlYes).Name = "maListe" End With End Sub

---

Convertir une liste en plage

Code:

---

1 2 3 4

Sub ConvertListToRange() Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("db") sht.ListObjects("maListe").Unlist End Sub

---

Mais tu peux aussi utiliser le tri classique même si la plage est une liste

Code:

---

1 2 3 4

Sub SortRange() Dim dbCli As Range: Set dbCli = ThisWorkbook.Worksheets("db").Range("A1").CurrentRegion With dbCli: .Sort Key1:=.Range("E1"), Key2:=.Range("D1"), Order2:=xlDescending, Header:=xlYes: End With End Sub

---