août
2013
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 )
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