récupéré le code d'une colonne

[budbundy81]

je réexplique le problème, j'ai comme point de départ la colonne G, avec un nombre au hasard, je voudrais colorier un certains nombre de cellules.

Exemple :

Colonne G, points de départ
Nombre : 6
Donc je veux que les cellules G+6 soit colorié, c'est à dire jusqu'à la colonne L (G+6=L en code ascii)

Pour sa pas de problème, mais dès que je dépasse Z, sa ne fonctionne plus.

J'ai besoin de récupérer un code quelconque pour les colonnes ayant un nom composé de 2 lettres (AB)

 

[STéphane]

positionne-toi sur une cellule de ces colonnes et utilise le code ci-dessous de Myrna

'Récupérer la lettre de la ligne ou colonne à l'aide d'instructions VBA :
Function ColumnLetter()
Dim C As Integer, L As Integer
With ActiveCell
C = .Column
If C > 26 Then L = 2 Else L = 1
ColumnLetter = Left$(.Address(0, 0), L)
End With
End Function

Sub dhd()
MsgBox ColumnLetter
End Sub

bye
Stéphane