Bonjour,

Voila, j'essaie de supprimer toutes les colonnes de ma feuille qui ont sur leur troisieme ligne une cellule dont le fond est transparent, voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    y = Sheets(shtSrc).Range("A1").End(xlToRight).Column
    i = 3
    Do While i <= y
 
        Worksheets(shtSrc).Cells(3, i).Select
 
        If Selection.Interior.ColorIndex = xlNone Then
 
            Selection.Columns.EntireColumn.Delete
 
        End If
        i = i + 2
    Loop
Mais cela ne supprime pas la colonne entiere. J'aimerai bien utiliser un truc du genre .range("C:C").entirecolumn.delete mais je ne vois pas comment dans ce cas.

Vous auriez une idee?