OVH Cloud OVH Cloud

lettre de colonne

22 réponses
Avatar
Claire
Bonjour,

Range("C3").column

Cette commande me donne 3 comme résultat. J'aimerais avoir C comme
résultat.
Merci
Claire

10 réponses

1 2 3
Avatar
Clément Marcotte
Bonjour,

Juste pour le fun

http://groups.google.com/groups?hl=fr&lr=&threadm=uP%23oSGT4DHA.2188%40TK2MSFTNGP10.phx.gbl&rnum=2&prev=/groups%3Fq%3Dactivecell.address%2Bgroup:microsoft.public.fr.excel%2Bauthor:clement.marcotte%2540sympatico.ca%26hl%3Dfr%26lr%3D%26scoring%3Dd%26start%3D0%26sa%3DN



"Rai" a écrit dans le message de
news:41a0f4a4$0$8188$
Bonsoir,

Juste histoire de mettre mon grain de sel :
c = Selection.Column
l = LTrim(Chr((c > 26) * (c -26 - 32) + 32) & Chr(c Mod 26 +
64))

Ca marche aussi dans tous les cas de figure ;o)
Et surtout : Pourquoi faire simple quand on peut faire ...


Bonne soirée


Rai


"docm" a écrit dans le message de news:
eXr1s9$
Bonjour.

Pour tenir compte de ce point:

colonne = Range("BC3").column

lettres = IIf(colonne 26 = 0, "", Chr(64 + colonne 26)) & Chr(64
+

colonne - (colonne 26) * 26)

Docm

"JpPradier" wrote in message
news:O6wM4q#
MsgBox (Chr(64 + Range("C3").Column))


Je sais pas si après la colonne Z ça va faire...;-)

AV


J'avoue que je n'avais pas envisagé ce point.

j-p









Avatar
JpPradier
Bonsoir Rai

c = Selection.Column
l = LTrim(Chr((c > 26) * (c -26 - 32) + 32) & Chr(c Mod 26 + 64))

Ca marche aussi dans tous les cas de figure ;o)
Et surtout : Pourquoi faire simple quand on peut faire ...



Bé non, toujours pas avec range("AZ3").column

j-p

Avatar
twinley
Salut Clément,

Je retiens la formule : "solution agricole"

:o)

--
à+twinley
"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

Juste pour le fun


http://groups.google.com/groups?hl=fr&lr=&threadm=uP%23oSGT4DHA.2188%40TK2MSFTNGP10.phx.gbl&rnum=2&prev=/groups%3Fq%3Dactivecell.address%2Bgroup:microsoft.public.fr.excel%2Bauthor:clement.marcotte%2540sympatico.ca%26hl%3Dfr%26lr%3D%26scoring%3Dd%26start%3D0%26sa%3DN




"Rai" a écrit dans le message de
news:41a0f4a4$0$8188$
Bonsoir,

Juste histoire de mettre mon grain de sel :
c = Selection.Column
l = LTrim(Chr((c > 26) * (c -26 - 32) + 32) & Chr(c Mod 26 +
64))

Ca marche aussi dans tous les cas de figure ;o)
Et surtout : Pourquoi faire simple quand on peut faire ...


Bonne soirée


Rai


"docm" a écrit dans le message de news:
eXr1s9$
Bonjour.

Pour tenir compte de ce point:

colonne = Range("BC3").column

lettres = IIf(colonne 26 = 0, "", Chr(64 + colonne 26)) & Chr(64
+

colonne - (colonne 26) * 26)

Docm

"JpPradier" wrote in message
news:O6wM4q#
MsgBox (Chr(64 + Range("C3").Column))


Je sais pas si après la colonne Z ça va faire...;-)

AV


J'avoue que je n'avais pas envisagé ce point.

j-p












Avatar
Rai
AAAArrrgh !!!

Voilà ce qui arrive quand on est trop sûr de soi !
J'ai bien testé avec un certain nombre de valeurs, mais bien entendu jamais avec Z ;o))

Bon, après correction et vérification, je propose ça :
l = LTrim(Chr((c > 26) * (c -26 - 32) + ((c Mod 26) = 0) * 1 + 32) & Chr(c Mod 26 + ((c Mod 26) = 0) * -26 + 64))


Comment ça, une usine à gaz ??
OK, j'admets
On va dire que c'était juste pour l'exercice de style "écrire la formule en 1 ligne maximum"...

Bonne nuit à tout le monde

Rai

"JpPradier" a écrit dans le message de news: %235qb%
Bonsoir Rai

