Discussion :

[graphikris]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Marc-L]

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 …

[graphikris]

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print List.DataBodyRange.Address

et l'adresse de la plage contenant le header

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print List.HeaderRowRange.Address

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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