probleme avec la fonction MID

[Chico]

bonjour a tous,
voila mon probleme,

j'aimerai en VB mettre dans une variable la lettre de la colonne,
par exemple 'A17'
je fais:
lettre2 = ActiveCell.Address
ce qui donne lettre2 = $A$17
apres, je fais:
lettre = Mid(lettre2, 2, 1)
Ce qui donne lettre = A

mais le probleme c que si, la Cellule est 'AD17'
lettre donne comme resultat 'A' et pas 'AD'
a cause du '1' de la fonction MID
aurais-t-il un moyen pour que dans tous les cas de figure, j'aurai dans la variable ' lettre ', la ou les lettre/s de la colonne?

merci d'avant pour cette petite aide.

.Chico-

 

[PascalXLD]

Bonjour

essaies comme ceci

Sub toto()

Dim lettre2() As String, lettre As String

lettre2 = Split(ActiveCell.Address, '$')
lettre = lettre2(1)

End Sub

Ne fonctionne pas avec excel97

Bon courage

 

[Chico]

merci pascal,

g une autre formule je sais pas quel est le mieux:
lettre = Left$(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)

mais ca marche aussi