Discussion :

[hantran]

Je travaille avec un fichier Excel extrêmement volumineux, des centaines de colonnes et des milliers de lignes.

Par ex :


Pour référencer les colonnes avec leur numéros, je crée une feuille à côté qui contient 2 colonnes, une pour les titres, une pour les index

Comme ça :


L'emplacement des colonnes peut être changé en fonction des besoins d'analyse.


Je veux écrire une macro qui s'occupe le travail de MAJ des colonnes sur la 2ème feuille. Lorsque je change l'emplacement d'une colonne de la 1ère feuille, je cliques sur le bouton de la 2ème feuille et ça s'est mis à jour automatiquement, en conservant le format précise.


Est-ce c'est réalisable ?

Merci

[sabzzz]

bonjour hantran,

Est-ce c'est réalisable ?

oui voilà,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Macro1()
Dim f1 As Object, f2 As Object, ea As Integer, i As Integer
Set f1 = Sheets("Feuil1")
Set f2 = Sheets("Feuil2")
'pour chaque valeur dans la colonne A1:Ax
For i = 1 To f2.Range("A65536").End(xlUp).Row
'ea = emplacement actuel de la colonne i sur la feuille 1
   ea = Application.Match(f2.Range("A" & i), f1.Rows(1), 0)
    If Not ea = i Then
      f1.Columns(ea).Cut
      f1.Columns(i).Insert Shift:=xlToRight
    End If
Next
Application.CutCopyMode = False
End Sub

[hantran]

Bonjour sabzzz,

J'ai essayé votre code et ce n'est pas tout à fait ce que j'attends. En fait le code remet en état initial l'emplacement des colonnes sur la 1ère feuille, lors d'un changement sur cette dernière.
Cependant, je veux que la 2ème feuille change, non la 1ère.

Encore un autre point que je veux prendre en compte, c'est le numéro de ligne des titres des colonnes, celui ci n'est pas fixe, car je peux de temps en temps ajouter quelques choses au-dessus, des images, des logos ou des petits graphes..etc. Dans l'exemple il commence par la ligne 3, comment puis-je déterminer intelligemment le numéro de cette ligne?
Par ex quelque chose comme :
firstRow = ... ça me renvoie le numéro.

[sabzzz]

bonjour hantran,

mets cette formule en cellule B1 de la feuil2,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=EQUIV(A1;Feuil1!$1:$1;0)

tu pourras trier la plage Feuil2 A:B sur la colonne B