Discussion :

[chamik]

Bonjour,

Je suis un débutant VBA Excel (niveau « Créer une macro par l’enregistrement des manipulation sur Excel »).

Par contre, je tombe sur un cas où cette méthode n’est pas suffisante.
Enfin, j’ai besoin de transformer un fichier Excel, généré par un outil, dans un autre, en supprimant les colonnes qui ne sont pas utiles.

J’ai donc un fichier Source (l’exemple réduite en attachement) qui contient toujours 15426 colonnes. Le nombre des lignes est variable d’une fois à l’autre.
Le but est de supprimer, à partir de la colonne 6, toutes les colonnes qui sont sans valeur (sauf le titre) ou les colonnes si au moins dans une cellule de cette colonne il y a une chaine « (Aggregated)».

Est-ce que quelqu’un/une peut m’aider d’écrire cette macro ?

D’avance merci

[Pierre Fauconnier]

Salut.

Pour écrire du vba en Excel, d'abord penser Excel avant de penser VBA. Je te propose dès lors d'utiliser EVALUATE qui est une fonction qui permet d'évaluer une formule telle que tu la passerais en Excel (version anglais international).

Pour supprimer des colonnes, il vaut mieux commencer par la dernière, ça évite de sauter des colonnes. Tu vas utiliser EVALUATE avec deux formules, l'une pour tester s'il y a des cellules remplies dans ta plage (le pendant VBA de NBVAL(...). Tu vas aussi utiliser le pendant VBA de SOMMEPROD(....) qui permet de tester en boucle la présence de "Aggregated". Cela te permet d'éviter la boucle imbriquée...

Pour quelqu'un qui commence à toucher à du VBA, c'est un chouette exemple qui permet d'illustrer qu'il est parfois plus simple de penser Excel plutôt que "programmation"...

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
16
17
Sub DeleteColumns()
  Dim LastCol As Long
  Dim Column As Long
  Dim LastRow As Long
  Dim TestedRange As Range
 
  'Recherche des bornes
  LastRow = Range("a1048576").End(xlUp).Row
  LastCol = Cells(10, 16384).End(xlToLeft).Column
 
  For Column = LastCol To 6 Step -1
    Set TestedRange = Range(Cells(11, Column), Cells(LastRow, Column))
    If Evaluate("counta(" & TestedRange.Address & ")") = 0 _
      Or Evaluate("=SUMPRODUCT(IFERROR(SEARCH(""Aggregated""," & _
      TestedRange.Address & ")>0,0)*1)") Then TestedRange.EntireColumn.Delete
  Next Column
End Sub

[chamik]

Ça marche !
Il faut maintenant que je décortique le code pour être sûr que j'ai tous comprit.
Merci encore.