Tuto VBA : Fonctions Listobjects et Unlist

Dans cette vidéo, Je vais vous montrer comment utiliser un tableau dans un programme VBA

=================== Ci dessous le programme
Sub test()

Dim Tableau As Worksheet
Dim NomTab As ListObject
Set Tableau = ActiveWorkbook.Worksheets("Tableau")

Tableau.Activate
Set NomTab = Tableau.ListObjects(1)
NomTab.Unlist

Dim DLigneTableau As Integer
DLigneTableau = Tableau.Range("A" & Tableau.Rows.Count).End(xlUp).Row

Tableau.Range("A1").Select
Selection.AutoFilter
Tableau.AutoFilter.Sort.SortFields.Clear
Tableau.AutoFilter.Sort.SortFields.Add2 _
Key:=Range("B1" & DLigneTableau), SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tableau").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub

===================
✅ MES CONSEILS EN MATIERE DE LIVRES ✅
- Excel 2022 ▶ https://amzn.to/3GMoR5W
- Excel 2021 pas à pas pour les Nuls ▶ https://amzn.to/3WUPJ9z
- VBA Excel ▶ https://amzn.to/3Qoo8LA
- Excel pour les nuls ▶ https://amzn.to/3HrrPvZ
- Maitrisez les fonctions avancées d'Excel ▶ https://amzn.to/3wIafPg
- Excel avancé ▶ https://amzn.to/3JwwOhI

Ci dessous les liens pour le Canada :
- Excel 2023 ▶ https://amzn.to/3IqKYQO
- Excel VBA ▶ https://amzn.to/3CrgBWn

? Réussir sur Excel n'est plus qu'une question de formalité. Vous n'avez plus d'excuses
===================

Information IMPORTANTE :
Les liens Amazon sont des liens issus du programme de partenaire Amazon, cela veut dire que si vous commandez quelque chose en passant par mon lien je toucherai une petite commission.
Merci d'avance

#transposer #exceltutorial #formation

Merci d'avance