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