Excel : quelques fonctions sympas sur les tableaux

Philippe Vialatte — Wed, 25 Sep 2013 11:45:00 +0000

Dans la série “Excel et moi, je t’aime, moi non plus”, le sujet du jour concerne la manipulation des tableaux.

On a tellement l’habitude, dans un langage de programmation moderne, de manipuler des tableaux d’objets, que, avec Excel, on s’attendrait a un comportement un peu civilisé.

Du type : exposer une possibilité simple d’itérer sur les lignes d’un tableau, permettre de vider un tableau, ou de créer un tableau de manière propre

…bah en fait, non…

Du coup, comme j’en avais besoin, 3 petites fonction qui font juste ça :

Sub ParcourirTable(sheet As Worksheet,nomTable As String)

    sheet.Select

    Dim tbl As ListObject

    Set tbl = ActiveSheet.ListObjects(nomTable)

    Dim row As Range

    Dim cell As Range

    For Each row In tbl.DataBodyRange.Rows

        For Each cell In row.Cells

            Debug.Print cell.Value

        Next

        Debug.Print "---"

    Next

End Sub

Sub EffacerContenuTable(sheet As Worksheet, nomTable As String)

    sheet.Select

    With ActiveSheet.ListObjects(nomTable )

        If Not .DataBodyRange Is Nothing Then

            .DataBodyRange.ClearContents

            .DataBodyRange.Delete

        End If

    End With

End Sub

Sub CreerTable(sheet As Worksheet, nom As String, adresse As String)

    sheet.ListObjects.Add(xlSrcRange, range(adresse), , xlYes).Name = nom

End Sub

Blog de Philippe Vialatte » excel

Excel : quelques fonctions sympas sur les tableaux