Nommer des colonnes qui bougent

[Chris57]

Bonjour à tous,

j'ai un tableau avec plusieurs colonnes qu'on peu réorganiser et donc dont on peu changer l'ordre.

Mais je dois pouvoir extraire des données de ce tableau par macros, du genre :
for i = 1 to 8000
if cells(i,1) = "x" then MAvaleur = cells(i,8).value
next i


Mais si je change l'ordre des colonnes, ces macros ne fonctionneront plus !

Est-il possible de donner un nom à ces colonnes, nom qu'elles garderons quoi qu'il arrive ?

merci d'avance.

 

[MJ13]

Re : Nommer des colonnes qui bougent

Bonjour Chris

Il sufffit de mettre des noms sur ta première ligne, puis de sélectionner ton tableau puis taper Ctrl+Shift+F3 et sélectionner ligne. Ensuite, tu peux suppimer ta première ligne.

 

[Pierrot93]

Re : Nommer des colonnes qui bougent

Bonjour Chris, Michel

un exemple de boucle sur une colonne nommée :

Dim i As Long
For i = 1 To 8000
    Range("macolonneH")(i).Select
Next i

bon après midi
@+

 

[Chris57]

Re : Nommer des colonnes qui bougent

Génial ! Merci !!

ESt il possible ensuite d'extraire le nom de cette colonne ?

 

[Pierrot93]

Re : Nommer des colonnes qui bougent

Re,

ESt il possible ensuite d'extraire le nom de cette colonne ?

euh... comprends pas trop... en l'état le nom c'est macolonneH

 

[Chris57]

Re : Nommer des colonnes qui bougent

En fait il est possible que je doive récupérer le nom d'une colonne par la suite.

Donc il me faudrait une fonction du genre

Columns("H:H").name

 

[MJ13]

Re : Nommer des colonnes qui bougent

Re, Bonjour Pierrot

Tu peux essayer:

MsgBox Columns("A:A").Name.Name

 

[Chris57]

Re : Nommer des colonnes qui bougent

marche pas...

 

[Pierrot93]

Re : Nommer des colonnes qui bougent

Re,

chez moi le code proposé par Michel fonctionne.... mais que veux tu faire et à partir de quoi ??

 

[Chris57]

Re : Nommer des colonnes qui bougent

Mon tableau comporte en réalité des dizaines de colonnes. Je vais donc toutes les nommer avec votre méthode.
Ensuite ce classeur sera utilisé par plusieurs personnes et pendant longtemps. Il est possible que d'ici quelque mois/années je doive faire des modifs. Dans la mesure où le nom exacte des colonnes n'est affiché nul part, je devrais sans doute devoir les retrouver.
Avec des dizaines de colonnes, l'idéal est une macro qui me sort tous les noms.

J'ai tenté
MsgBox Columns("A:A").Name
MsgBox Columns("A:A").Name
MsgBox (Columns("A:A").Name)
MsgBox (Columns("A:A").Name.Name)

mais rien ne fonctionne chez moi...

 

[Pierrot93]

Re : Nommer des colonnes qui bougent

Bonjour,

bah... je confirme le code de Michel fonctionne, ce exécuté dans un module standard du classeur en question....

MsgBox Columns("A:A").Name.Name

A noter dans Excel, pour afficher toutes les plages nommées, barre de menu Excel => insertion => nom => coller => coller une liste.

bonne journée
@+

 

[MJ13]

Re : Nommer des colonnes qui bougent

Re

Comme dit Pierrot , cela devrait fonctionner.

Voir par exemple avec ce fichier.

Sinon, ce qui m'intéresserait, c'est de connaître le nom défini à partir d'une cellule. Exemple, si je suis en C5, trouver que C5 appartient au nom Colonne3. Est-ce possible?

Merci d'avance .

 

[Pierrot93]

Re : Nommer des colonnes qui bougent

Re,

Sinon, ce qui m'intéresserait, c'est de connaître le nom défini à partir d'une cellule. Exemple, si je suis en C5, trouver que C5 appartient au nom Colonne3. Est-ce possible?

peut être avec ceci :

Option Explicit
Sub test()
Dim n As Name
For Each n In ThisWorkbook.Names
    If Not Intersect(Sheets("Feuil1").Range("C1"), n.RefersToRange) Is Nothing Then _
        MsgBox n.Name
Next n
End Sub

 

[MJ13]

Re : Nommer des colonnes qui bougent

Re Pierrot


Ah, merci beaucoup Pierrot .

Du coup, j'ai mis un exemple dans ce fichier avec RefersToRange que j'ai trouvé dans l'aide.

 

[Chris57]

Re : Nommer des colonnes qui bougent

Je test ça vendredi au boulot. En attendant merci les amis !!!