je suis excel lent !

[lulu]

Salut,
pourriez vous m'aider à résoudre ce souci:

comment obtenir à partir d'une macro qui est par exemple le titre d'une colonne ex:"colonne N°31" le nom "excel" de la colonne soit par ex: "AE" ?

Merci beaucoup!!!

LULU...

 

[Robert]

Salut Lulu, Salut le forum

J’ai galéré sur ce plan là. J’ai trouvé une astuce avec une macro qui fonctionne mais j’ai carrément honte de t’envoyer ça car je suis persuadé qu’il doit exister un code beaucoup plus court pour le faire. Mais puisque ça marche… si ça peut te dépanner.
Dans le fichier joint tu trouveras le code dans le Module1, macro “test”.

À plus,

Robert

 

[Coyote]

Hello..... sans trop de galère et sans macro.

Cependant, pas trouvé de formule directe sans création d'une table

Fichier joint plus explicite


Renommer le fichier col.zip en col.xls pour l'exploiter (je n'ai pas WINZIP sur ce PC)

 

[Bernard]

Bonsoir Lulu et Robert

Robert, je ne comprend pas bien l'intérêt de toute la macro ???

Si c'est pour inscrire uniquement avec le bouton l'appellation de la colonne dans la cellule active, la macro suivante suffit :

Sub AppelCol()
Cells.ClearContents 'efface toute inscription de la feuille
ActiveCell.Value = Column 'Inscrit l'appellation de la colonne dans la cellule active

End Sub

Si c'est pour passer des références L1C1 en style de références A1
La macro est :

Sub References()
Application.ReferenceStyle = xlA1
end sub

Cordialement

Bernard

 

[Robert]

Salut Lulu, Coyote, Bernard, salut le forum

Je t'avoue Bernard que moi aussi je ne comprends pas l'intérêt de vouloir le numéro de colonne EN LETTRE.

Bien sûr que "activecell.value=activecell.column" renvoie le numéro de la colonne dans la cellule active mais pas EN CHIIFRE. On a beau changé le RéférenceStyle, la valeur renvoyée et toujours EN CHIFFRE.
Et j'avais cru comprendre (mais son texte n'est pas très clair) que Lulu désirait récupérer cette valeur EN LETTRE.
J'ai passé un temps fou dans l'aide d'excel a essayer de trouver rapidement ce moyen puis en désespoir de cause me suis décider à créer cette macro qui ne me convient pas mais qui a au moins le mérite de fonctionner.

Au passage je te signale que ta macro ci-dessous ne renvoie rien du tout.

Sub AppelCol()
Cells.ClearContents 'efface toute inscription de la feuille
ActiveCell.Value = Column 'Inscrit l'appellation de la colonne dans la cellule active

End Sub

À plus

Robert

 

[Robert]

Re à tous,

Il m'avait semblé avoir déja vu cette question il y a peu de temps et je l'ai retrouvé avec une réponse excellente de Wally :

sAdr = ActiveCell.Address(1, 0)
MsgBox Mid(sAdr, 1, InStr(1, sAdr, "$") - 1)

Donc, Lulu oublie vite ton mon "merdier..."

À plus

Robert