Discussion :

[VBA_PIERROT]

Bonjour,

je suis nouveau et j'ai besoin d'une petite aide.

Mon problème : chaque mois je reçois un fichier Excel avec plusieurs colonnes dont un certain nombre ne me sert pas, je souhaiterais alors créer un code permettant de garder que celle que j'utilise et supprimer le reste.
Celles que je souhaite garder ont toujours le même nom, en revanche celle que je veux supprimer ont des noms qui changent.

j'ai d'abord essayer d'enregistrer ces noms à l'aide de la fonction array puis de saisir une boucle IF, avec pour conditions si le nom des i colonnes n'est pas compris dans dans mon array alors je supprime cette colonne mais impossible çà faire marcher.

Vous remerciant par avance.
Bonne journée.

[Jean-Philippe André]

Bonjour et bienvenue sur DVP

ton approche par programmation est une bonne solution. Le passage par les Array l'est également.

Afin que l'on puisse te dire à quel(s) endroit(s) ton code doit être adapté, pourrais-tu nous le donner stp ?

[VBA_PIERROT]

Merci beaucoup j'ai trouvé la solution.
voici le code pour d'autres personnes :

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
Dim myArray
Dim j As Long, k As Long, mycol As Long
 
myArray = Array("IMPORT_SOURCE", "PAYS")
 
' just for my testing
mycol = 10
 
For j = mycol To 1 Step -1 'col by col
    'check if column name is in array
    If IsError(Application.Match(Cells(1, j), myArray, 0)) Then
        Columns(j).Delete
    End If
 
Next j