supprimer des colonnes en fonction d'un mot clé

[jeremy22]

Bonjour!

J'ai créé un tableau avec plus de 3000 colonnes mais maintenant je dois le modifier...
je dois supprimer des colonnes qui ont en commun le fait d'avoir une cellule contenant les mots "Domestic crush" j'aimerai trouver une macro qui quand elle rencontre ces mots me supprime toute la colonne... Est-ce possible??????? Si oui est ce que quelqu'un saurait le faire???

d'avance merci!!!

 

[Gorfael]

Re : supprimer des colonnes en fonction d'un mot clé

Salut jeremy22 et le forum

Sub test()
Dim Cel As Range
Do
    Set Cel = Cells.Find(What:="Domestic Crush", LookIn:=xlFormulas, LookAt:=xlWhole)
    If Cel Is Nothing Then
        Exit Sub
    Else
        Columns(Cel.Column).Delete
    End If
Loop
End Sub

supprime toutes les colonnes contenant "Domestic Crush" (cellule entière)
A+

 

[Vorens]

Re : supprimer des colonnes en fonction d'un mot clé

Bonjour,


J'ai posé la question pour le faire sur une ligne il y a de sa quelques heures, je te montre le lien et il suffit de l'adapter pour la colonne.

Lien ICI

 

[jeremy22]

Re : supprimer des colonnes en fonction d'un mot clé

re,
Merci pour vos réponses!!
Merci Gorfael ta macro marche à merveille!!