Bug dans un code la FAQ VBA?

[grafikm_fr]

Hello,

J'ai voulu repiquer un code dans la FAQ VBA, plus précisement celui qui concerne le moyen d'obtenir la valeur en lettre de la colonne (ici), et je me suis aperçu qu'il y avait un souci.

En effet, pour les colonnes en "Z" (AZ, BZ etc...) la valeur retournée est incorrecte. Par exemple, pour la colonne 52, la valeur retournée est B@ et non AZ. C'est un effet de bord lié au "Mod 26"

En ce qui me concerne, j'ai modifié le code comme suit:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Public Function GetColLetter(NumCol As Integer) As String
'obtenir un numéro de colonne
Dim temp As String
 
If NumCol > 26 Then
    temp = IIf(NumCol Mod 26 <> 0, Chr(64 + NumCol \ 26) & Chr(64 + NumCol Mod 26), Chr(63 + NumCol \ 26) & "Z")
Else
    temp = Chr(64 + NumCol)
End If
 
GetColLetter = temp
End Function

Graf.

[Pierre Fauconnier]

Salut.

On va corriger dans la faq. Merci d'avoir signalé...

Tu pourrais utiliser ceci

Code :

1
2
3
4
5
6
Function LettresColonne(Numero As Long)
  Dim Adresse As String
 
  Adresse = Cells(1, Numero).Address(1, 0)
  LettresColonne = Left(Adresse, InStr(1, Adresse, "$") - 1)
End Function

[grafikm_fr]

Envoyé par Pierre Fauconnier

Tu pourrais utiliser ceci

J'ai préféré fournir une solution qui est dans la même veine que l'entrée d'origine de bidou
Et je préfère aussi avoir une fonction qui ne fait pas appel à un adressage excel (pas de Cells etc...) mais c'est juste mon point de vue, je suis pas sectaire

[Pierre Fauconnier]

Avec la solution que je propose, il faut qu'une feuille de calcul soit active pour que la fonction ne plante pas.

A supposer qu'il a au moins une feuille de calcul dans le classeur, on pourrait utiliser

Code :

1
2
3
4
5
6
Function LettresColonne(Numero As Long)
  Dim Adresse As String
 
  Adresse = worksheets(0)Cells(1, Numero).Address(1, 0)
  LettresColonne = Left(Adresse, InStr(1, Adresse, "$") - 1)
End Function

Mais s'il n'y a pas de feuilles de calcul dans le classeur, ma fonction plantera.

C'est donc une bonne raison pour pouvoir préférer un algorithme qui n'utilise pas Cells (ou Range).