Changer un numéro de colonne en lettre(s)

Le
Tatanka
Bonjour, Bonjour,

J'ai une fonction qui transforme le numéro
d'une colonne en lettre(s) :

Function ColonneA(n)
Set p1 = Application.Caller
Set p2 = Cells(p1.Row, n)
r = p2.Address(True, False)
r = Left(r, InStr(1, r, "$") - 1)
ColonneA = r
End Function

Je cherche maintenant une formule Excel qui
donnerait le même résultat. Il me semble que
j'ai déjà vu une telle formule sur ce site.
Vous avez une idée ?

Serge
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Tatanka
Le #5161731
J'en ai trouvé une en « traduisant » la fonction en formule.
En nommant « n » une celllule contenant le numéro d'une colonne,
cette formule :
=GAUCHE(ADRESSE(LIGNE();n;2);CHERCHE("$";ADRESSE(LIGNE();n;2);1)-1)
est équivalente à ColonneA(n).
Pourrait-on obtenir la même chose autrement ?

Serge

"Tatanka"
Bonjour, Bonjour,

J'ai une fonction qui transforme le numéro
d'une colonne en lettre(s) :

Function ColonneA(n)
Set p1 = Application.Caller
Set p2 = Cells(p1.Row, n)
r = p2.Address(True, False)
r = Left(r, InStr(1, r, "$") - 1)
ColonneA = r
End Function

Je cherche maintenant une formule Excel qui
donnerait le même résultat. Il me semble que
j'ai déjà vu une telle formule sur ce site.
Vous avez une idée ?

Serge



JB
Le #5161711
Bonjour,

A1 contient le no:

=SUBSTITUE(SUBSTITUE(ADRESSE(1;A1);"$";"");"1";"")

JB

On 18 fév, 17:22, "Tatanka"
Bonjour, Bonjour,

J'ai une fonction qui transforme le numéro
d'une colonne en lettre(s) :

Function ColonneA(n)
    Set p1 = Application.Caller
    Set p2 = Cells(p1.Row, n)
    r = p2.Address(True, False)
    r = Left(r, InStr(1, r, "$") - 1)
    ColonneA = r
End Function

Je cherche maintenant une formule Excel qui
donnerait le même résultat. Il me semble que
j'ai déjà vu une telle formule sur ce site.
Vous avez une idée ?

Serge


isabelle
Le #5161691
bonjour Serge,

=SI(COLONNE()>26;CAR(ENT((COLONNE()-1)/26)+64);"")&CAR(MOD((COLONNE()-1);26)+65)

isabelle

Bonjour, Bonjour,

J'ai une fonction qui transforme le numéro
d'une colonne en lettre(s) :

Function ColonneA(n)
Set p1 = Application.Caller
Set p2 = Cells(p1.Row, n)
r = p2.Address(True, False)
r = Left(r, InStr(1, r, "$") - 1)
ColonneA = r
End Function

Je cherche maintenant une formule Excel qui
donnerait le même résultat. Il me semble que
j'ai déjà vu une telle formule sur ce site.
Vous avez une idée ?

Serge




isabelle
Le #5161681
ou bien comme la tienne sans le n :

=GAUCHE(ADRESSE(LIGNE();COLONNE();2);CHERCHE("$";ADRESSE(LIGNE();COLONNE();2);1)-1)

isabelle

J'en ai trouvé une en « traduisant » la fonction en formule.
En nommant « n » une celllule contenant le numéro d'une colonne,
cette formule :
=GAUCHE(ADRESSE(LIGNE();n;2);CHERCHE("$";ADRESSE(LIGNE();n;2);1)-1)
est équivalente à ColonneA(n).
Pourrait-on obtenir la même chose autrement ?

Serge

"Tatanka"
Bonjour, Bonjour,

J'ai une fonction qui transforme le numéro
d'une colonne en lettre(s) :

Function ColonneA(n)
Set p1 = Application.Caller
Set p2 = Cells(p1.Row, n)
r = p2.Address(True, False)
r = Left(r, InStr(1, r, "$") - 1)
ColonneA = r
End Function

Je cherche maintenant une formule Excel qui
donnerait le même résultat. Il me semble que
j'ai déjà vu une telle formule sur ce site.
Vous avez une idée ?

Serge







Tatanka
Le #5161671
Salut JB,

Yep! 18 caractères de moins.

Serge

"JB" Bonjour,

A1 contient le no:

=SUBSTITUE(SUBSTITUE(ADRESSE(1;A1);"$";"");"1";"")

JB

On 18 fév, 17:22, "Tatanka"
Bonjour, Bonjour,

J'ai une fonction qui transforme le numéro
d'une colonne en lettre(s) :

Function ColonneA(n)
Set p1 = Application.Caller
Set p2 = Cells(p1.Row, n)
r = p2.Address(True, False)
r = Left(r, InStr(1, r, "$") - 1)
ColonneA = r
End Function

Je cherche maintenant une formule Excel qui
donnerait le même résultat. Il me semble que
j'ai déjà vu une telle formule sur ce site.
Vous avez une idée ?

Serge


JB
Le #5161661
En VBA:

Function ColLettre(col)
ColLettre = Split(Cells(1, col).Address, "$")(1)
End Function

