Problème entre Cells et Range

Bonsour® Abso avec ferveur ;o))) vous nous disiez :

je souhaiterais savoir comment retrouver l'indice alphanumérique d'une
cellule.
Concrêtement :
Cells(1,1) = A1
Cells(6,3) = F3
Je souhaiterais retrouver facilement le A de Cells(1,1) ou le F de
Cells(6,3)

Msgbox cells(6,3).address(true,true)
donne $C$6
Msgbox cells(6,3).address(false,false)
donne C6
--
--
@+
;o)))

Bonjour,
Sans passer par vba :
­RESSE(1;3) renvoie $C$1
--
Cordialement
jpmonnier-nospam@neuf.fr
"Abso" <AbsoRiid@gmail.com> a écrit dans le message de
news:c5827af5-1769-4e62-a8c8-dcb84bd93e31@z72g2000hsb.googlegroups.com...
Bonjour,
je souhaiterais savoir comment retrouver l'indice alphanumérique d'une
cellule.
Concrêtement :
Cells(1,1) = A1
Cells(6,3) = F3
Je souhaiterais retrouver facilement le A de Cells(1,1) ou le F de
Cells(6,3)
Merci à tous pour votre aide.

AbsoRiid.

Ou alors
x = 1
cells(x, 1) correspond donc à la cellule A1, et pour n'avoir que le
A :
Colonne = Chr(64 + x)

Cordialement,

F.

Bonjour,

Function lettrecol(c As Range) As String
lettrecol = Columns(c.Cells(1).Column).Address
lettrecol = Mid(lettrecol, 2, InStr(lettrecol, ":") - 2)
End Function

'lSteph



Abso a écrit :

Bonjour,
je souhaiterais savoir comment retrouver l'indice alphanum�rique d'une
cellule.
Concr�tement :
Cells(1,1) = A1
Cells(6,3) = F3
Je souhaiterais retrouver facilement le A de Cells(1,1) ou le F de
Cells(6,3)
Merci � tous pour votre aide.

AbsoRiid.