Bug dans un code la FAQ VBA?

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" :P

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.

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

---

Citation:

---

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 ;)

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). :ccool: