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 ✅

Ci dessous les liens pour le Canada :

🦾 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