Supprimer les colonnes contenant un "mot"

Bonjour à tous :)

Nouveau venu sur le site, que je découvre de jour en jour :)

J'aimerais supprimer les colonnes contenant le mot total, j'ai réussi à le faire pour les lignes mais pour les colonnes j'ai un problème. Voici le code que j'ai utilisé :

Dim i As Integer
For i = [A65000].End(xlUp).Row To 1 Step -1
If Not Cells(i, 1).Resize(1, 6).Find("*total*") Is Nothing Then Rows(i).Delete
Next i

Dim p As Integer
For p = [A65000].End(xlToRight).Column To 1 Step -1
If Not Cells(1, p).Resize(1, 6).Find("*total*") Is Nothing Then Rows(p).Delete
Next p

End Sub

merci d'avance pour votre aide ;)

Bonjour,

Ci-contre votre code adapté :

Sub NET()
Dim p As Integer
For p = [A1].End(xlToRight).Column To 1 Step -1
    If Not Cells(1, p).Find("*total*") Is Nothing Then Columns(p).Delete
Next p
End Sub

Vous ne pouvez par partir de A65000 car je pense que votre ligne est vide. La première partie consiste à se placer en A1 et faire sur son clavier la combinaison de touche CTRL + FLECHE DE DROITE pour aller à la dernière colonne remplie. Si votre ligne est vide vous repassez toutes les colonnes en revue, c'est une perte de temps, si elles sont vides elles ne contiendront jamais total.

J'ai retiré le resize car je ne le trouve pas pertinent, voir une erreur.

Cdlt,

Bonjour Ergotamine,

Merci pour ta réponse, cependant ça ne marche pas non plus. Aucune colonne contenant le mot total n'est supprimée.

Bonjour,

En effet j'ai mal construit mon fichier car je pensais que TOTAL se trouvait en ligne 1. J'ai supprimé la condition de ligne pour me concentrer sur la colonne entière :

Sub NET()
Dim p As Integer
For p = [A4].End(xlToRight).Column To 1 Step -1
    If Not Columns(p).Find("*total*") Is Nothing Then Columns(p).Delete
Next p
End Sub

Par contre il faut absolument que la ligne choisie (4 ici) soit une ligne pleine de gauche à droite. Par exemple on ne peut pas mettre A3 car les données ne vont pas jusqu'aux colonnes S et T (S3 et T3 sont vides).

Cdlt,

Merci beaucoup c'est tout bon !

et merci pour l'explication j'ai bien compris le code super :)