JB

On 18 fév, 17:46, JB
Bonjour,

A1 contient le no:

=SUBSTITUE(SUBSTITUE(ADRESSE(1;A1);"$";"");"1";"")

JB

On 18 fév, 17:22, "Tatanka"


Bonjour, Bonjour,

J'ai une fonction qui transforme le numéro
d'une colonne en lettre(s) :

Function ColonneA(n)
    Set p1 = Application.Caller
    Set p2 = Cells(p1.Row, n)
    r = p2.Address(True, False)
    r = Left(r, InStr(1, r, "$") - 1)
    ColonneA = r
End Function

Je cherche maintenant une formule Excel qui
donnerait le même résultat. Il me semble que
j'ai déjà vu une telle formule sur ce site.
Vous avez une idée ?

Serge- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Tatanka
Le #5161651
Bonjour Isabelle,

C'est bien celle-là que j'ai déjà vue.
Et si j'entre le nom d'une colonne en lettre(s) dans une cellule
nommée « col », cette formule la transforme en nombre.

=COLONNE(INDIRECT(col&LIGNE()))

Bonne journée,

Serge


"isabelle" a écrit dans le message de news:
bonjour Serge,

=SI(COLONNE()>26;CAR(ENT((COLONNE()-1)/26)+64);"")&CAR(MOD((COLONNE()-1);26)+65)

isabelle

Bonjour, Bonjour,

J'ai une fonction qui transforme le numéro
d'une colonne en lettre(s) :

Function ColonneA(n)
Set p1 = Application.Caller
Set p2 = Cells(p1.Row, n)
r = p2.Address(True, False)
r = Left(r, InStr(1, r, "$") - 1)
ColonneA = r
End Function

Je cherche maintenant une formule Excel qui
donnerait le même résultat. Il me semble que
j'ai déjà vu une telle formule sur ce site.
Vous avez une idée ?

Serge




Tatanka
Le #5161641
À bien y penser, moé lâ, j'abandonne les concours de brièveté ;-)

Serge

"JB" En VBA:

Function ColLettre(col)
ColLettre = Split(Cells(1, col).Address, "$")(1)
End Function

JB

On 18 fév, 17:46, JB
Bonjour,

A1 contient le no:

=SUBSTITUE(SUBSTITUE(ADRESSE(1;A1);"$";"");"1";"")

JB

On 18 fév, 17:22, "Tatanka"


Bonjour, Bonjour,

J'ai une fonction qui transforme le numéro
d'une colonne en lettre(s) :

Function ColonneA(n)
Set p1 = Application.Caller
Set p2 = Cells(p1.Row, n)
r = p2.Address(True, False)
r = Left(r, InStr(1, r, "$") - 1)
ColonneA = r
End Function

Je cherche maintenant une formule Excel qui
donnerait le même résultat. Il me semble que
j'ai déjà vu une telle formule sur ce site.
Vous avez une idée ?

Serge- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



ChrisV
Le #5161581
Salut Serge,

Tu pourrais aussi utiliser:
=COLONNE(INDIRECT(col&1))


ChrisV


"Tatanka" OUxFE%
Bonjour Isabelle,

C'est bien celle-là que j'ai déjà vue.
Et si j'entre le nom d'une colonne en lettre(s) dans une cellule
nommée « col », cette formule la transforme en nombre.

=COLONNE(INDIRECT(col&LIGNE()))

Bonne journée,

Serge


"isabelle" a écrit dans le message de news:

bonjour Serge,

=SI(COLONNE()>26;CAR(ENT((COLONNE()-1)/26)+64);"")&CAR(MOD((COLONNE()-1);26)+65)

isabelle

Bonjour, Bonjour,

J'ai une fonction qui transforme le numéro
d'une colonne en lettre(s) :

Function ColonneA(n)
Set p1 = Application.Caller
Set p2 = Cells(p1.Row, n)
r = p2.Address(True, False)
r = Left(r, InStr(1, r, "$") - 1)
ColonneA = r
End Function

Je cherche maintenant une formule Excel qui
donnerait le même résultat. Il me semble que
j'ai déjà vu une telle formule sur ce site.
Vous avez une idée ?

Serge








ChrisV
Le #5161571
Ou encore... ;-)

=SUBSTITUE(ADRESSE(1;A1;4);"1";"")


ChrisV


"Tatanka" %
Salut JB,

Yep! 18 caractères de moins.

Serge

"JB"
Bonjour,

A1 contient le no:

=SUBSTITUE(SUBSTITUE(ADRESSE(1;A1);"$";"");"1";"")

JB

On 18 fév, 17:22, "Tatanka"
Bonjour, Bonjour,

J'ai une fonction qui transforme le numéro
d'une colonne en lettre(s) :

Function ColonneA(n)
Set p1 = Application.Caller
Set p2 = Cells(p1.Row, n)
r = p2.Address(True, False)
r = Left(r, InStr(1, r, "$") - 1)
ColonneA = r
End Function

Je cherche maintenant une formule Excel qui
donnerait le même résultat. Il me semble que
j'ai déjà vu une telle formule sur ce site.
Vous avez une idée ?

Serge






Publicité
Poster une réponse
Anonyme