25
septembre
2013
Excel : quelques fonctions sympas sur les tableaux
septembre
2013
Un article de Philippe Vialatte
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
Articles récents
Archives
- janvier 2014
- septembre 2013
- août 2013
- mai 2013
- avril 2013
- janvier 2013
- août 2012
- juin 2012
- mai 2012
- avril 2012
- mars 2012
- novembre 2011
- septembre 2011
- août 2011
- juillet 2011
- juin 2011
- mai 2011
- avril 2011
- février 2011
- janvier 2011
- novembre 2010
- octobre 2010
- septembre 2010
- août 2010
- juillet 2010
- juin 2010
- mai 2010
- avril 2010
- mars 2010
- février 2010
- janvier 2010
- décembre 2009
- novembre 2009
- octobre 2009
- septembre 2009
- août 2009
- juillet 2009
- juin 2009
- mai 2009
- avril 2009
- mars 2009
- février 2009
- janvier 2009