Colonne ne contient que...

[Excel_Cupidon]

Bonjour,

Je possède un fichier Excel qui contient des colonnes à en-têtes et dont les valeurs peuvent être "true" ou "false".
J'aimerais supprimer les colonnes qui contiennent uniquement des "true" (hors en-tête).
Avez-vous une solution SVP ?

Merci d'avance

 

[DoubleZero]

Bonjour à toutes et à tous,

Bienvenue sur XLD, Excel_Cupidon.

... Avez-vous une solution SVP ?...

Merci de bien vouloir fournir un fichier exemple sans donnée confidentielle.

A bientôt

 

[Excel_Cupidon]

Bonjour DoubleZero,

Voici le fichier exemple en pj.

Encore merci d'avance

 

[DoubleZero]

Re-bonjour,

Comme ceci ?

Option Explicit
Sub True_supprimer()
    Dim c As Range, maxi As Long
    With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
    Rows("1:2").Insert
    For Each c In Rows("3:3").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
        c.Offset(-2, 0).FormulaR1C1 = "=COUNTIF(R[3]C:R[40]C,""true"")"
        c.Offset(-1, 0).FormulaR1C1 = "=COUNTA(R[1]C:R[229]C)-1"
    Next
    maxi = Application.Max(Rows("2:2"))
    For Each c In Rows("1:1").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeFormulas)
        If c.Value = maxi Then c.Offset(3, 0).Resize(1000000).Clear
    Next
    Rows("1:2").Delete
    With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

A bientôt

 

[phlaurent55]

Bonjour à toutes et tous,

mon interprétation de la question posée:

For i = Range("IV1").End(xlToLeft).Column To 2 Step -1
If Application.WorksheetFunction.CountIf(Range(Cells(2, i), Cells(Range("A66535").End(xlUp).Row, i)), "t*") = Range("A66535").End(xlUp).Row - 1 Then Columns(i).Delete
Next i

à+
Philippe

 

[Excel_Cupidon]

Merci à vous deux pour vos réponses.
J'ai implémenté la solution de @phlaurent55 qui fonctionne parfaitement et va vraiment me simplifier la vie.

@+
Kévin