lettre d'une colonne

mutzik

XLDnaute Barbatruc

• 30 Janvier 2008

• #2

Re : lettre d'une colonne

bonjour

en faisant car(colonne()+64)
de mémoire et à tester

 

Vote positif 0 Vote négatif

TheProdigy

XLDnaute Impliqué

• 30 Janvier 2008

• #3

Re : lettre d'une colonne

Bonjour,

Et pourquoi +64???? 🙁

Merci

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 30 Janvier 2008

• #4

Re : lettre d'une colonne

Bonjour
Cette solution ira jusque Z...
Pourquoi 64 car le code ASCII de A est 65 et ainsi de suite...
A+ François

 

Vote positif 0 Vote négatif

ZZR09

XLDnaute Occasionnel

• 30 Janvier 2008

• #5

Re : lettre d'une colonne

bonjour mutzik,


je viens de tester, c'est bien ça mais ça ne fonctionne que jusquà Z. ensuite il doit falloir bidouiller un peu avec les multiples de 26.
mais je n'en ai pas besoin pour l'instant.

Oups, boujour adilprodigy, fanfan38

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Janvier 2008

• #6

Re : lettre d'une colonne

Bonjour

Avec cette formule un peu longue ca fonctionne



=GAUCHE(SUBSTITUE(ADRESSE(LIGNE();COLONNE());"$";"");2)

Tu peux nommer cette formule (Insertion/Noms Définir) --> LETTRE_COL
Et améliorer la formule en utilsant celle-ci
=SI(NBCAR(ADRESSE(LIGNE();COLONNE();2))>3;GAUCHE(SUBSTITUE(ADRESSE(LIGNE();COLONNE();2);"$";" ");2);GAUCHE(SUBSTITUE(ADRESSE(LIGNE();COLONNE();2);"$";" ");1))

Voir fichier joint

 

Dernière édition: 30 Janvier 2008

Vote positif 0 Vote négatif

ZZR09

XLDnaute Occasionnel

• 30 Janvier 2008

• #7

Re : lettre d'une colonne

Bonjour Staple1600

Avec ça, même pas besoin de bidouille les multiples 😛
merci 😉

 

Vote positif 0 Vote négatif

TheLio

XLDnaute Accro

• 30 Janvier 2008

• #8

Re : lettre d'une colonne

Hello,
Pour avoir les affichages de AA AB etc, ça fonctionne comme ça chez moi:
=GAUCHE(SUBSTITUE(ADRESSE(LIGNE();COLONNE());"$";" ");3)
(sous2007) y at'il une incidence???
A++
TheLio

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 30 Janvier 2008

• #9

Re : lettre d'une colonne

Bonjour Lionel, Jean-Marie,ZZR09, François, et Bertrand

Non, c'est bien 3 qu'il faut, même sous 2000

Bonne journée

Jean-Pierre

 

Vote positif 0 Vote négatif

ZZR09

XLDnaute Occasionnel

• 30 Janvier 2008

• #10

Re : lettre d'une colonne

Bonjour TheLio,

je ne pense pas que la version d'excel y soit pour quelque chose ... je n'ai pas testé la formule de Staple1600 mais j'ai juste retenu le principe.

A+

 

Vote positif 0 Vote négatif

ZZR09

XLDnaute Occasionnel

• 30 Janvier 2008

• #11

Re : lettre d'une colonne

Arf!

pas assez rapide ... bonjour Jeanpierre

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Janvier 2008

• #12

Re : lettre d'une colonne

Re à tous


J'ai du mal ce matin


J'ai mis un fichier exemple dans ma première réponse avec une formule nommée

et avec la formule complète

Avant édition il y avait une erreur

C'est pas >4 mais >3 (comme l'a noté jeanpierre)

 

Vote positif 0 Vote négatif

L

Lord Nelson

XLDnaute Occasionnel

• 30 Janvier 2008

• #13

Re : lettre d'une colonne

Salut à tous,

Avec un peu de calcul, ça donnerait :

=SI(A1<=26;CAR(A1+64);SI(MOD(A1;26)=0;CAR(ENT(A1/26)+63)&"Z";CAR(ENT(A1/26)+64)&CAR(MOD(A1;26)+64)))

Mais la formule est limitée à ZZ.

A+
Horatio

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Janvier 2008

• #14

Re : lettre d'une colonne

RE

En plus court

=SUBSTITUE(GAUCHE(ADRESSE(LIGNE();COLONNE();2);2);"$";"")

et donc en nommant cette formule (Insertion/Noms/Définir) --> LETTRE_COL


Désolé (j'avais pas bu mon café)

 

Dernière édition: 30 Janvier 2008

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 30 Janvier 2008

• #15

Re : lettre d'une colonne

Jour Bon,malgré tout une solution VBA
Sous forme de fonctions personnalisées, donc à placer dans un Module pour pouvoir les appeler via le menu Excel Insertion | Fonctions Fonctions Personnalisées
Les limites : A à FXSHRXW | 1 à 2147483647

Code:

Public Function Lettre2NumCol(ByVal Chaine As String) As Long 
Dim i As Long, ValeurCh As Long, v As Long 
Const ChaineAlpha As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
    For i = 1 To Len(Chaine) 
        ValeurCh = InStr(1, ChaineAlpha, Mid(UCase(Chaine), i, 1)) 
        v = v * 26 + ValeurCh 
    Next 
    Lettre2NumCol = v 
End Function 
   
Public Function NumCol2Lettre(ByVal NumCol As Long) As String 
Dim i As Long, x As Long, s As String 
    For i = 6 To 0 Step -1 
        x = (26 ^ (i + 1) - 1) / 25 - 1 
        If NumCol > x Then 
            s = s & Chr(((NumCol - x - 1) \ 26 ^ i) Mod 26 + 65) 
        End If 
    Next i 
    NumCol2Lettre = s 
End Function

 

Vote positif 0 Vote négatif