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 ?
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" a écrit dans le message de news:
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
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" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: uNgr7pkcIHA.2000@TK2MSFTNGP05.phx.gbl...
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 ?
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" a écrit dans le message de news:
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 ?
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 ?
On 18 fév, 17:22, "Tatanka" <garno...@ENLEVER.videotron.ca> wrote:
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 ?
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 ?
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 ?
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 ?
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 ?
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" a écrit dans le message de news:
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 ?
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" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: uNgr7pkcIHA.2000@TK2MSFTNGP05.phx.gbl...
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 ?
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" a écrit dans le message de news:
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 ?
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
Salut JB,
Yep! 18 caractères de moins.
Serge
"JB" <boisgontier@hotmail.com> a écrit dans le message de news: 9e4e4e4b-4328-45b8-834d-82f48c78e2b0@s13g2000prd.googlegroups.com...
Bonjour,
On 18 fév, 17:22, "Tatanka" <garno...@ENLEVER.videotron.ca> wrote:
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 ?
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
En VBA:
Function ColLettre(col) ColLettre = Split(Cells(1, col).Address, "$")(1) End Function
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 -
En VBA:
Function ColLettre(col)
ColLettre = Split(Cells(1, col).Address, "$")(1)
End Function
JB
On 18 fév, 17:46, JB <boisgont...@hotmail.com> wrote:
On 18 fév, 17:22, "Tatanka" <garno...@ENLEVER.videotron.ca> wrote:
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 ?
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
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.
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
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" <i@v> a écrit dans le message de news: utjua4kcIHA.5164@TK2MSFTNGP03.phx.gbl...
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 ?
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.
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
À bien y penser, moé lâ, j'abandonne les concours de brièveté ;-)
Serge
"JB" a écrit dans le message de news: En VBA:
Function ColLettre(col) ColLettre = Split(Cells(1, col).Address, "$")(1) End Function
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 -
À bien y penser, moé lâ, j'abandonne les concours de brièveté ;-)
Serge
"JB" <boisgontier@hotmail.com> a écrit dans le message de news: 0e855952-60e3-4ca8-977c-223b477b3463@s12g2000prg.googlegroups.com...
En VBA:
Function ColLettre(col)
ColLettre = Split(Cells(1, col).Address, "$")(1)
End Function
JB
On 18 fév, 17:46, JB <boisgont...@hotmail.com> wrote:
On 18 fév, 17:22, "Tatanka" <garno...@ENLEVER.videotron.ca> wrote:
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 ?
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
Salut Serge,
Tu pourrais aussi utiliser: =COLONNE(INDIRECT(col&1))
ChrisV
"Tatanka" a écrit dans le message de news: 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.
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
Salut Serge,
Tu pourrais aussi utiliser:
=COLONNE(INDIRECT(col&1))
ChrisV
"Tatanka" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news:
OUxFE%23kcIHA.4332@TK2MSFTNGP04.phx.gbl...
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" <i@v> a écrit dans le message de news:
utjua4kcIHA.5164@TK2MSFTNGP03.phx.gbl...
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 ?
Tu pourrais aussi utiliser: =COLONNE(INDIRECT(col&1))
ChrisV
"Tatanka" a écrit dans le message de news: 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.
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 ?
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
Ou encore... ;-)
=SUBSTITUE(ADRESSE(1;A1;4);"1";"")
ChrisV
"Tatanka" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news:
%23zxWp7kcIHA.4332@TK2MSFTNGP04.phx.gbl...
Salut JB,
Yep! 18 caractères de moins.
Serge
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
9e4e4e4b-4328-45b8-834d-82f48c78e2b0@s13g2000prd.googlegroups.com...
Bonjour,
On 18 fév, 17:22, "Tatanka" <garno...@ENLEVER.videotron.ca> wrote:
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 ?
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 ?