Conversion numéro de colonne Excel en lettre [Résolu]

Messages postés
257
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
- - Dernière réponse : riton222
Messages postés
1
Date d'inscription
jeudi 30 octobre 2003
Statut
Membre
Dernière intervention
4 septembre 2007
- 4 sept. 2007 à 11:00
Bonjour,
De access je veux convertir un numéro de colonne d'un tableau Excel en lettre (lettre de la colonne)
J'ai essayé cette fonction mais celle ci ne fonctionne pas apparement ca serait mon cells qui échoue
Si quelqu'un peut me dire ce qui ne va pas merci d'avance


Function LettreColonne(colonne As Long) As String
    If colonne > 0 And colonne < 257 Then
        LettreColonne = Split(Cells(1, colonne).Address(1, 0), "$")(0)
    End If
End Function
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
3181
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
24
3
Merci
Salut,

Tout est ici :

http://www.codyx.org/snippet_identifier-position-colonne-excel-depuis-son-header-vice_282.aspx







__________
Kenji

(


Nouveau forum VBA/Office

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 131 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Charles Racaud
Messages postés
50
Date d'inscription
mercredi 28 mars 2007
Statut
Membre
Dernière intervention
31 août 2007
0
Merci
Salut darkspoilt!

Si j'ai bien compris tu veux convertir le numéro de la colonne en lettre.
Mais, le nom de colonne est deja en lettre. Non? =P

Si tu pouvais démontrer ce que tu veux réelement faire je (nous) pourrai peut-etre t'aider.

A+
makakdef
Commenter la réponse de cs_makakdef
Messages postés
1
Date d'inscription
jeudi 30 octobre 2003
Statut
Membre
Dernière intervention
4 septembre 2007
0
Merci
en plus simple:

Function LettreColonne(colonne As Long) As String
Dim t_LettreColonne As Variant
    If colonne > 0 And colonne < 257 Then
        t_LettreColonne = Split(Cells(1, colonne).Address(1, 0), "$")
        LettreColonne = t_LettreColonne(0)
    End If
End Function


Sub test()
MsgBox LettreColonne(10)
End Sub
Commenter la réponse de riton222