Forum Clubic

Colone Excel

Bonjour,

je sais qu’excel n’est pas de la ‘programmation’ mais je bute sur quelquechose

J’ai un fichier dans lequel les colones sont nommées style toute la colone A est nommée ‘boutique’

Je cherche un moyen de retrouver en vba la propriété qui me permetrait en étant n’importe où dans la colone A de retrouver son nom soit boutique.

J’ai essayé Columns.Name mais ça ne donne rien sinon une erreur à l’exécution.
Edité le 11/10/2008 à 11:04

Columns.Name, ça ne correspond à rien, il faut que tu précises ta colonne : Columns(x).Name

Mais c’est un peu plus compliqué que ça ça doit donner quelque chose comme

’ d’abord identifier la colonne
refcol = ActiveCell.EntireColumn.Name
’ puis explorer la liste des noms
for each n in ActiveWorbook.Names
if n.RefersTo = refcol then
nom = n.Name
exit for
Next

Merci mais ça ne correspond pas à ce que je cherche

avec : MsgBox Columns(ActiveCell.Column).Name j’obtiens =Feuil1!$A:$A mais pas le nom que J’AI donné à savoir TOTO.

je continue à chercher mais votre aide m’est précieuse.

C’est exactement ce que je viens de t’expliquer plus haut
ton Feuil1!$A:$A, c’est ce qui correspond à ActiveWorbook.Names.RefersTo
Ensuite, tu n’as pas d’autre solution que de balayer l’ensemble noms du classeur pour voir lequel (lesquels ?) correspond (ent) à cette référence.

Voila la solution

Columns(numColonne).Name.Name

Mais si la colonne ne porte pas de nom erreur 1004

donc a traiter dans un bloc

On Error Resume Next 'si erreur passe à l’instruction suivante sans message
MsgBox "Vous etes bien chez " + Columns(numColonne).Name.Name
On Error GoTo 0 'invalide le gestionnaire d’erreur

Effectivement, c’est curieux, mais ça marche
Par ce que rien n’empêche normalement de donner plusieurs noms à une colonne
Et dans ce cas, je me demande bien comment récupérer par cette méthode les noms autres que le premier pour la colonne concernée