[VBA-E] référence colonne en fonction de son index et inversement

Je n'ai pas trouvé dans l'aide...

Comment obtenir la référence de la colonne n ?

Ex: Si n=40 je veux que ça me retourne "AN", de même que si je sais "AN", je veux que ça me retourne 40.

Dénomination de colonne

Code:

---

1 2 3

NoColonne=40 DenomCol = Left$(cells(1,NoColonne).Address(0, 0), (NoColonne < 27) + 2)

---

No de colonne

Code:

---

1 2 3

DenomCol="AN" NoColonne = Range(DenomCol & "1").Column

---

Pour l'index en fonction de la référence, c'est exactement ce que je voulais :D

Pour la référence en fonction de l'index, j'avais déjà fait en truc dans le genre mais je pensais qu'il y avait une solution plus élégante.

En tout cas, merci ;)


(je ne mets pas ce topic tout de suite en "résolu", au cas où la solution "élégante" existe ;))

=SI(ENT(index/26)>0;CAR(ENT(index/26)+64);"")&CAR(MOD(index;26)+64)

=colonne(ref & 1)

oui on a aussi:

=left(Feuil1.Columns(n).Address(columnAbsolute:=False),IIF(n>26,2,1))

Mais bon, ce que je veux dire par élégant, c'est l'utilisation d'une propriété, style:

=Feuil1.Columns(n).name ou Feuil1.Columns(n).ref

Mais bon, ça fait plus d'une heure que je cherche, je crois que je vais laisser tomber ;)

=colonne(ref & 1) tu peux remplacer par columns(ref & 1)
c'est aussi élégant (enfin je trouve)

nb le nom de la feuille n'a rien à voir la dedans
b=2 indépdendemment de la feuille

J'ai trouvé ça:

Code:

---

MsgBox Split(Columns(40).Address(0, 0), ":")(0)

---

Je trouve ça relativement "propre". :roll:

Edit:
Et, dans l'autre sens:

Code:

---

MsgBox Columns("AN").Column

---

me paraît très "soft" aussi... :mrgreen: