Suppression colonnes

[patrick33]

Bonsoir,

j'ai un fichier comportant plusieurs colonnes.
Supprimer une ou plusieurs colonnes (colonne A ou B) pas de problème
mais je souhaiterai supprimer certaines de ces colonnes à partir de leur libellé qui se situe sur la ligne 1.
Mais l'ordre des libellés n'est pas forcemment le même à chaque fois.
Je peux avoir par exemple le n° sur la première colonne etc, etc..

Comment faire pour supprimer les colonnes désirées automatiquement, sachant que se seront toujours les mêmes
libellés de colonnes qui doivent disparaitre.

voir fichier joint pour l'exemple à traiter.

Merci

[dubois]

Bonsoir à tous,

Valable si le libellé est en ligne 1 et = N°

Code: Tout sélectionner

Sub SupprColonne()
Dim cL%, i%
    cL = Cells(1, 256).End(xlToLeft).Column
    For i = cL To 1 Step -1
        If Cells(1, i) = "N°" Then Columns(i).Delete
    Next i
End Sub

Amicalement
Claude

[patrick33]

Merci pour l'aide.
J'ai intégré dans la boucle les autres colonnes que je souhaite supprimer.
Ca fonctionne parfaitement.

Sub SupprColonne()
Dim cL%, i%
cL = Cells(1, 256).End(xlToLeft).Column
For i = cL To 1 Step -1
If Cells(1, i) = "Niveau" Then Columns(i).Delete
If Cells(1, i) = "Couleur" Then Columns(i).Delete
If Cells(1, i) = "Ligne" Then Columns(i).Delete
etc, etc....
Next i
End Sub

Cordialement

[dubois]

re,

tu pouvais écrire aussi comme çà

Code: Tout sélectionner

Sub SupprColonne()
Dim cL%, i%
    cL = Cells(1, 256).End(xlToLeft).Column
    For i = cL To 1 Step -1
        If Cells(1, i) = "Niveau" Or _
           Cells(1, i) = "Couleur" Or _
           Cells(1, i) = "Ligne" Then Columns(i).Delete
    Next i
End Sub

Claude