supprimer les colonnes d'un fichier dont le titre ne figure pas dans une liste

[ludophoenix]

Bonjour à tous,

J'ai un niveau inférieur à novice en vba mais la je suis obligé de m'y mettre afin de gagner du temps.

Voici mon besoin:
Je vais pour travailler recevoir régulièrement des fichiers Excel de plus de 150 colonnes.
Dans ces fichiers je n'utilise qu'environ 40 colonnes.
Je voudrais donc créer une macro qui supprimerait les colonnes indésirables.
J'ai commencé par créer la liste des titres de colonnes que je veux garder (aa) (cette liste risque d'évoluer)

Après cela j'ai fais des recherches sur différents forums afin d'essayer de créer une macro mais rien ne fonctionne😕

Voici mes premiers tests

Sub sup_colonne_mauvaistitre()
Dim c
For c = 256 To 1 Step -1
If CountIf(aa, Cells(1, c)) = 0 Then Cells(1, c).EntireColumn.Delete
Next
End Sub

Sub sup_colonne_mauvaistitre2()
Dim c
For c = 256 To 1 Step -1
If (VLookup(Cells(1, c), bb, 2, False) <> Cells(1, c)) Then Cells(1, c).EntireColumn.Delete
Next
End Sub

Je voulais donc savoir si quelqu'un pourrait m'aider à réaliser cette requête magique car je n'y arrive vraiment pas.

Merci d'avance
🙂

 

[Yaloo]

Re : supprimer les colonnes d'un fichier dont le titre ne figure pas dans une liste

Bonjour ludophoenix et bienvenu sur XLD,

J'ai commencé par créer la liste des titres de colonnes que je veux garder (aa) (cette liste risque d'évoluer)

Ok, elle est créée où cette liste ?

A te relire

Martial

 

[ludophoenix]

Re : supprimer les colonnes d'un fichier dont le titre ne figure pas dans une liste

bonjour Martial,

Cette liste est créée dans un onglet du fichier et la colonne complète est nommée "aa"

 

[Yaloo]

Re : supprimer les colonnes d'un fichier dont le titre ne figure pas dans une liste

Re,

Voici un fichier qui doit correspondre à ta demande.

A+

Martial

 

[ludophoenix]

Re : supprimer les colonnes d'un fichier dont le titre ne figure pas dans une liste

Re,

Voici un fichier qui doit correspondre à ta demande.

A+

Martial

Trop Fort Excellent
C'est exactement le resultat voulu

grandd Merci