c = Selection.Column
l = LTrim(Chr((c > 26) * (c -26 - 32) + 32) & Chr(c Mod 26 + 64))

Ca marche aussi dans tous les cas de figure ;o)
Et surtout : Pourquoi faire simple quand on peut faire ...



Bé non, toujours pas avec range("AZ3").column

j-p




Avatar
twinley
Bonsoir,

Waouh, mais tu es le frère de AV ? avoue...

--
à+twinley
"Rai" a écrit dans le message de
news:41a114bd$0$7232$
AAAArrrgh !!!

Voilà ce qui arrive quand on est trop sûr de soi !
J'ai bien testé avec un certain nombre de valeurs, mais bien entendu jamais
avec Z ;o))

Bon, après correction et vérification, je propose ça :
l = LTrim(Chr((c > 26) * (c -26 - 32) + ((c Mod 26) = 0) * 1 + 32) & Chr(c
Mod 26 + ((c Mod 26) = 0) * -26 + 64))


Comment ça, une usine à gaz ??
OK, j'admets
On va dire que c'était juste pour l'exercice de style "écrire la formule en
1 ligne maximum"...

Bonne nuit à tout le monde

Rai

"JpPradier" a écrit dans le message
de news: %235qb%
Bonsoir Rai

c = Selection.Column
l = LTrim(Chr((c > 26) * (c -26 - 32) + 32) & Chr(c Mod 26 + 64))

Ca marche aussi dans tous les cas de figure ;o)
Et surtout : Pourquoi faire simple quand on peut faire ...



Bé non, toujours pas avec range("AZ3").column

j-p




Avatar
JpPradier
Désolé Rai
=> Range("bz3").column marche pas.

Pour le fun la mienne :

macol = Range("bz3").Column
MsgBox IIf(macol < 27, "", Chr(64 + Int(((macol - 1) / 26))) & Chr(64 + macol - (26 * Int((macol -
1) / 26))))

j-p
Avatar
docm
Dans ce cas, essayons cette modification qui tient compte de ce nouveau cas
de figure:

colonne = Range("az3").Column

lettres = IIf((colonne - 1) 26 = 0, "", Chr(64 + (colonne - 1) 26)) &
Chr(64 + colonne - ((colonne - 1) 26) * 26)


"JpPradier" wrote in message
news:
Désolé Rai
=> Range("bz3").column marche pas.

Pour le fun la mienne :

macol = Range("bz3").Column
MsgBox IIf(macol < 27, "", Chr(64 + Int(((macol - 1) / 26))) & Chr(64 +
macol - (26 * Int((macol -

1) / 26))))

j-p



Avatar
GD
Bonsour ®,
Clément Marcotte wrote:
Juste pour le fun

http://groups.google.com/groups?hl=fr&lr=&threadm=uP%23oSGT4DHA.2188%40TK2MSFTNGP10.phx.gbl&rnum=2&prev=/groups%3Fq%3Dactivecell.address%2Bgroup:microsoft.public.fr.excel%2Bauthor:clement.marcotte%2540sympatico.ca%26hl%3Dfr%26lr%3D%26scoring%3Dd%26start%3D0%26sa%3DN


alors juste pour la zizanie ;o)))
http://groups.google.com/groups?hl=fr&lr=&c2coff=1&scoring=d&q=%22lettre+de+la+colonne%22+ru-th+group%3Amicrosoft.public.fr.excel&btnG=Rechercher

;o)))

Avatar
GD
Bonsour ® JpPradier
regarde la réponse de 20:59
;o)))
je dois avouer que la solution avait déja été donnée le 17 mars 2004.
google est ton ami...
@+

wrote:
Désolé Rai
=> Range("bz3").column marche pas.

Pour le fun la mienne :

macol = Range("bz3").Column
MsgBox IIf(macol < 27, "", Chr(64 + Int(((macol - 1) / 26))) & Chr(64
+ macol - (26 * Int((macol - 1) / 26))))

j-p


Avatar
docm
Oups... je n'avais pas vu que tu avais trouvé toi-même une solution quasi
identique. Désolé.

"JpPradier" wrote in message
news:
Désolé Rai
=> Range("bz3").column marche pas.

Pour le fun la mienne :

macol = Range("bz3").Column
MsgBox IIf(macol < 27, "", Chr(64 + Int(((macol - 1) / 26))) & Chr(64 +
macol - (26 * Int((macol -

1) / 26))))

j-p



1 2 3