SUPPRIMER LES COLONNES DONT LA PREMIERE LIGNE CONTIENT LE MOT ""

[bouthottin]

Bonjour,

Je recherche une macro qui supprimerait les colonnes dont la première ligne contient le mot " "
j'ai cherchais sur le forum sans résultat
.J'ai essayé de cette façon mais ça ne marche pas.
Sub test()
For i = Sheet1.UsedRange.Columns.Count + 1 To 4 Step -1
If Columns(i) Like "terme a supprimer" Then
Sheet1.Columns(i).Delete shift:=xlToLeft
End If
Next i
End Sub

Merci d'avance.

 

[job75]

Bonjour bouthottin, bienvenue sur XLD,

Ce code devrait vous convenir :

Sub test()
Dim sup As String, i As Integer
sup = "*toto*" 'à adapter
With Sheet1.UsedRange
    For i = .Columns.Count To 1 Step -1
        If .Cells(1, i) Like sup Then .Columns(i).EntireColumn.Delete
    Next
End With
End Sub

A+