Parcourir 1ère ligne tableau dynamique et supprimer colonnes sous condition.

[lefrizey]

Bonjour chers tous,

Je souhaite parcourir la première ligne de mon tableau (tableau de dimensions variables) et supprimer des colonnes sous conditions. Par exemple supprimer les colonnes qui contiennent "TOT ENC", "DISPONIBLE", "DATE FIN", "DUREE", "FRANCHISE" dans cette premère ligne.
Je joins le fichier TEST

Merci

 

[pierrejean]

Bonjour lefrizey

Macro a adapter et tester:

Sub test()
A_Supprimer = Array("DUREE", "DATE FIN")
Set origine = Cells.Find("NOM CLIENT", LookIn:=xlValues, lookat:=xlWhole)
If Not origine Is Nothing Then
   ligne = origine.Row
   For n = Cells(ligne, Columns.Count).End(xlToLeft).Column To 1 Step -1
       For m = LBound(A_Supprimer) To UBound(A_Supprimer)
         If Cells(ligne, n) = A_Supprimer(m) Then
            Columns(n).Delete
         End If
       Next
   Next
End If
End Sub

 

[lefrizey]

Bonjour PierreJean
J'ai testé le code et je l'ai adapté. Il marche correctement. Merci