Suppression de colonnes

[dieu08]

Bonjour,

Je ne parviens à trouver le code adéquat pour supprimer certaines colonnes d'un tableau de 121 colonnes; que ce soit avec un if ou un select case et une boucle for.

L'objectif pour moi est de supprimer des colonnes en fonction de l'intitulé de la colonne.

Sur l'exemple joint , il faudrait que les colonnes ayant les libelles "intitulé2" & "intitulé3" soient supprimées.

Merci d'avance.

dieu08

 

[eriiic]

Re : Suppression de colonnes

Bonjour,

essaie avec :

Sub suppCol()
    Dim sh As Worksheet, r As Range, ch, i As Long, col As Range
    Set sh = Worksheets("liste")
    Set r = sh.Rows(1)
    ch = Array("intitulé2", "intitulé3")
    For i = 0 To UBound(ch)
        Set col = r.Find(ch(i))
        If Not col Is Nothing Then sh.Columns(col.Column).EntireColumn.Delete
    Next i
End Sub

eric

 

[Cousinhub]

Re : Suppression de colonnes

Bonsoir,

Bonsoir, Eric 🙂

Une variante :

Sub suppr_colonne()
Dim C As Integer
Dim ASupp
ASupp = Array("intitulé2", "intitulé3")
For C = [IV1].End(xlToLeft).Column To 1 Step -1
    If Not IsError(Application.Match(Cells(1, C), ASupp, 0)) Then _
        Columns(C).Delete
Next C
End Sub

Au choix....

Bonne soirée

 

[dieu08]

Re : Suppression de colonnes

Bonjour Eriiiiiiiiiiiiiiiiiiiiiiiiiiiic,

Avant toute chose, j'ai fait une erreur; il s'agirait de conserver les colonnes en fonction de l'intitulé et pas l'inverse !

Pouvez-vous décortiquer votre code pour moi ? Afin que votre travail soit dès plus formateur pour moi...

Merci

dieu08

 

[Cousinhub]

Re : Suppression de colonnes

Re-,

Ben, pour ma part, juste à supprimer le "Not" dans le code....

Bonne soirée

 

[dieu08]

Re : Suppression de colonnes

Quelle andouille je fais (sifflote) .... :-(