Comment convertir toutes les tables en plages dans la feuille de calcul active?

Dans Excel, vous pouvez utiliser certaines tables pour enregistrer des données, mais, dans certains cas, vous souhaitez convertir la table en plage pour effectuer une édition. En règle générale, vous ne pouvez convertir qu'une seule table en plage une fois, ce sera gênant si des dizaines de tables dans une feuille doivent être converties en plages. Ici, j'ai un code VBA qui peut convertir des tables de feuille active en plage à la fois.

Convertir toutes les tables en plages de feuille active avec VBA

Convertir toutes les tables en plages de feuille active avec VBA

1. Activez la feuille dont vous souhaitez convertir ses tableaux, puis appuyez sur Alt + F11 clés pour activer Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module pour créer un nouveau script de module, copiez et collez le code ci-dessous dans le module vide.

VBA: convertir toutes les tables de la feuille active en plages

Sub ConvertTablesToRange()
'UpdatebyExtendoffice20180530
    Dim xSheet As Worksheet
    Dim xList As ListObject
    Set xSheet = ActiveWorkbook.ActiveSheet
    For Each xList In xSheet.ListObjects
        xList.Unlist
    Next
End Sub

3. presse F5 clé pour exécuter le code, maintenant toutes les tables de la feuille actuelle ont été converties en plages.