Blog de Philippe Vialatte » Excel

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

Excel : convertir le numéro d’une colonne en lettre

Philippe Vialatte — Thu, 22 Aug 2013 08:40:41 +0000

Un petit problème sur…a peu près tous les dev en vba, et qui est souvent posé sur divers forum Excel, est la conversion du numéro d’une colonne en texte.

Dans mes recherches, je suis tombé sur:
- des formules qui marchaient bien…tant qu’on avait des numéros inférieurs a 78
- des formules qui marchaient bien…tant qu’on n’était pas sur un multiple de 26
- des formules qui marchaient…pas du tout

Pour ceux que cela peut intéresser (et pour moi quand j’aurait oublié ), les deux seules méthodes qui marchent de façon satisfaisantes sont les suivantes :

En VBA:

Public Function ColID2Ltr(columnId As Integer) As String

    If columnId > 26 Then

        ' si la colonne est supérieur a 26, il faut la représenter sur au moins 2 caractères

        ' on récupère la partie la plus a droite du nombre a décomposer, et on appelle de façon récursive ColID2Ltr

        Dim partieGauche As Integer, partieDroite As Integer

        If (columnId Mod 26 0) Then

            partieDroite = columnId Mod 26

            partieGauche = (columnId - partieDroite) / 26

        Else

            partieDroite = 26

            partieGauche = (columnId / 26) - 1

        End If

        ColID2Ltr = ColID2Ltr(partieGauche) + NumToChar(partieDroite)

    Else

        ColID2Ltr = NumToChar(columnId)

    End If

End Function

Public Function NumToChar(id As Integer) As String

    NumToChar = Chr(id + 64)

End Function

Si on ne veut pas utiliser de VBA, le plus simple est d’utiliser (si le nombre que l’on veut convertir est dans la colonne A1 :

=SUBSTITUE(ADRESSE(1;A1;4);"1";"")

Attention, la formule basée sur SUBSTITUE a une limitation, a savoir qu’elle ne peut pas calculer au-delà de la capacité du classeur.

Par exemple, dans un classeur au format xls, la valeur maximale gérée par cette formule sera 256 (IV), la ou, dans un classeur xlsx, avec Excel 2010, ce sera 16384.

Par contre, pour la fonction VBA…la limite devient 32 767, ou AVLG (on pourrait aller plus loin avec des long, mais je ne vois pas l’intérêt )